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

• #40731 Fferi50 Topikgazda oke #40727

  Új Válasz 2019-04-12 12:16:25 #40731

  Ú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 oke #40727 üzenetére

  Szia!

  A szűrés után látszó cellákat megkaphatod a SpecialCells tulajdonsággal:
  set latszo=Intersect(Cells(1, 9).CurrentRegion, Cells(1, 9).CurrentRegion.Offset(1, 0).Columns(9)).SpecialCells(xlCellTypeVisible).EntireRow

  A 9. oszlop látszó celláinak sorait tartalmazza, az első sor (fejléc nélkül).

  Ezt ezután egy lépésben törölheted, vagy másolhatod.
  latszo.Delete
  vagy
  latszo.Copy Destination:=celrange

  Üdv.

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