Új hozzászólás Aktív témák

• #42211 Richard őstag

  Új Válasz 2019-11-18 11:40:21 #42211

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Richard

  őstag

  Sziasztok,

  azt hogy oldom meg, ha van egy táblám amire autofiltert tettem és a filter nem hoz vissza adatot akkor lépjen tovább?!

  Forrastabla.Worksheets("Munka1").ListObjects("adatforras").Range.AutoFilter Field:=6, Criteria1:="kritérium1" 

  VisibleCellsCount = Forrastabla.Worksheets("Munka1").ListObjects("adatforras").Range.Cells.SpecialCells(xlCellTypeVisible).Count 
If VisibleCellsCount > 1 Then........

  és ekkor végezné el amit akarok.

  Ha kisebb mint 1 akkor pedig menjen tovább.

  Jelen esetben a teljes databodyrange-et átmásolja, ha a filter nem listáz semmit a táblázatba.

  Hol nézem be? A headerben is számol? DataBodyRange nem működik a Range helyett, mert akkor leáll overflow-al a program.

  Előre is köszönöm

  [ Szerkesztve ]

Új hozzászólás Aktív témák