InputBox

B

banavas

Dear friends,
I want to check whether the entry in an inputbox is not error, nothin
or zero
I tried the following code but did not work.
Do you have any suggestions?
Thanks,
G

x = InputBox("Enter value of " & Range("B1").Value & ".", "GNB")

' Invalid entry
If IsError(x) Or IsEmpty(x) Or IsNull(x) Then
MsgBox ("Invalid Entry!")
x = InputBox("Enter Value of" & Range("B1").Value & "."
"GNB")
Print #1, "Value Entered for "; Range("B1").Value; " is "; x
End I
 
M

mangesh_yadav

Well, I can't imagine how a person will enter an error in the input box
but for the other two things (i.e. empty and zero) you can use th
following:

If (x = 0 Or x = "") Then

- Manges
 
Top