Telefonszámunk: 1-472-0679

Hozzászólás: [Resolved] Másolás új sorba

Kezdőlap › Fórumok › Excel programozás › [Resolved] Másolás új sorba › Hozzászólás: [Resolved] Másolás új sorba

2021-02-12-08:04 #8265
delila
Felhasználó

    Szia!

    Próbáld így:

    Sub Masol_Torol()
    Dim ide As Long
    
    ide = Sheets("osszefuz").Range("A" & Rows.Count).End(xlUp).Row + 1
    Sheets("C").Range("b2:J11").Copy
    Sheets("osszefuz").Range("A" & ide).PasteSpecial xlPasteValues
    
    Sheets("betolto").Range("D1,J1,C4:D8,G4:H8").ClearContents
End Sub

    Delila