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:
![Sheet221f9.jpg](/board/proxy.php?image=https%3A%2F%2Fk64i.imgup.net%2FSheet221f9.jpg&hash=34f93ba2075d32c97d3e712110f1f5a8)
Sheet2
![Sheet135fd.jpg](/board/proxy.php?image=https%3A%2F%2Fo24i.imgup.net%2FSheet135fd.jpg&hash=812ff1e322db3c92aa7e8af087e35541)
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