2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Fototrend

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #42211 Richard őstag
    Új Válasz #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

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