DRJ
MrExcel MVP
- Joined
- Feb 17, 2002
- Messages
- 3,853
Hi
I am trying to restrict text in a textbox on a userform. So I use
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
This works fine, but I have like 20 textboxs on one userform and I wanted to not have to put this code 20 seperate times.
I tried
Private Sub Userform1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
but it didnt seem to work. Like I said it will work fine if I report the code 20 times once for each textbox, but is there a simple way to include all the textboxs as one?
Thanks
Jacob
I am trying to restrict text in a textbox on a userform. So I use
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
This works fine, but I have like 20 textboxs on one userform and I wanted to not have to put this code 20 seperate times.
I tried
Private Sub Userform1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
but it didnt seem to work. Like I said it will work fine if I report the code 20 times once for each textbox, but is there a simple way to include all the textboxs as one?
Thanks
Jacob