Mark/copy specific cells in a column, in increments of x

[EVriderDK]

If have something in increments of 3, ex. A3 A6 A9 A12 A15 etc. how do I select those or copy them into new sheet?

Thank you in advance.

 

[MandeepBaluja]

Try this

Sub Copy_non_adjacentCells()


Set R = Cells(3, 1)
For i = 3 To 200 Step 3
Set R = Union(R, Cells(i, 1))
Next
R.Copy


End Sub

 

[My Aswer Is This]

Try something like this:
This script will copy values from Active sheet to sheet (2)
It will do this 30 times

Sub Copy_By_Three()
Dim i As Integer
    
    For i = 3 To 30 Step 3
        Cells(i, 1).Copy Destination:=Sheets(2).Cells(i, 1)
    Next

End Sub

 

[EVriderDK]

Try something like this:
This script will copy values from Active sheet to sheet (2)
It will do this 30 times

Sub Copy_By_Three()
Dim i As Integer
    
    For i = 3 To 30 Step 3
        Cells(i, 1).Copy Destination:=Sheets(2).Cells(i, 1)
    Next

End Sub

It worked! Thank you very much

 

[My Aswer Is This]

Glad I was able to help you. Come back here to Mr. Excel next time you need additional assistance.

It worked! Thank you very much