TextBox Validation

[markoakes]

I have a textbox on a userform that I would like to only allow numbers to be entered. How do I set up Validation for numbers only?

 

[kskinne]

something along these lines would work:

Private Sub TextBox1_AfterUpdate()
If TextBox1.Value = "" Then Exit Sub
Select Case IsNumeric(TextBox1.Value)
    Case True
    MsgBox "OK"
    Case False
    MsgBox "Not OK"
    Case Else
End Select
End Sub

just customize it to suit your needs on what you want to happen when the condition is met or not met


hth
kevin

 

[Joe4]

Here is another way. I usually put a command button on my form, that when clicked will go through and verify all entries. So if we just have a command button and a text box on the form, the code would look something like:

Private Sub CommandButton1_Click()
    
    If Not IsNumeric(TextBox1) Then
        MsgBox "Only numbers may be entered in the text box"
        TextBox1.Value = ""
    End If

End Sub

 

[markoakes]

Thanks, both work great.