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

• #51011 Fferi50 Topikgazda föccer #51010

  Új Válasz 2023-05-19 13:05:37 #51011

  Ú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 föccer #51010 üzenetére

  Szia!
  Esetleg kipróbálhatnád a következőt:
  A másolandó sorok mellé teszel egy jelet (pl. x) az utolsó oszlop után.
  Ezután autoszűrő a teljes tartományra - x -re.
  Ezután másolás:
  Pl. Range($A$1:$X200).SpecialCells(xlCelltypeVisible).Copy Destination:=A célterület első cellája.
  Ha esetleg így túl lassúnak találod, akkor lehet a látható tartományt területenként is másolni:
  Dim terulet As Range
For Each terulet In Range($A$1:$X200).SpecialCells(xlCelltypeVisible).Areas
       terulet.Copy Destination:=a következő üres sor
       következő üres sor meghatározása
Next
  Ezután kitörlöd az x-eket és kész, vagy bezárod mentés nélkül a forrás fájlt.
  Üdv.

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