Numbers Only in input box

[Greg]

Hi all,

Just wondering how I can have the following code to check if the answer is
only in numeric form?

dim Checker

checker = inputbox("What is the player's registration number?")


Thanks in advance

Greg

 

[Greg]

Sorry just to add to that if the answer is not right can it be looped back
to the inputbox again

Thanks

Greg

 

[Chip Pearson]

The following code will loop until the user enters a number greater than 10.
Note that the code uses Excel's InputBox method, not the standard VBA
InputBox function. The 'Application.' is required.

Dim D As Double
Do Until D > 10
D = Application.InputBox(prompt:="Enter a number.", Type:=1)
Loop


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)

 

[Guest]

you could try the inputbox method (versus inputbox function). it will
restrict the input to numbers, but you still have to check to see if they
canceled the inputbox.

Sub test()
Dim checker As Long

checker = Clng(Application.InputBox("What is the player's registration
number?", Type:=1))
If checker = 0 Then Exit Sub

End Sub

 

[Greg]

Thanks for that Chip will try

Greg

The following code will loop until the user enters a number greater than
10. Note that the code uses Excel's InputBox method, not the standard VBA
InputBox function. The 'Application.' is required.

Dim D As Double
Do Until D > 10
D = Application.InputBox(prompt:="Enter a number.", Type:=1)
Loop


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)

 

[Greg]

Thanks for that it works great

Greg

Thanks for that Chip will try

Greg