Selecting Every Fourth Cell in a Column

[ForestCalvin]

Hi all,

I'm using Excel 2003 on Windows XP
This should not be too difficult but I just do not have experience in VBA.

I want to be able to select a cell and execute a macro that will select every fourth cell after the selected one in that specific column.

Then I would like that command to loop until there are two consecutive empty rows.

So if G12 is selected and I execute the macro, G12, G16, G20, G24, etc. --until there are two empty rows -- will all be selected

That's all I need it to do.

Once selected, I am going to manually copy and paste all of these items into a new worksheet.

Thanks!!

 

[Steve=True]

I don't know VBA, but you can use the MOD formula on the active cell.

=MOD(ROW(),4)

 

[mirabeau]

Hi,

Try this code.

Sub test()
Dim a As Range, u As Range
Set a = Selection.Resize(1, 1)
Set u = a
Do
    Set a = a(5)
    If (a(2) = "") + (a(3) = "") Then Exit Do
    Set u = Union(u, a)
Loop
u.Select
End Sub

 

[mirabeau]

On reflection, probably this one is better for this particular job

Sub testcode2()
Dim a As Range, b As Range, c As Range
Set a = Selection.Resize(1, 1)
Set c = a
Do
For Each b In Range(a, a(5))
    If (b = "") * (b(2) = "") Then Exit Do
Next
Set a = a(5)
Set c = Union(c, a)
Loop
c.Select
End Sub