VBA Help

[jordytheotaku]

I am currently creating a userform on microsoft excel using VBA. This userform is for a car company. I have a text box for the mileage of the car, this text box is named txtmileage. I am trying to figure out how to create a character restriction, making it so only numbers are valid inside the text box and for an error message to appear with a small phrase such as "Sorry, numbers only" should anyone attempt to enter any characters which are not numbers.

Thanks for any help that you can provide
~Jordytheotaku

 

[John_w]

Try this in the userform module:

Private Sub txtmileage_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
        KeyAscii = 0
        MsgBox "Numbers only"
    End If
End Sub

 

[jordytheotaku]

Thank you very much for the help John, I am pleased to say that it worked. However, I now have another problem. I was wondering if anybody knows the VBA code that will set a number limit for the mileage, for example, so that the minimum number allowed is around 9000 to 90,000. I appreciate any help that you can give me

 

[John_w]

Try:

Private Sub txtmileage_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
        KeyAscii = 0
        MsgBox "Numbers only"
    End If
End Sub

Private Sub txtMileage_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(txtMileage.Text) > 5 Then
        Cancel = True
    ElseIf txtMileage.Value < 9000 Or txtMileage.Value > 90000 Then
        Cancel = True
    End If
    If Cancel Then MsgBox "Mileage must be between 9,000 and 90,000"
End Sub