Use Do Until with if statement : Do Until « Language Basics « VBA / Excel / Access / Word

VBA / Excel / Access / Word

1.	Access
2.	Application
3.	Data Type
4.	Data Type Functions
5.	Date Functions
6.	Excel
7.	File Path
8.	Forms
9.	Language Basics
10.	Math Functions
11.	Outlook
12.	PowerPoint
13.	String Functions
14.	Windows API
15.	Word
16.	XML

Java

Java Tutorial

Java Source Code / Java Documentation

Illustrator Tutorials

GIMP Tutorials

C# / C Sharp

C# / CSharp Tutorial

C# / CSharp Open Source

SQL Server / T-SQL Tutorial

Oracle PL / SQL

Oracle PL/SQL Tutorial

Flash / Flex / ActionScript

XML

XML Tutorial

Microsoft Office PowerPoint 2007 Tutorial

Microsoft Office Excel 2007 Tutorial

Microsoft Office Word 2007 Tutorial

VBA / Excel / Access / Word » Language Basics » Do Until

Use Do Until with if statement


 

Sub doTest1()

    Dim intCounter As Integer

    Dim intTest As Integer



    intTest = 1

    intCounter = 1



    Do Until intTest <> 1

        Debug.Print "This is loop number " & intCounter



        If intCounter >= 5 Then

            intTest = 0

        End If



        intCounter = intCounter + 1

    Loop

End Sub

Related examples in the same category

1.	Do Loop Until
2.	Using the Do...Until Loop
3.	Exit Do Until Loop
4.	Using the Do...Until Loop with a Condition at the Bottom of the Loop

www.java2java.com | Contact Us

All other trademarks are property of their respective owners.