A simple inputbox & responding msgbox coding
Can you explain the issue referring to the example below...
Sub TestInputBox()
Dim varInput As Variant
InputBox:
varInput = Application.InputBox("Enter your name", Type:=2)
If varInput = False Then
MsgBox "You have cancelled the Operation": Exit Sub
ElseIf varInput = "" Then
MsgBox "Nothing has been entered. Please RETRY": GoTo InputBox
Else
MsgBox "You are " & varInput
End If
End Sub
If this post helps click Yes
---------------
Jacob Skaria
"FARAZ QURESHI" wrote:
I sure woul oblige for the simplest piece of code for an inputbox as:
"Enter Your Name"
1. If nothing is entered and OK is pressed:
msgbox("Nothing has been entered. Please RETRY")
2. If Cancel is pressed:
msgbox("You have cancelled the operation")
3. If something is entered and OK is pressed:
msgbox("You are " & Nme)
I have also found that codes do not work similarly enough in respect of the
TYPE of the inputbox to be Text or Cell Reference/Range Based, i.e. for
Type:=2 or Type:=8 any reference for relevant material on net.
Thanx in advance.
|