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

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 Wrote:
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


--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=89054

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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Darius" wrote in message
...
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

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

"Darius" wrote:

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

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

--
If this helps, please remember to click yes.


"Darius" wrote:

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