Hirdetés

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

    LOGOUT

    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

  • #42225 Fferi50 Topikgazda Richard #42223
    Új Válasz #42225
    Ú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

    Fferi50

    Topikgazda

    válasz Richard #42223 üzenetére

    Szia!

    Ha van a szűrésnek eredménye, akkor csak a szűrt értékeket másolja a DataBodyRange.Copy.

    A DataBodyRange az a fejléc és összesítősor nélküli tartományt jelenti. Ha nincs a szűrésnek eredménye, akkor ennek nincs látható része, tehát a SpecialCells(xlCelltypeVisible) hibával tér vissza és ezt a hibaüzenetet az Application.DisplayAlert paranccsal sem tudod elnyomni, csak a megelőző On Error Resume Next utasítással ellenőrizheted, hogy hiba keletkezett-e .
    On Error Resume Next
    ListObjects(1).DataBodyRange.SpecialCells(xlCellTypeVisible).Copy
    If Err<>0 Then Msgbox "Nincs mit másolni"
    On Error Goto 0

    Viszont így a teljes tartomány egyben marad, ezért a sima DataBodyRange.Copy másolja az egészet. (Lehet, hogy ez bug, mert ilyenkor hibát kellene logikusan adni, ezt igazából Redmond tudhatja, miért nem így van.)
    A szűrés eredményét a táblázat teljes tartományának vizsgálatával is tudod ellenőrizni.
    pl. így, ekkor nem kell hibakezelés bele:
    ListObjects(1).Range.SpecialCells(xlCellTypeVisible).Rows.Count
    Üdv.

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