loop with two stops

[ermccarthy]

I have a quick little loop that I wrote to search for a certain value in a cell, but I need a "second stop" Sometimes on this report, it the item was not used in a particular day, it will not show up, therefore, my loop would run forever with out stopping, I would like it to stop when it reachs row 1000. Here is what I have so far....

Do Until Left(ActiveCell, 3) = Range _("seg1").Value

ActiveCell.Offset(1, 0).Select
Loop


I am stumped!!

[keithkemble]

It looks like I can help you and you can help me.
Please view my routine as that will stop at the bottome of the range, but I cannot get it to select what I want.
KK

[Barrie Davidson]

Try inserting an IF statement. Something like:

Do Until Left(ActiveCell, 3) = Range _("seg1").Value

ActiveCell.Offset(1, 0).Select
If Selection.Row > 1000 Then Exit Loop
Loop

[ermccarthy]

it did not work, when typing in the new line, it gives me a compile error:
Expected: Do or For or Sub or Function or Property.

but I did type it in exactly....

If Selection.Row > 1000 Then Exit Loop
Loop

What am I doing wrong??

[Barrie Davidson]

On 2002-02-19 13:12, ermccarthy wrote:
it did not work, when typing in the new line, it gives me a compile error:
Expected: Do or For or Sub or Function or Property.

but I did type it in exactly....

If Selection.Row > 1000 Then Exit Loop
Loop

What am I doing wrong??

You need to type in all the code (sorry, it wasn't clear in the posting). Try this:

Do Until Left(ActiveCell, 3) = Range("seg1").Value 
ActiveCell.Offset(1, 0).Select 
If Selection.Row > 1000 Then Exit Loop 
Loop

[Russell Hauf]

I believe that it's Exit Do (not loop), and you could also do something like this:

Do Until Left(ActiveCell, 3) = Range("seg1").Value Or Selection.Row > 1000
ActiveCell.Offset(1, 0).Select
'...
Loop

-rh