Continue For loop

Question

I have the following code   For x   LBound arr  To UBound arr       sname   arr x        If instr sname   Configuration item   Then               here i want to go to next x in loop and not complete the code below               other code to copy past and do various stuff  Next x     So I thought I could simply have the statement Then Next x  but this gives a  no for statement declared  error   So what can I put after the If instr sname   Configuration item   Then to make it proceed to the next value for x

User · Accepted Answer

You re thinking of a continue statement like Java s or Python s  but VBA has no such native statement  and you can t use VBA s Next like that    You could achieve something like what you re trying to do using a GoTo statement instead  but really  GoTo should be reserved for cases where the alternatives are contrived and impractical    In your case with a single  continue  condition  there s a really simple  clean  and readable alternative       If Not InStr sname   Configuration item   Then             other code to copy paste and do various stuff     End If

User · Answer

A few years late  but here is another alternative   For x   LBound arr  To UBound arr      sname   arr x        If InStr sname   Configuration item   Then            Do nothing here  which automatically go to the next iteration     Else          Code to perform the required action     End If Next x

User · Answer

For the case you do not use  quot DO quot   this is my solution for a FOR EACH with nested If conditional statements  For Each line In lines     If  lt 1st condition gt  Then          lt code if 1st condition gt          If  lt 2nd condition gt  Then             If  lt 3rd condition gt  Then                 GoTo ContinueForEach             Else                  lt code else 3rd condition gt              End If         Else              lt code else 2nd condition gt          End If     Else          lt code else 1st condition gt      End If ContinueForEach  Next

User · Answer

A lot of years after    I like this one   For x   LBound arr  To UBound arr   Do      sname   arr x        If instr sname   Configuration item   Then Exit Do           other code to copy past and do various stuff  Loop While False  Next x

User · Answer

You can use a GoTo   Do           do stuff your loop will be doing        skip to the end of the loop if necessary      If  lt condition-to-go-to-next-iteration gt  Then GoTo ContinueLoop            do other stuff if the condition is not met  ContinueLoop  Loop

User · Answer

I sometimes do a double do loop   Do      Do          If I Don t Want to Finish This Loop Then Exit Do          Exit Do      Loop  Loop Until Done   This avoids having  goto spaghetti

User · Answer

For i 1 To 10     Do           Do everything in here and          If I Dont Want Finish This Loop Then             Exit Do         End If            Of course  if I do want to finish it           I put more stuff here  and then         Loop While False  quit after one loop Next i

User · Answer

you can do that by simple way  simply change the variable value that used in for loop to the end value as shown in example  x000D   x000D  Sub TEST ONLY           For i   1 To 10             ActiveSheet Cells i  1  Value   i             If i   5 Then                 i   10             End If         Next i End Sub x000D   x000D   x000D

User · Answer

This can also be solved using a boolean    For Each rngCol In rngAll Columns     doCol   False   lt      Resets to False at top of each column     For Each cell In Selection         If cell row   1 Then             If thisColumnShouldBeProcessed Then doCol   True         End If         If doCol Then              Do what you want to do to each cell in this column         End If     Next cell Next rngCol   For example  here is the full example that   1  Identifies range of used cells on worksheet  2  Loops through each column  3  IF column title is an accepted title  Loops through all cells in the column  Sub HowToSkipForLoopIfConditionNotMet       Dim rngCol  rngAll  cell As Range  cnt As Long  doCol  cellValType As Boolean     Set rngAll   Range  A1   CurrentRegion      MsgBox R Address 0  0      All data      cnt   0     For Each rngCol In rngAll Columns         rngCol Select         doCol   False         For Each cell In Selection             If cell row   1 Then                 If cell Value    AnAllowedColumnTitle  Then doCol   True             End If             If doCol Then   lt                THIS LINE                            cnt   cnt   1                 Debug Print       amp  cell Value  amp       amp         amp  cell Address  amp         amp  cell Column  amp         amp  cell row                  If cnt  gt  5 Then End   lt     NOT NEEDED  Just prevents too much demo output              End If         Next cell     Next rngCol End Sub   Note  If you didn t immediately catch it  the line If docol Then is your inverted CONTINUE  That is  if doCol remains False  the script CONTINUES to the next cell and doesn t do anything   Certainly not as fast efficient as a proper continue or next for statement  but the end result is as close as I ve been able to get

[vba] Continue For loop

Examples related to vba

Examples related to loops

Examples related to for-loop

Examples related to next