VBA: Selecting values in an interval by using the InputBox

[mathgirl09]

Hi!
I'd like to know if there's a way to create an InputBox to ask for 2 values but these values must range from (1 to 20) by excluding the interval (5 to 15) inclusively. If the values are in the interval (5 to 15), a MsgBox must appear and tell to retry :

MsgBox("The value entered is in the interval (5,15). Try again.")

Also value#1 must be smaller than value#2, if not a MsgBox will appear again:

MsgBox ("Value#1 is larger than value#2. Try again.")

Then, the end result will be =value1/value2.

Thank you!

 

[Michael M]

I'm guessing there is way more to this, but here goes

Sub MM1()
str1 = Application.InputBox("Enter a number below 5 and above zero", "Numbers required", Type:=1)
Str2 = Application.InputBox("Enter a number above 15 and below 20", "Numbers required", Type:=1)
If str1 > Str2 Then
    MsgBox ("Value#1 is larger than value#2. Try again.")
    Exit Sub
End If
If str1 > 4 Or Str2 < 16 Then
    MsgBox ("The value entered is in the interval (5,15). Try again.")
    Exit Sub
End If

End Sub

 

[mathgirl09]

Thank you! It helped me a lot!