copy&paste every nth cell to another sheet

kpxl60 · Aug 1st 2019

Hi,

Really need some help with the following task please.

I need a macro to copy and paste every 2nd cell in specific columns (they differ) to another sheet but in consecutive rows. I need for instance to copy and paste everything that has a value, starting from cell G9 and continuing with G11, G13... and start copying into another sheet from B3, B4, B5.... I also need in the same macro to copy and paste the cells from G10, G12, G14... into the other sheet into DX3, DX4, DX5..... I would usually have between 5 and 25 cells to copy.

If anyone could explain how to do this it would be much appreciated!
Thanks!

**StephenR** · Aug 1st 2019

Try this (untested). Adjust sheet names to suit.

Code

Sub x()


Dim r1 As Long, r2 As Long


With Sheets("Sheet1") 'source sheet
    r2 = 3
    For r1 = 9 To .Cells(Rows.Count, "G").End(xlUp).Row Step 2
         Sheets("Sheet2").Cells(r2, "B").Value = .Cells(r1, "G").Value
         Sheets("Sheet2").Cells(r2, "DX").Value = .Cells(r1 + 1, "G").Value
         r2 = r2 + 1
    Next r1
End With


End Sub

Display More

kpxl60 · Aug 1st 2019

Superb! That works great.

Thanks so much!

copy&paste every nth cell to another sheet

Participate now!

Share