Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Avoiding error on Input Box - if no value is entered
I have a line like this:
MyData = InputBox(Prompt:="Enter Data", Title:="ENTER Data") If the user selects "Cancel", I get a Run-time error 13 - Type Mismatch. How can I avoid this error when the user selects cancel ? Thanks for any help on this. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Avoiding error on Input Box - if no value is entered
InputBox will return 0 if Cancel is pressed.
Make sure you have Dim'ed MyData so as to accept 0 -- Gary''s Student - gsnu200849 "dhstein" wrote: I have a line like this: MyData = InputBox(Prompt:="Enter Data", Title:="ENTER Data") If the user selects "Cancel", I get a Run-time error 13 - Type Mismatch. How can I avoid this error when the user selects cancel ? Thanks for any help on this. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Avoiding error on Input Box - if no value is entered
Check the result and Exit Sub
MyData = InputBox(Prompt:="Enter Data", Title:="ENTER Data") If Trim(MyData) = "" Then Exit Sub OR If you want to force the user to enter something then keep this within a loop Do MyData = InputBox(Prompt:="Enter Data", Title:="ENTER Data") Loop Until Trim(MyData) < "" If this post helps click Yes --------------- Jacob Skaria "dhstein" wrote: I have a line like this: MyData = InputBox(Prompt:="Enter Data", Title:="ENTER Data") If the user selects "Cancel", I get a Run-time error 13 - Type Mismatch. How can I avoid this error when the user selects cancel ? Thanks for any help on this. |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Avoiding error on Input Box - if no value is entered
Sorry about the first post, ignore it. Try:
Sub qwerty() x = InputBox(prompt:="feed me") MsgBox (x) x = Application.InputBox(prompt:="feed me") MsgBox (x) End Sub The first call will return a null string. The second call will retrun FALSE. So MyData must be Dim'ed to handle the null string. -- Gary''s Student - gsnu200849 "dhstein" wrote: I have a line like this: MyData = InputBox(Prompt:="Enter Data", Title:="ENTER Data") If the user selects "Cancel", I get a Run-time error 13 - Type Mismatch. How can I avoid this error when the user selects cancel ? Thanks for any help on this. |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Avoiding error on Input Box - if no value is entered
Oops..If that is a type mismatch check your declaration and adjust the code
as below to handle blanks Dim mydata As Integer mydata = CInt("0" & InputBox(Prompt:="Enter Data", Title:="ENTER Data")) If this post helps click Yes --------------- Jacob Skaria "Jacob Skaria" wrote: Check the result and Exit Sub MyData = InputBox(Prompt:="Enter Data", Title:="ENTER Data") If Trim(MyData) = "" Then Exit Sub OR If you want to force the user to enter something then keep this within a loop Do MyData = InputBox(Prompt:="Enter Data", Title:="ENTER Data") Loop Until Trim(MyData) < "" If this post helps click Yes --------------- Jacob Skaria "dhstein" wrote: I have a line like this: MyData = InputBox(Prompt:="Enter Data", Title:="ENTER Data") If the user selects "Cancel", I get a Run-time error 13 - Type Mismatch. How can I avoid this error when the user selects cancel ? Thanks for any help on this. |
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
Avoiding error on Input Box - if no value is entered
Thanks for all the responses. I used Gary's method, Dim'ed the variable as
Variant and it's working. "Gary''s Student" wrote: Sorry about the first post, ignore it. Try: Sub qwerty() x = InputBox(prompt:="feed me") MsgBox (x) x = Application.InputBox(prompt:="feed me") MsgBox (x) End Sub The first call will return a null string. The second call will retrun FALSE. So MyData must be Dim'ed to handle the null string. -- Gary''s Student - gsnu200849 "dhstein" wrote: I have a line like this: MyData = InputBox(Prompt:="Enter Data", Title:="ENTER Data") If the user selects "Cancel", I get a Run-time error 13 - Type Mismatch. How can I avoid this error when the user selects cancel ? Thanks for any help on this. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Code to Query SQL Server with a parameter value (entered into an Input Box), and have that value also display in a selected cell on a worksheet | Excel Discussion (Misc queries) | |||
Code to Query SQL Server with a parameter value (entered into an Input Box), and have that value also display in a selected cell on a worksheet | Excel Worksheet Functions | |||
Avoiding Value error message due to space in cell w/ formula | Excel Discussion (Misc queries) | |||
Avoiding the dreaded #div/0 error | Excel Worksheet Functions | |||
Input Date when data is entered into another cell | Excel Worksheet Functions |