Error Handling on InputBoxes

[cdhoughton]

What kind of error handling procedures are available on inputboxes? Principally I need the following validation:

1) The user must enter an integer value
2) The user must enter a percentage value
3) The user cannot press cancel or leave a blank entry

Any pointers on the above problems?

Thanks in advance for any advice!

 

[DRJ]

You can do something like

Dim x as Integer

on error resume next
x=Inputbox("Input a number")
if err <> = then
msgbox "Error"
else
end if
on error goto 0

Of course you can do whatever you want to handle the error and not just a message box.

For percentage you could have x be a single (Dim x as Single) and do the same thing.

For blank entry you can try

If len(x)=0 then etc...

 

[cdhoughton]

Cheers for the pointers!!

 

[DRJ]

If you get stuck post back with what you specifically want to happen if the wrong data is inputted.

Take Care

 

[cdhoughton]

Hi Jacob,

It's not letting me have:

If err <> = Then

It's complaining of expecting an expression. Can you help?

 

[dk]

Hi,

If err <> = Then should be

If err <> 0 Then

An alternative is to use the inputbox function supplied by Excel. It has several advantages over the VBA inputbox:-

<ul>
[*]You can specify what sort of data you want to allow e.g. numbers, text, a range.
[*]It allows you to specifically capture the user pressing cancel, something that the inputbox doesn't do very well.

Here's some sample code:-

Sub EnterNumber()
    Dim vRetval As Variant

    vRetval = Application.InputBox("Enter a number", "Inputbox Demo")

    If vRetval = False Then Exit Sub    'Cancel was pressed

    If vRetval - Int(vRetval) <> 0 Then

        MsgBox "A non-integer number was entered"

    Else

        MsgBox "You entered an integer"

    End If


End Sub

 

[DRJ]

That was a typo

Try

If err <> 0 Then