This simple!
1 2 3 4 5 6 7 8 9 10 | Sub Button1_Click() Worksheets("Sheet1").Range("A1:F1").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("A10:F10") Worksheets("Sheet2").Activate MsgBox "Finished" End Sub |
Download File
1 2 3 4 5 6 7 8 9 10 | Sub Button1_Click() Worksheets("Sheet1").Range("A1:F1").Copy ActiveSheet.Paste Destination:=Worksheets("Sheet2").Range("A10:F10") Worksheets("Sheet2").Activate MsgBox "Finished" End Sub |
No comments :
Post a Comment