TextBox Only Numbers VBA

[GeorgeWhite]

Hi All,

I currently use this code to only allow users to type numbers into the text box on my userform, I need some help with how I can modify this so the users are also blocked from putting zeros at the beginning of there data?

Private Sub OnlyNumbers()
    If TypeName(Me.ActiveControl) = "TextBox" Then
    
        With Me.ActiveControl
        
    If Not IsNumeric(.Value) And .Value <> vbNullString Then
    
    MsgBox "Sorry, only numbers allowed", vbInformation
        
        .Value = vbNullString
        End If
        
        End With
        
        End If


End Sub

Many thanks

 

[Fluff]

How about

Private Sub OnlyNumbers()
   If TypeName(Me.ActiveControl) = "TextBox" Then
   
      With Me.ActiveControl
        [COLOR=#ff0000] .Value = CDbl(.Value)[/COLOR]
         If Not IsNumeric(.Value) And .Value <> vbNullString Then
         
            MsgBox "Sorry, only numbers allowed", vbInformation
            
            .Value = vbNullString
         End If
        
      End With
   
   End If

End Sub

Have a look here for a word of warning about IsNumeric
http://www.excelfox.com/forum/showt...sing-VBA-s-IsNumeric-Function-Read-this-first

 

[MickG]

Another Option:-

Private [COLOR="Navy"]Sub[/COLOR] TextBox1_KeyPress(ByVal KeyAscii [COLOR="Navy"]As[/COLOR] MSForms.ReturnInteger)
    [COLOR="Navy"]If[/COLOR] Len(TextBox1) = 0 [COLOR="Navy"]Then[/COLOR]
        KeyAscii = KeyAscii * -CLng(Chr(KeyAscii) Like "[1-9]")
    [COLOR="Navy"]Else[/COLOR]
        KeyAscii = KeyAscii * -CLng(Chr(KeyAscii) Like "[0-9]")
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[GeorgeWhite]

This works great thanks!!

Another Option:-

Private [COLOR=Navy]Sub[/COLOR] TextBox1_KeyPress(ByVal KeyAscii [COLOR=Navy]As[/COLOR] MSForms.ReturnInteger)
    [COLOR=Navy]If[/COLOR] Len(TextBox1) = 0 [COLOR=Navy]Then[/COLOR]
        KeyAscii = KeyAscii * -CLng(Chr(KeyAscii) Like "[1-9]")
    [COLOR=Navy]Else[/COLOR]
        KeyAscii = KeyAscii * -CLng(Chr(KeyAscii) Like "[0-9]")
    [COLOR=Navy]End[/COLOR] If
[COLOR=Navy]End[/COLOR] [COLOR=Navy]Sub[/COLOR]

Regards Mick

 

[MickG]

You're welcome