allow a Numeric only UserForm Textbox to start with a Decimal "."

**DoriBeE** · 03-03-2011, 12:15 PM

i have the textboxes validated as numeric only so to enter anything less than 1 whole, you have to start off with 0.

For example: instead of entering .5 you have to enter 0.5... I don't want to hear any complaints for the people using this form lol

I have the following codes:
1. This adds the value of each textbox as they change...

Sub RealTime()
txtEntry = Val(txt1) / 100 + Val(txt2) / 100 + Val(txt3) / 100 + Val(txt4) / 100 + Val(txt5) / 100 + Val(txt6) / 100 + Val(txt7) / 100 + Val(txt8) / 100 + Val(txt9) / 100 + Val(txt10) / 100
End Sub

2. This is just one of the 10 textboxes, when ever they are updated/changed they call in the realtime sub to update the sum of all the values (boxes 1 - 10).

Private Sub txt1_Change()
Call RealTime
If txt1 <> vbNullString Then

    If Not IsNumeric(Me.txt1.Value) Then
      MsgBox "Please enter Numbers Only"
      txt1.SetFocus
    Else
     Call RealTime
    End If
End If
End Sub

if i start off the entry with a decimal (.5) i get the error, but can continue entering, how can i get it to accept the decimal in the begining of the entry (.5), rather than having to type 0.5 ?

**Leith Ross** · 03-03-2011, 02:59 PM

Hello DoriBeE,

This change to your macro will allow a period as the first character.

Private Sub TextBox1_Change()
 
  If txt1 <> vbNullString Then

    If Left(txt1, 1) = "." And Len(txt1.Text) = 1 Then Exit Sub
    
    If Not IsNumeric(txt1.Value) Then
      MsgBox "Please enter Numbers Only"
      txt1.Value = ""
      txt1.SetFocus
    Else
      Call RealTime
    End If
    
  End If

End Sub