ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   how to break out of an if statement and continue to loop (https://www.excelbanter.com/excel-programming/383042-how-break-out-if-statement-continue-loop.html)

Darren

how to break out of an if statement and continue to loop
 
I'm really stuck. I grab a value from one page and go to another page to
find a match. All is well unless I can't find a match. I need to break out
of the inner loop and continue the outer. Here is my code. I can't figure
out how to break out yet continue execution. Thanks
(outer loop is here)
Do Until StrComp(destin_unit, source_unit) < 0
If cntr2 < text_max_rows Then
cntr2 = cntr2 + 1
destin_unit = Cells(cntr2, 1)
Else
cntr2 = cntr3 + 1
'I need to break here and continue the outer loop
End If
Loop

merjet

how to break out of an if statement and continue to loop
 
Replace: 'I need to break here and continue the outer loop
With: Exit Do

Hth,
Merjet


Gary''s Student

how to break out of an if statement and continue to loop
 
Do you want something like this?

Sub demo()
For i = 1 To 100
greatescape = False
Do Until (StrComp(destin_unit, source_unit) < 0) Or greatescape = True
If cntr2 < text_max_rows Then
cntr2 = cntr2 + 1
destin_unit = Cells(cntr2, 1)
Else
cntr2 = cntr3 + 1
greatescape = True
End If
Loop
End Sub

--
Gary's Student
gsnu200705


"Darren" wrote:

I'm really stuck. I grab a value from one page and go to another page to
find a match. All is well unless I can't find a match. I need to break out
of the inner loop and continue the outer. Here is my code. I can't figure
out how to break out yet continue execution. Thanks
(outer loop is here)
Do Until StrComp(destin_unit, source_unit) < 0
If cntr2 < text_max_rows Then
cntr2 = cntr2 + 1
destin_unit = Cells(cntr2, 1)
Else
cntr2 = cntr3 + 1
'I need to break here and continue the outer loop
End If
Loop



All times are GMT +1. The time now is 08:42 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com