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

• #33073 lenkei83 tag nesh20 #33072

  Új Válasz 2016-10-28 17:02:09 #33073

  Ú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

  

  lenkei83

  tag

  válasz nesh20 #33072 üzenetére

  Szia!

  Valami ilyesmire gondoltál?

  Sub Masolas()

Dim ws_from As Worksheet
Dim ws_to As Worksheet
Dim ws_to_lastrow As Long

Set ws_from = Worksheets("Munka1")
Set ws_to = Worksheets("Munka2")
ws_to_lastrow = ws_to.Cells(ws_to.Rows.Count, "A").End(xlUp).Offset(1, 0).Row
ws_to.Rows(ws_to_lastrow).EntireRow.Value = ws_from.Rows(2).EntireRow.Value

End Sub

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