Excel inputbox

[Nikita0303]

Hi, I wanted to know if the user input thru excel inputbox can be restricted to limited values.
I am trying to run some analysis on columns with numeric data. But the column has to be input by the user. is there any way by which I can make the inputbox function as a combo box.

Thanks,
nikita

[kadghar]

Hi, I wanted to know if the user input thru excel inputbox can be restricted to limited values.
...

i dont know if that's possible, but you can ask the inputbox to be a double and dont let the user continue until he writes a number in the inputbox.

this little code might be of help:

Sub test()
Dim Dou1 As Double
On Error Resume Next 'ignore the errors
Do
    Dou1 = InputBox("write some number")
    If Err.Number <> 13 Then Exit Do 'err 13 is for data type
    MsgBox "Please enter a numeric value"
    Err.Number = 0 'Clean the error
Loop
On Error GoTo 0 'stop ignoring the errors
End Sub

hth

[Nikita0303]

i dont know if that's possible, but you can ask the inputbox to be a double and dont let the user continue until he writes a number in the inputbox.

this little code might be of help:

Sub test()
Dim Dou1 As Double
On Error Resume Next 'ignore the errors
Do
    Dou1 = InputBox("write some number")
    If Err.Number <> 13 Then Exit Do 'err 13 is for data type
    MsgBox "Please enter a numeric value"
    Err.Number = 0 'Clean the error
Loop
On Error GoTo 0 'stop ignoring the errors
End Sub

hth

Thanks for giving me the start. I could almost get thru (except that i cannot get the look of a combo). Heres the code.

Sub test()
Dim Dou1 As Double
Dim nik As Variant
Dim i As Integer
 
nik = Array(1, 3, 5, 8, 9)
Do
    Dou1 = InputBox("write some number [1/3/5/8/9]")
    For i = LBound(nik) To UBound(nik)
        If Dou1 = nik(i) Then
            MsgBox "Great!"
            End
        End If
    Next i
    MsgBox "Wrong Input!"
Loop
End Sub

Any inputs??