View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.misc,microsoft.public.excel.programming
Chip Pearson Chip Pearson is offline
external usenet poster
 
Posts: 7,247
Default Digits in textbox's

Better than SendKeys, use the KeyPress event.


Private Sub TextBox1_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii 57 Then
KeyAscii = 0
End If
End Sub



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"Vasant Nanavati" <vasantn AT aol DOT com wrote in message
...
Is this a TextBox on a UserForm?

Somewhat crude, but try the following:

Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1.Text) Then _
SendKeys "{BACKSPACE}"
End Sub

--

Vasant




"Greg B" wrote in message
...
Hi all just wondering how I can get someone only to type
number in a certain
textbox?

Thanks in advance

Greg