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

• #35886 Delila_1 veterán Fferi50 #35884

  Új Válasz 2017-08-02 10:44:33 #35886

  Ú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 Fferi50 #35884 üzenetére

  Igazad van. A módosított makró

  Sub Masolas()
Dim sor As Long
If Sheets(2).Range("A5") = "" Then
sor = 5
Else
sor = Sheets(2).Range("A" & Rows.Count).End(xlUp).Row + 2
End If

Sheets(1).Range("AD18:AD21").Copy
Sheets(2).Range("A" & sor).PasteSpecial xlPasteAll
End Sub

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