copy & Paste

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
 
S

Simon Lloyd

In your code you dont need the selects and stepping -9 won't do every
row from 3288 up! try this:
Sub copyPaste()
Dim i As Long
For i = 3288 To 3 Step -1
Range("Q" & i).Copy Destination:=Range("H" & i + 1)
Next i
End Sub



Darius;318465 said:
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
Click to expand...


--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
 
D

Don Guillett

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
 
F

FSt1

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
 
P

Paul C

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
 
Top