Differentiate between False and Zero for Input Box return?
Hi Everyone,
I've got an input box that asks a question and I have the default set for zero. I'd like to write some follow up logic that reverts back to the beginning if the cancel button is chosen, but I'd like to keep the zero value as true. Is there anyway to do this? I've included the code below. As always I really appreciate the help. Dim Sulfur As String Sulfur = Application.InputBox("If you do not have any of this isotope in your lab, please enter 0 and press OK", "35S", 0) Range("G33") = Sulfur If Sulfur = False Then MsgBox "You clicked Cancel. Please try again.", 64, "Cancel was clicked." GoTo Sulfur ElseIf Sulfur = 0 Then GoTo P32 Else GoTo P32 End If Thanks, Chad |
Differentiate between False and Zero for Input Box return?
Sub test()
Dim vResult As Variant vResult = Application.InputBox("input or cancel") If VarType(vResult) = vbBoolean Then MsgBox "user cancelled" Else: MsgBox vResult End If End Sub Regards, Peter T "Chadersmith" wrote in message ... Hi Everyone, I've got an input box that asks a question and I have the default set for zero. I'd like to write some follow up logic that reverts back to the beginning if the cancel button is chosen, but I'd like to keep the zero value as true. Is there anyway to do this? I've included the code below. As always I really appreciate the help. Dim Sulfur As String Sulfur = Application.InputBox("If you do not have any of this isotope in your lab, please enter 0 and press OK", "35S", 0) Range("G33") = Sulfur If Sulfur = False Then MsgBox "You clicked Cancel. Please try again.", 64, "Cancel was clicked." GoTo Sulfur ElseIf Sulfur = 0 Then GoTo P32 Else GoTo P32 End If Thanks, Chad |
Differentiate between False and Zero for Input Box return?
Thanks Peter!
"Peter T" wrote: Sub test() Dim vResult As Variant vResult = Application.InputBox("input or cancel") If VarType(vResult) = vbBoolean Then MsgBox "user cancelled" Else: MsgBox vResult End If End Sub Regards, Peter T "Chadersmith" wrote in message ... Hi Everyone, I've got an input box that asks a question and I have the default set for zero. I'd like to write some follow up logic that reverts back to the beginning if the cancel button is chosen, but I'd like to keep the zero value as true. Is there anyway to do this? I've included the code below. As always I really appreciate the help. Dim Sulfur As String Sulfur = Application.InputBox("If you do not have any of this isotope in your lab, please enter 0 and press OK", "35S", 0) Range("G33") = Sulfur If Sulfur = False Then MsgBox "You clicked Cancel. Please try again.", 64, "Cancel was clicked." GoTo Sulfur ElseIf Sulfur = 0 Then GoTo P32 Else GoTo P32 End If Thanks, Chad . |
Differentiate between False and Zero for Input Box return?
Try Dim S As String S = InputBox("prompt", "title", 0) If StrPtr(S) = 0 Then Debug.Print "cancel" Else Debug.Print S End If Cordially, Chip Pearson Microsoft MVP 1998 - 2010 Pearson Software Consulting, LLC www.cpearson.com [email on web site] On Mon, 25 Jan 2010 09:21:02 -0800, Chadersmith wrote: Hi Everyone, I've got an input box that asks a question and I have the default set for zero. I'd like to write some follow up logic that reverts back to the beginning if the cancel button is chosen, but I'd like to keep the zero value as true. Is there anyway to do this? I've included the code below. As always I really appreciate the help. Dim Sulfur As String Sulfur = Application.InputBox("If you do not have any of this isotope in your lab, please enter 0 and press OK", "35S", 0) Range("G33") = Sulfur If Sulfur = False Then MsgBox "You clicked Cancel. Please try again.", 64, "Cancel was clicked." GoTo Sulfur ElseIf Sulfur = 0 Then GoTo P32 Else GoTo P32 End If Thanks, Chad |
All times are GMT +1. The time now is 04:01 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com