To ensure that the code block executes at least once, place the While keyword and conditional statement at the end of the Do/Loop : Do While « Language Basics « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Language Basics
  3. Do While

To ensure that the code block executes at least once, place the While keyword and conditional statement at the end of the Do/Loop

 
Sub WhileDemo()
    Dim I As Integer
    I = 1
    Do
           Cells(I, "B").Value = Cells(I, "A").Value
           I = I + 1
    Loop While Cells(I, "A").Value <> ""
End Sub








Related examples in the same category

1.Do Loop While
2.Use Integer variable as the loop control variable
3.Do while loop
4.Using the Do...While Loop
5.Using the Do...While Loop with a Condition at the Bottom of the Loop
6.Use if statement in a do loop
7.Put InputBox in a Do Loop
8.A counting variable I is initialized just prior to the loop and incremented inside the loop
9.Execute the code block until the conditional statement is True.