Is it possibble to exit two for loops at once?

I have some code like this

Sub INCC()
Set rng = ActiveSheet.UsedRange.Cells
For c = 1 To rng.Columns.Count
For r = 1 To rng.Rows.Count
If something Then
Some code here....
Exit For
End If
Next r
If something Then Exit For
Next c
more code here.....
End Sub

Now I was wandering if its possible to exit both loops if the condtion in
the inner loop is met, without having to test again in to leave the outer
loop.

Jan

You could type under the loops a label (LabelName:)
and in your loop: GoTo LabelName


"Jan Kronsell" schreef in bericht
...

Is it possibble to exit two for loops at once?

I have some code like this

Sub INCC()
Set rng = ActiveSheet.UsedRange.Cells
For c = 1 To rng.Columns.Count
For r = 1 To rng.Rows.Count
If something Then
Some code here....
Exit For
End If
Next r
If something Then Exit For
Next c
more code here.....
End Sub

Now I was wandering if its possible to exit both loops if the condtion in
the inner loop is met, without having to test again in to leave the outer
loop.

Jan

I know tthat but I try to avoid GoTo statements.

Jan

Els wrote:
You could type under the loops a label (LabelName:)
and in your loop: GoTo LabelName

I set a flag and check it....

Sub INCC()
dim rng as range
dim c as long
dim r as long
dim FoundIt as boolean

Set rng = ActiveSheet.UsedRange.Cells
foundit = false
For c = 1 To rng.Columns.Count
For r = 1 To rng.Rows.Count
If something Then
Some code here....
foundit = true
Exit For
End If
Next r
If foundit = true Then
Exit For
end if
'more code here (maybe...)
Next c
more code here.....
End Sub

Jan Kronsell wrote:

Is it possibble to exit two for loops at once?

I have some code like this

Sub INCC()
Set rng = ActiveSheet.UsedRange.Cells
For c = 1 To rng.Columns.Count
For r = 1 To rng.Rows.Count
If something Then
Some code here....
Exit For
End If
Next r
If something Then Exit For
Next c
more code here.....
End Sub

Now I was wandering if its possible to exit both loops if the condtion in
the inner loop is met, without having to test again in to leave the outer
loop.

Jan

--

Dave Peterson