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

• #12872 Delila_1 veterán Cufter #12871

  Új Válasz 2012-02-10 15:06:54 #12872

  Ú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 Cufter #12871 üzenetére

  Ez a makró a Gyűjtő nevű lap A oszlopába másolja egymás alá a jelölt cellák tartalmát.

  Sub másol()
  usor = Sheets("Gyűjtő").Cells(Rows.Count, "A").End(xlUp).Row + 1
  Selection.Copy Sheets("Gyűjtő").Cells(usor, 1)
  End Sub

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