excel vba exit for loop code example

Example 1: excel vba exit for loop

'In VBA how to exit a For Next loop when a condition 
'is met: use Exit For.

For i = 1 To 1000
    c = c + 1
    If c = 750 Then Exit For
Next

'Exit For can also be used inside a For Each loop:
For Each r In [A1:A10]
	c = c + c
	If r.Value = "Hi" Then Exit For
Next

'-------------------------------------------------------------------
'Note:      If multiple For Loops are nested, 'Exit For' transfers
'           control to the next higher level of nesting.
'-------------------------------------------------------------------


'VBA also has the Exit Do statement for Do Loops:
Do
    c = c + 1
    If c = 750 Then Exit Do
Loop While i < 1000

'VBA does NOT have an Exit statement for While Wend loops. While Wend
'loops must run through completion, or be interrupted
'by a GoTo statement:
While i < 1000
    c = c + 1
Wend

Example 2: excel vba exit loop

'In VBA how to exit a For Next loop when a condition 
'is met: use Exit For.

For i = 1 To 1000
    c = c + 1
    If c = 750 Then Exit For
Next

'Exit For can also be used inside a For Each loop:
For Each r In [A1:A10]
	c = c + c
	If r.Value = "Hi" Then Exit For
Next

'-------------------------------------------------------------------
'Note:      If multiple For Loops are nested, Exit For transfers
'           control to the next higher level of nesting.
'-------------------------------------------------------------------


'VBA also has the Exit Do statement for Do Loops:
Do
    c = c + 1
    If c = 750 Then Exit Do
Loop While i < 1000

'VBA does NOT have an Exit statement for While Wend loops. While Wend
'loops must run through completion, or be interrupted
'by a GoTo statement:
While i < 1000
    c = c + 1
Wend

Example 3: excel vba exit do loop infinite

'VBA has the Exit Do statement to exit a Do Loop:

Do
    c = c + 1
    If c = 750 Then Exit Do
Loop While i < 1000

'-------------------------------------------------------------------
'Note:      If multiple Do Loops are nested, Exit Do transfers
'           control to the next higher level of nesting.
'-------------------------------------------------------------------
 
'VBA also has analogous Exit statement for
'For Next and For Each loops.    
      
'VBA does NOT have an Exit statement for While Wend loops.

Tags:

Misc Example