Do Until sheet1.range("a1").value = ""

The above code stops when there is nothing in a cell,

how does the code need to look when it needs to stop at the first cell
that it picks up text.

Thanks
Theuns


--
T.c.Goosen1977
------------------------------------------------------------------------
T.c.Goosen1977's Profile: http://www.excelforum.com/member.php...o&userid=35895
View this thread: http://www.excelforum.com/showthread...hreadid=562421

why not try a more modern version

For i = 1 To Cells(2, "b").End(xlDown).Row
MsgBox Cells(i, "b").Row
Next i

--
Don Guillett
SalesAid Software

"T.c.Goosen1977"
wrote in
message news:T.c.Goosen1977.2b54vr_1153225506.983@excelfor um-nospam.com...

Do Until sheet1.range("a1").value = ""

The above code stops when there is nothing in a cell,

how does the code need to look when it needs to stop at the first cell
that it picks up text.

Thanks
Theuns


--
T.c.Goosen1977
------------------------------------------------------------------------
T.c.Goosen1977's Profile:
http://www.excelforum.com/member.php...o&userid=35895
View this thread: http://www.excelforum.com/showthread...hreadid=562421

It is working correctly...(as you wrote it). If cell "A1" is empty nothing
will happen. But by your comment "when it needs to stop at the first cell
that..." I presume you are trying to move through a range of cells like this
(e.g. down column "A")

Dim Cell As Range

For Each Cell In Sheet1.Range("A:A")
If Cell.Value < "" Then Exit For
Next Cell

MsgBox Cell.Value & vbCrLf & Cell.Address(False, False)

"T.c.Goosen1977" wrote:


Do Until sheet1.range("a1").value = ""

The above code stops when there is nothing in a cell,

how does the code need to look when it needs to stop at the first cell
that it picks up text.

Thanks
Theuns


--
T.c.Goosen1977
------------------------------------------------------------------------
T.c.Goosen1977's Profile: http://www.excelforum.com/member.php...o&userid=35895
View this thread: http://www.excelforum.com/showthread...hreadid=562421