Morning
How do end this routine if there is no price?
(without holding down the enter key for ages doh!
)
[vba]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[/vba]
Well this seems to work
[vba]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:[/vba]
Is that the correct way?
No, try Exit ForOriginally Posted by lifeson
[vba]
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
[/vba]
You know you're really in trouble when the light at the end of the tunnel turns out to be the headlight of a train hurtling towards you
The major part of getting the right answer lies in asking the right question...
Made your code more readable, use VBA tags (this automatically inserts [vba] at the start of your code, and [/vba ] at the end of your code) | Help those helping you by marking your thread solved when it is.
Instead of "Goto GetPrice", use "Exit For", which escapes the loop
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
I knew it was too good to be true
Thanks for pointing me in the right direction though.
Posting Permissions
Reply With Quote
