inputbox msgbox error

L

lost again

I have already recieved some help on this one, but now if the user hits the cancel button or enters no value it results in an error/ debug box
I would like it to exit the macro when the cancel button is pressed, and if a value is not entered to display a msgbox telling you that a value was not entered
Can you help me with an if statement or on error line

Here is what I have

Sub standard1(

fconc = InputBox("Enter final conc. (ug/ml or ng/ul)"
fvol = InputBox("Enter final volume (ml)"
sconc = InputBox("Enter conc. of standard (ug/ml or ng/ul)"

MsgBox Format(fconc * fvol / sconc, "#,##0.00") & " ul

End Su

Thanks in advanc
 
F

Frank Kabel

Hi
try something like

Dim fconc
fconc = application.InputBox("Enter final conc. (ug/ml or ng/ul)")
if fconc = False then
msgbox "Cancel was hit"
exit sub
end if
'...
 
P

pikus

Sub standard1()

fconc = InputBox("Enter final conc. (ug/ml or ng/ul)")
fvol = InputBox("Enter final volume (ml)")
sconc = InputBox("Enter conc. of standard (ug/ml or ng/ul)")

If fconc = "" Or fvol = "" Or sconc = "" Then
Exit Sub
End If

MsgBox Format(fconc * fvol / sconc, "#,##0.00") & " ul"

End Sub

- Piku
 
L

lost again

Thanks guys, I keep getting hung up on proper "wording"
You were both a great hel
Thanks again!!
 
Top