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

• #40884 oke senior tag Fferi50 #40731

  Új Válasz 2019-04-24 19:11:46 #40884

  Ú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

  

  oke

  senior tag

  válasz Fferi50 #40731 üzenetére

  Szia!

  Ezzel kapcsolatban kérdeznék:

  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

  Ha a 9. oszlop mellette még szűrném a 10. oszlopot is (tehát mindkét oszlopban lenne szűrés), akkor hogy tudnám a létrejövő sorokat kijelölni, másolni, áthelyezni?

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