Resume Next statement on IF condition

[londolozi]

Hi my problem is with nested For and If statements

For Leg1rns = 2 To Runs1 + 1
NoLeg1 = Data.Cells(Leg1rns, 3).Value

For Leg2rns = 2 To Runs2 + 1
    NoLeg2 = Data.Cells(Leg2rns, 5).Value
        If NoLeg2 = NoLeg1 Then ???? 'Step the For statement count (Leg2rns) if true
        
For Leg3rns = 2 To Runs3 + 1
    NoLeg3 = Data.Cells(Leg3rns, 7).Value
        If NoLeg3 = NoLeg1 Or NoLeg3 = NoLeg2 Then ???? 'Same as Leg2rns

Next Leg3rns
Next Leg2rns
Next Leg1rns

I am trying to test a condition within a For Next loop however the Next loop is also at the end of the testing. Is this achievable?

Any ideas

 

[Richard Schollar]

I have tried to understand what it is you are asking but have so far failed I'm afraid - can you explain me fully what it is you want to achieve?

 

[villy]

What exactly do you want as output?

 

[londolozi]

I need and equivalent of "Continue" in VBA

For a = 1 to 10 
If b = c then Continue For
If b <> c then Goto 10
10: [I]Action[/I]
Next a

 

[Richard Schollar]

Surely that's what the If itself does?

For a = 1 to 10
  If b<>c Then
     'lines of action code
  End if
Next a

 

[villy]

Something like this?

For Leg1rns = 2 To Runs1 + 1
NoLeg1 = Data.Cells(Leg1rns, 3).Value
gobackhere:
    For Leg2rns = 2 To Runs2 + 1
    NoLeg2 = Data.Cells(Leg2rns, 5).Value
        If NoLeg2 = NoLeg1 Then
            Leg2rns = Leg2rns + 1
            GoTo gobackhere
        Else
            For Leg3rns = 2 To Runs3 + 1
            NoLeg3 = Data.Cells(Leg3rns, 7).Value
                If NoLeg3 <> NoLeg1 Or NoLeg3 <> NoLeg2 Then Exit For 'If true it will go back to Leg2rns
            Next Leg3rns
        End If
    Next Leg2rns
Next Leg1rns

 

[londolozi]

Thanks Villy
Appreciate your time