Digits in textbox's
 

Hi all just wondering how I can get someone only to type number in a certain
textbox?

Thanks in advance

Greg

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

Thank you for that

Greg
"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

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

Hi Chip:

I knew there was a better solution but just couldn't get my brain to come up
with it <g.

Regards,

Vasant

"Chip Pearson" wrote in message
...
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