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

• #42898 Fferi50 Topikgazda Sesy #42892

  Új Válasz 2020-01-28 11:40:03 #42898

  Ú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 Sesy #42892 üzenetére

  Szia!
  Akkor ez a sor:
  sh1.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Value = cl.Value
  így változik:
  cl.Resize(1,6).Copy Destination:= sh1.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)

  Üdv.

• #42895 Delila_1 veterán Sesy #42892

  Új Válasz 2020-01-28 11:25:46 #42895

  Ú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 Sesy #42892 üzenetére

  Úgy látom, állandó változásban van szegény makró. A másolás sorai

  ide = Sheets(lapnev).Range("B" & Rows.Count).End(xlUp).Row + 1
Sheets("Munka2").Range("A" & sor & ":F" & sor).Copy Sheets(lapnev).Range("B" & ide)
Sheets("Munka2").Select

  Már csak azt kell megmondanod, hogy az A: F tartományt a másik lap A-ba, vagy B-be tegye. Ha A-ba, akkor
  Sheets("Munka2").Range("A" & sor & ":F" & sor).Copy Sheets(lapnev).Range("A" & ide)
  kell neked.

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