Copy (A2:A26) paste, offset one cell, do it again. Loop 256
Got the end value for the loop wroong, try this
For x = 55 To 6701 Step 26
"Mike H" wrote:
Hi,
Try this
Sub Versive()
Range("A2:A26").Copy
For x = 55 To 1430 Step 26
Cells(x, 4).PasteSpecial
Next
End Sub
Mike
"RyGuy" wrote:
I am trying to figure out a way to take a range (A2:A26) and copy/paste it
into range (D55:D79) then offset one cell down, then do it again, so
(A2:A26) copy/paste to (D81:D105) and so on and so forth. I want it to
run 256 times.
I am looking for a sample of code that I thought I had somewhere in my
library, but cant seem to find it now. Any ideas?
Thanks,
Ryan--
|