Multiple loops in one macro

[Ejimenez]

Can you have multiple loops in one macro that does different things. If so, how can you end one loop to start the other loop.. I tried using the work loop but it gives me an error.

 

[tweedle]

Exit Do get you out of a Do While/Until loop
Exit For geys you out of a For/Next loop

Several looping examples:

Sub Foo()

    x = 0
    l = 1
    Do
        x = x + 1
        DoEvents
    Loop While x < 10
    MsgBox "Value: " & x, vbOKOnly, "Loop: " & l & " results"
    
    l = l + 1
    Do
        x = x + 1
        DoEvents
    Loop Until x > 15
    MsgBox "Value: " & x, vbOKOnly, "Loop: " & l & " results"

    l = l + 1
    Do Until x > 19
        x = x + 1
        DoEvents
    Loop
    MsgBox "Value: " & x, vbOKOnly, "Loop: " & l & " results"
    
    l = l + 1
    Do While x > 10
        x = x - 1
        If x = 12 Then Exit Do
        DoEvents
    Loop
    MsgBox "Value: " & x, vbOKOnly, "Loop: " & l & " results"

End Sub

 

[JLGWhiz]

Here are three types of loops. You can find a lot of information on the web in free tutorials. Just type in "VBA loops tutorial" in your browser and enter.

Code:
Dim c As Range
For Each c In Range("A2:A5")
If c <> "" Then
MsgBox "Something There"
Else
MsgBox "Blank"
End If
Next
Code:

For Specified value loop:

Code:
Dim i As Long
For i = 2 To 5
If ActiveSheet.Cells(i, 1) <> "" Then
MsgBox "Something There"
Else
MsgBox "Blank"
End If
Next
Code:

Do Loop

Code:
Dim Counter As Long
counter = 2
Do While counter < 6
If Range("A" & counter) <> "" Then
MsgBox "Something There
Else
MsgBox "Blank"
End If
Loop
Code:

All three do the same thing. Each one is limited in the number of time is will loop by the parameters in the For or Do line of the code. Each one will only check cells A2:A5 for a value and display a message box based on what it finds. You can run loops consecutively or you can nest them. A Nested loop would be like:

Code:
Dim r As Range
For Each r In Range("A2:A5")
r = 1 + r.Offset(-1, 0).Value
For i = 2 To 5
ActiveSheet.Cells(i, r + 1) = r.Value + 1
Next
Next
Code: