Need macro to copy and paste to other location within a row

[condo0000]

Hello,

I am looking for a macro that will allow me to copy and paste the contents of a couple of cells in one row into another row. Here is what I need to do....
I want to take the data in positions B3 to I3 and paste it into cells B408 to I408. I then want to take the data in J3 to Q3 and put it in A409 to H409. This process will continue taking 8 cells from a row and pasting them in the next consecutive row.
If this is unclear feel free to e-mail me at cclewell@fciconnect.com for clarification. Thanks a Heck of a lot for your help,
Craig

 

[Jim North]

Craig,

This question is awful close to the answer in your other post:

http://www.mrexcel.com/board/viewtopic.php?topic=21272&forum=2

Just change:

NewRow = NewRow + 8

To :

NewRow = NewRow + 1

 

[gnaga]

Copy from A3:H3 ans paste to A408:H408
Copy from I3:P3 ans paste to A409:H409
Copy from Q3:X3 ans paste to A410:H410

Is it like uniformly copy and paste the no.of cells and paste it to another row?

Then try this code

Sub Data_Copy()
Dim I, J, K As Integer

ActiveWorkbook.Sheets(4).Activate
For I = 1 To 10
For J = 1 To 256
Range(Cells(I, J), Cells(I, J + 7)).Copy
Range("A" & K + 408).PasteSpecial
J = J + 7
K = K + 1
Next J
Next I
Application.CutCopyMode = False
End Sub

This code will copy data from every eight cells of first 10 row and then paste starting from row 408

You may have to modify the code to suit your requirement


GNaga
This message was edited by gnaga on 2002-09-06 07:44