![]() |
| FREE Excel STUFF |
|
Search |
| Excel Help. Popular |
| NEW! Multiple Excel Search & Links |
| Excel Formulas |
| Excel Macros |
| Excel Newsletter |
| PRODUCTS |
| Up to $139.00 FREE! |
|
Categories & Search |
| Excel Templates |
| Excel Add-ins |
| Excel Training |
| More.... |
| OTHER |
| Excel Development |
|
|
NEW! More Books.. |
Add Excel Answers & Search To Your Google Toolbar Details |
Current Special! Complete
Excel Excel Training
Course for Excel 97 - Excel 2003, only $145.00. $59.95 Instant
Buy/Download, 30 Day Money Back Guarantee
& Free Excel Help for LIFE!
Back To: Excel VBA Loops . Lot's of free Excel VBA . Got any Excel Questions? Free Excel Help
Do UntilLoop
There are 2 ways a Do Until loop can be used in Excel VBA Macro code. You can tell Excel to check the condition before entering the loop, or tell Excel to enter the loop and then check the condition. Note To stop an endless loop, press ESC or CTRL+BREAK. To force an exit from a Do Until loop you use the line: Exit Do, e.g. If lNum = 7 Then Exit Do
In the first example (Check_First) the condition (lNum=10) is checked before entering the loop.
In the second example (Check_After) the condition (lNum=10) is checked after entering the loop.
Sub Check_First()
Dim lCount As Long
Dim lNum As Long
lCount = 0
lNum = 10
Do Until lNum = 10
lNum = lNum - 1
lCount = lCount + 1
Loop
MsgBox "The Do While loop made " & lCount & " loop(s)."
End Sub
Sub Check_After()
Dim lCount As Long
Dim lNum As Long
lCount = 0
lNum = 11
Do
lNum = lNum - 1
lCount = lCount + 1
Loop Until lNum = 10
MsgBox "The Do Until loop made " & lCount & " loop(s)."
End Sub
Do Loops
Syntax
Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]
Loop
Or, you can use this syntax:
Do
[statements]
[Exit Do]
[statements]
Loop [{While | Until} condition]
Excel Dashboard Reports & Excel Dashboard Charts 50% Off
Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to special@ozgrid.com 31 days after purchase date.
Instant Download and Money Back Guarantee on Most Software
Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!
Microsoft ® and Microsoft Excel ® are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft