Input Box code help

[Greg B]

I am hoping for some help, I have an inputbox that asks for the amount
between 0 and 21 the trouble I am having is how to write the code. here is
what I am trying

Do While Sheet2.Range("A21").Value = 0
Dim G1
G1 = InputBox("WHAT WAS THE SCORE FOR THE " & Sheet2.Range("B10").Value & "
AGAINST THE " & Sheet2.Range("B11").Value & " FOR THIS ROUND?")
If G1 > 0 Or G1 < 21 Then
MsgBox "THE SCORES MUST BE BETWEEN 0 AND 21", vbInformation
Else
Sheet2.Range("B21").Value = G1
End If

I have made a mistake somewhere and can not put my finger on it. I need the
code to warn that the number is not between 0 and 21 and if it is not in
these number to loop until the answer is correct.

Thanks

Greg

 

[Greg B]

Sorry just noticed what i have done helps if I learn greater and less than

Thanks
Greg

 

[Bob Phillips]

Dim G1 As Variant
Do
G1 = InputBox("WHAT WAS THE SCORE FOR THE " & Sheet2.Range("B10").Value
& _
"AGAINST THE " & Sheet2.Range("B11").Value & " FOR THIS ROUND?")
If (G1 <= 0 Or G1 >= 21) And G1 <> "" Then
MsgBox "THE SCORES MUST BE BETWEEN 0 AND 21", vbInformation
End If
Loop Until (G1 > 0 And G1 < 21) Or G1 = ""
If G1 <> "" Then
Sheet2.Range("B21").Value = G1
End If


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Jon Peltier]

Change this:

If G1 > 0 Or G1 < 21 Then

to this:

If G1 <= 0 Or G1 > 21 Then

and add "Loop" after "End If"

- Jon

 

[Greg B]

Thanks for the help

Greg B

Change this:

If G1 > 0 Or G1 < 21 Then

to this:

If G1 <= 0 Or G1 > 21 Then

and add "Loop" after "End If"

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. - http://PeltierTech.com
_______