A simple inputbox & responding msgbox coding
 

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.

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.

A simple inputbox & responding msgbox coding
 

Thanx Jacob,

I don't understand why my previous reply didn't appear, however, would only
a Variant Data Type be used even when a String is expected as an input?

"Jacob Skaria" wrote:

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.

A simple inputbox & responding msgbox coding
 

Application.InputBox returns a Boolean for Cancel. So dimensioning the
variable as Variant equips the variable to handle both scenarios.

On the otherhand InputBox returns a vbNullString ("")

If this post helps click Yes
---------------
Jacob Skaria


"FARAZ QURESHI" wrote:

Thanx Jacob,

I don't understand why my previous reply didn't appear, however, would only
a Variant Data Type be used even when a String is expected as an input?

"Jacob Skaria" wrote:

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.

A simple inputbox & responding msgbox coding
 

Dear Faraz

Your reply has gone to the post just below...It happens with me too quite
often...

If this post helps click Yes
---------------
Jacob Skaria


"FARAZ QURESHI" wrote:

Thanx Jacob,

I don't understand why my previous reply didn't appear, however, would only
a Variant Data Type be used even when a String is expected as an input?

"Jacob Skaria" wrote:

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.