ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   inputbox msgbox error (https://www.excelbanter.com/excel-programming/295087-inputbox-msgbox-error.html)

lost again

inputbox msgbox error
 
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


Frank Kabel

inputbox msgbox error
 
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
'...



--
Regards
Frank Kabel
Frankfurt, Germany


lost again wrote:
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 Sub

Thanks in advance


pikus

inputbox msgbox error
 
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

--
Message posted from http://www.ExcelForum.com


lost again

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



All times are GMT +1. The time now is 11:29 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com