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

• #46534 Delila_1 veterán pero19910606 #46533

  Új Válasz 2021-04-25 18:39:27 #46534

  Ú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

  

  Delila_1

  veterán

  válasz pero19910606 #46533 üzenetére

  Szűrés után megadhatod az első látható sor számát,
  tol = Range("A2:A10000").SpecialCells(xlCellTypeVisible).Row
  majd az utolsót
  ig = Range("A" & Rows.Count).End(xlUp).Row
  Ezután már gyerekjáték a másolás.
  Pl.
  Range(Cells(tol, 1), Cells(ig, 5)).Copy Sheets("Másik lap").Range("A5")

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