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

• #46535 Fferi50 Topikgazda pero19910606 #46533

  Új Válasz 2021-04-25 18:59:17 #46535

  Ú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 pero19910606 #46533 üzenetére

  Szia!
  1. Használd a Listobject DataBodyRange tulajdonságát:
  ActiveSheet.Listobjects.DataBodyRange.SpecialCells(xlCellTypeVisible).Copy  Destination:=Sheets("Ellenőrzés").Cells(3,2) " ide megadhatod direktben a céltábla címét, 
  2. Nézd meg, hogy az LR4 sor feletti cella üres-e és addig menj visszafelé, amíg üres a felette levő sor. Esetleg próbáld meg az End(xlUp) -ot ismételten végrehajtani ettől a cellától.
  Üdv.

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