Need Input Box to only Accept Numeric Values

[audreyanderson1]

Help! I need a way to only allow numeric values to be accepted by an
input box. My code starts with


inputNum = InputBox("Please enter the part number", "Part Number",
0)
x = Val(inputNum)


I'm using a vlookup to make sure a input number is valid, but not sure
how to go about it if letters were input. The program should not go
any further if an alpha string is entered. How do I check for this??

Thank you!

 

[audreyanderson1]

Sorry one other note....This is VBA for Excel.

 

[zz]

see if this work:


x=inputbox("the prompt","the title")
if isnumber(X) then
all_correct
else
start_from_beginning_and_this_time_write_it_well
end if

 

[Tom Ogilvy]

There are two different inputboxes. Use the Excel Inputbox instead:

Sub abc()
Dim x As Long

x = Application.InputBox("Please enter the part number", _
"Part Number", 0, Type:=1)

End Sub

 

[VBA Noob]

Could you try

inputNum = Application.InputBox("Please enter the part number", "Part
Number", Type:=1)

VBA Noob

 

[Guest]

Hi!

Try this one

inputNum = Application.InputBox("Please enter the part number", _
"Part Number", , , , , , 1)

Regards
Kari J Keinonen

 

[Guest]

if isnumber(X) then

I think you mean isnumeric(x) or application.isnumber(x)