Hi guys,
i need help.
i want to do copy-paste diffirent worksheet but with for next loop
for example:
Worksheets("Sheet1").Range("a1").copy = Worksheets("Sheet2").Range("a1").copy
Worksheets("Sheet1").Range("a2").copy = Worksheets("Sheet2").Range("a2").copy
etc...
Sheet1:
Sheet2
i have code but not working...
Sub for_loop()
Set wks = Worksheets("Sheet1")
On Error Resume Next
For i = 2 To wks.Range("A1" & Rows.Count).End(xlUp).Row
Worksheets("Sheet1").Range("A2").Value = Worksheets("Sheet2").Range("A2").Value
Next i
End Sub
i need help.
i want to do copy-paste diffirent worksheet but with for next loop
for example:
Worksheets("Sheet1").Range("a1").copy = Worksheets("Sheet2").Range("a1").copy
Worksheets("Sheet1").Range("a2").copy = Worksheets("Sheet2").Range("a2").copy
etc...
Sheet1:

Sheet2

i have code but not working...
Sub for_loop()
Set wks = Worksheets("Sheet1")
On Error Resume Next
For i = 2 To wks.Range("A1" & Rows.Count).End(xlUp).Row
Worksheets("Sheet1").Range("A2").Value = Worksheets("Sheet2").Range("A2").Value
Next i
End Sub