copy & Paste

  • Thread starter Thread starter Darius
  • Start date Start date
D

Darius

copy content of Q3 and Paste it to H4
copy content of Q12 and Paste it to H13
..
..
..
copy content of Q3288 and Paste it to H3289

what my below program doing wrong for above job?

Sub copyPaste()
Dim j As Long

For j = 3288 To 3 Step -9
R(j)C(17).select.copy
R(j+1)C(7).select.paste
Next j
End Sub

thanks for your help
 
If your object is to copy each 9th cell from the bottom up to another column
on the same row +1, try this

Sub copyevery9thfrombottomup()
mc = "q"
For i = Cells(Rows.Count, mc).End(xlUp).Row To 3 Step -9
Cells(i, mc).Copy Cells(i + 1, "H")
Next i
End Sub
 
hi
try this
Sub copyPaste()
Dim j As Long

For j = 3288 To 3 Step -9

Range("Q" & j).Copy Destination:=Range("H" & j + 1)

Next j
End Sub

regards
FSt1
 
Your copy/paste syntax is incorrect

Sub copyPaste()

For j = 3288 To 3 Step -9

Cells(j, 17).Copy
Cells(j + 1, 7).Select
ActiveSheet.Paste

Next j

End Sub
 
Back
Top