End For Next routine on error

[lifeson]

Morning :hi:
How do end this routine if there is no price?

(without holding down the enter key for ages doh! :whistle: :doh: )


For i = 2 To iLastRow
If Cells(i, "A").Value = sPrem And Cells(i, "D").Value = "CHF" Then
dPrice = Cells(i, "C").Value
MsgBox sPrem & dPrice
Else
MsgBox "No price" 'how do i stop routine here?
End If
Next i

[lifeson]

Well this seems to work

For i = 2 To iLastRow
If Cells(i, "A").Value = sPrem And Cells(i, "D").Value = sProd Then
dPrice = Cells(i, "C").Value
MsgBox sPrem & dPrice
Else
MsgBox "No price"
GoTo GetPrice
End If
Next i
GetPrice:

Is that the correct way?

[johnske]

...Is that the correct way?No, try Exit For


For i = 2 To iLastRow
If Cells(i, "A").Value = sPrem And Cells(i, "D").Value = "CHF" Then
dPrice = Cells(i, "C").Value
MsgBox sPrem & dPrice
Else
MsgBox "No price" 'how do i stop routine here?
Exit For
End If
Next i

[mdmackillop]

Instead of "Goto GetPrice", use "Exit For", which escapes the loop

[lifeson]

No, try Exit For


For i = 2 To iLastRow
If Cells(i, "A").Value = sPrem And Cells(i, "D").Value = "CHF" Then
dPrice = Cells(i, "C").Value
MsgBox sPrem & dPrice
Else
MsgBox "No price" 'how do i stop routine here?
Exit For
End If
Next i


I knew it was too good to be true
:doh:
Thanks for pointing me in the right direction though.