asked on
Configure input box on VBA
Hi, I'm trying to create an input box that will exit the sub if the user clicks on "cancel". Here is my current code, but it ends the sub when the user does not key in anything and clicks 'OK'.
How do I improve it such that clicking "cancel" will exit the sub, yet clicking "ok" when the user had not keyed in anything will prompt a different message ("Please key in Item code")?
Thanks in advance!
Dim strInput As String
strInput = InputBox("Key in Item code")
If strInput = vbNullString Then
MsgBox ("Cancelled by User")
Exit Sub
End If
How do I improve it such that clicking "cancel" will exit the sub, yet clicking "ok" when the user had not keyed in anything will prompt a different message ("Please key in Item code")?
Thanks in advance!
VBA
Last Comment
Pearlyn Tan
try use function StrPtr:
Dim strInput As String
strInput = InputBox("Key in Item code")
If StrPtr(strInput) = 0 Then
MsgBox ("Cancelled by User")
Exit Sub
End If
Corrected code
Dim strInput As String
strInput = Application.InputBox("Key in Item code")
If strInput = "False" Then
MsgBox ("Cancelled by User")
Exit Sub
End If
Do
strInput = Application.InputBox("Please Key in Item code")
If strInput = "False" Then
MsgBox ("Cancelled by User")
Exit Sub
End If
Loop While strInput = ""
ASKER CERTIFIED SOLUTION
THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
SOLUTION
THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
ok, but the code will error if user keyed in "False", it makes an expression that it was cancelled by user while user actually entered "False".
ASKER
Hi Rgonzo1971 and Ryan, thanks so much for both your codes, all worked perfectly. Personally preferred one with a message box prompt if user clicks ok with no input, but nonetheless I appreciate both. Thank you!
pls try
Open in new window
Regards