Userform Value <>

[drc2265]

Hello,

I currently have the following:

Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox9.Value Like "*[!0-9]*" Then
MsgBox "You must provide a numeric value in this TextBox!"
Cancel = True
ElseIf TextBox9.Value > 2 Then
MsgBox "Invalid Pick!"
Cancel = True
ElseIf TextBox9.Value < 1 Then
MsgBox "Invalid Pick!"
Cancel = True
End If
End Sub

I would like to add to this that the only other accepted value would be 999. So only values entered can be 1, 2, or 999.
Appreciate any help.

Thanks,
DC

 

[My Aswer Is This]

I see you have posted this same similar question here twice now tonight.

Please just tell me what your wanting to do and I will see if I can help you.

Are you saying only 1 2 or 999 can be entered into the textbox?
If anything else is entered show a message box.

 

[My Aswer Is This]

Try this:

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Modified  9/11/2018  9:10:51 PM  EDT
If TextBox2.Value <> 1 And TextBox2.Value <> 2 And TextBox2.Value <> 999 Then
    MsgBox "Your only allowed to enter 1 2 or 999" & vbNewLine & "You entered  " & TextBox2.Value
End If
End Sub

 

[drc2265]

Works great thank you! Is there any way to setfocus on the textbox that had the invalid entry? It is currently going to the next textbox for entry.
Thanks again!!

 

[My Aswer Is This]

Try this:

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Modified  9/18/2018  9:46:51 PM  EDT
If TextBox2.Value <> 1 And TextBox2.Value <> 2 And TextBox2.Value <> 999 Then
    MsgBox "Your only allowed to enter 1 2 or 999" & vbNewLine & "You entered  " & TextBox2.Value
    Cancel = True
End If
End Sub