Loop

[feinomore]

hi, i need help with small macro.
i would like to finding empty cells. i can find first, but i dont know hot to continue.

here is my code:

Sub DoUntilLoop()
Dim Irowcounter As Long

Irowcounter = 1

Do Until IsEmpty(ActiveSheet.Cells(Irowcounter, 1))
Irowcounter = Irowcounter + 1
Loop
MsgBox ActiveSheet.Cells(Irowcounter, 1).Address

End Sub

thx.

i tried to put Next under MsgBox... but doesnt work.

[jraj1106]

Hi.

Which column cells do you want to refer?

[jraj1106]

Try this code:

Please Login or Register  to view this content.

[feinomore]

i refer to A column

e.g.:
A B ...
1 5
2
3 4
4 8
.
.
.
and i want to find empty cell and than continue with findinx next empty cell, until checked everything in column A

[jraj1106]

Check this code:

Please Login or Register  to view this content.

[feinomore]

thx, works.... now i have to understand what u type )