Goto in For-loop

[miklquick]

Dear professionals,

I have a for-loop in which under certain conditions it should skip part of the code and jump to the next increment (Next i). e.g.:

For i = 1 To 3
If i= 2 Then Goto JUMP
Msgbox(i)
JUMP:
Next

A long as the if-condition (i = 2) is not met it works but if i=2 then it goes to JUMP but on reaching "Next" provides a runtime error "syntax error".

Can anyone help me how this can be made. I also tried "if i=2 Then Next i" but this leads to an error upon compilation.

Regards miklquick

 

[petrbury]

As I'm not a "professional" I don't know why it doesn't work. But you can try this way

For i = 1 To 3
If i <> 2 Then Msgbox(i)
Next

Regards Petr

 

[Gianni M]

or

For i=1 To 3
  If i<>2 Then
     Msgbox(i)
  End If
Next i

 

[Cableguy]

Try it this way...

For i = 1 To 3
'do what ever HAS to be done always....
If i= 2 Then
'leving this blank will cause the loop to do nothing
else
'Do what ever is left to be don if the condition was not met
End if
Next

 

[miklquick]

Thank you all for your help.

it appears that the if-clause is the only solution.

I know that "goto"s are not very good and should normally be avoided but in my case it would have made the code easier and shorter as the "MsgBox(i)" stood for a complex code and a further if-clause makes the code even more complex.

Thanks anyway

Miklquick

 

[agraham]

I would have expected that to work as it is jumping within the same scope, and indeed it does work as expected if it is optimised compiled. I think, perhaps wrongly, that it would have worked in the past in the IDE or a legacy app. Maybe Erel has changed something.

 

[Erel]

You can use Exit.

For i = 1 To 3
   If i= 2 Then Exit
   Msgbox(i)
Next

 

[agraham]

You can use Exit

I suspect he wanted the loop to continue and not to end. Has something changed in the last year to cause this to happen or has it always been there?

 

[miklquick]

I suspect he wanted the loop to continue and not to end. Has something changed in the last year to cause this to happen or has it always been there?

you are exactly right agraham, the For-loop should continue!

miklquick

 

[Erel]

Sorry for missing this important point.
Jumping inside loops is technically not supported. It wasn't supported in previous versions as well.
Goto labels can only be in the most upper scope.

 

[klaus]

Hi miklquick,

I don't really understand in what the code with the Goto

For i = 1 To 3
  If i= 2 Then Goto JUMP
    Msgbox(i)
JUMP:
Next

is easier or shorter than giannimaione one's.

For i=1 To 3
  If i<>2 Then
     Msgbox(i)
  End If
Next i

The only difference is the statement i<>2 instead of i=2 and JUMP is replaced by End If.

As the code replacing MsgBox(i) is elatively long you could also use this code to make it better readable:

For i=1 to 3
  If i<>2 Then
    DoSomething
  End If
Next
 
 
Sub DoSomething
  MsgBox(i)
  ...
  ...
End Sub

Anyway there are always several solutions.

Best regards