First empty cell as a multiple of 10

[ifu06416]

Hi all,

I'm looking for a macro that will look up the first empty cell which is a multiple of 10 in column A.

Ie if A10 is filled then the macro moves on to A20, A30, A40 until it finds an emtpy cell.

Thank you,

John.

 

[VoG]

Maybe like this

Sub test()
Dim i As Long
For i = 10 To 1000 Step 10
    If Range("A" & i).Value = "" Then Exit For
Next i
Range("A" & i).Select
End Sub

 

[Peter_SSs]

Welcome to the MrExcel board!

Try this, but note that you rarely need to select a cell/range to work with it in vba.

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> Empty_Cell()<br>    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>    <br>    <SPAN style="color:#00007F">Const</SPAN> jump <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN> = 10<br>    i = jump<br>    <SPAN style="color:#00007F">Do</SPAN> <SPAN style="color:#00007F">While</SPAN> <SPAN style="color:#00007F">Not</SPAN> IsEmpty(Cells(i, "A"))<br>        i = i + jump<br>    <SPAN style="color:#00007F">Loop</SPAN><br>    Cells(i, "A").Select<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[ifu06416]

Thank you both.

They both do exactly what im looking for.