Numeric code in textbox

[jdasp49]

‘===================================================================
Private Sub txtA_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'’Only Numbers in textbox 0r simples signs
   Select Case KeyAscii
      Case Asc("0") To Asc("999")
      Case Asc(".")
              If InStr(1, txtA.Value, ".") > 0 Then
                 KeyAscii = 0
              End If
       Case Asc(",")
               If InStr(1, txtA.Value, ",") > 0 Then
                  KeyAscii = 0
              End If
      Case Else
              KeyAscii = MsgBox("SORRY! Introduce just numbers")
   End Select
End Sub
‘======================================================
hello everybody
I have a userform vba in which I have several textboxs and I intended it to be in each only registered numbering and not text.
For a textbox individually i use the code above, but for several textboxs how to proceed ??
Thank you for your help

[mongoose36]

Here is a system I use. It evaluates each key stroke as the user types it in. If the key stroke is a number then nothing happens, but if the keystroke is a letter or it will remove give an error message and remove the keystroke.

I have created an example code for a UserFrom with two textboxes...you can incorporate into your code.

To test create a UserForm with two textboxes named TextBox1 and TextBox2 and copy and paste the following code into it.

Option Explicit
Public EnableEvents As Boolean
Public NUMvalues As String, BxStr As String, LPos As Integer, LChar As String
Private Sub UserForm_Activate()
NUMvalues = "0123456789."
EnableEvents = True
End Sub
Private Sub TextBox1_Change() 'rename with your textbox name
BxStr = TextBox1.Text 'rename with your textbox name

    If EnableEvents = True And BxStr <> "" Then
        For LPos = 1 To Len(BxStr)
            LChar = Mid(BxStr, LPos, 1)
            If InStr(NUMvalues, LChar) = 0 Then
                MsgBox "Only numbers allowed!", vbCritical
                RemoveBdCharacter TextBox1 'rename with your textbox name
            End If
        Next
    Else
        EnableEvents = True
        Exit Sub
    End If
End Sub
Private Sub TextBox2_Change() 'rename with your textbox name
BxStr = TextBox2.Text 'rename with your textbox name

    If EnableEvents = True And BxStr <> "" Then
        For LPos = 1 To Len(BxStr)
            LChar = Mid(BxStr, LPos, 1)
            If InStr(NUMvalues, LChar) = 0 Then
                MsgBox "Only numbers allowed!", vbCritical
                RemoveBdCharacter TextBox2 'rename with your textbox name
            End If
        Next
    Else
        EnableEvents = True
        Exit Sub
    End If
End Sub
Private Sub RemoveBdCharacter(Bx As Variant)
    BxStr = Left(BxStr, Len(BxStr) - 1)
    EnableEvents = False
    Bx.Text = BxStr
End Sub

[jdasp49]

Hello,Cplettner,
Thank you for your answer.
Nice, it works, but is it possible to join all textboxes in just one code? That´s because I have an userform with 30 textboxes, and so, the code would be very large.
Sorry for insist, I'd be very grateful

[jaslake]

Hi jdasp49

You can do this by introducing a Class Module

is it possible to join all textboxes in just one code

See attached for an example.

[mongoose36]

Awesome @jaslake! Thanks for the tip!

[mongoose36]

This is the most that can be done...unfortunately you will need a separate change event for all text boxes there is no way around that to my knowledge.

Option Explicit
Public EnableEvents As Boolean
Public NUMvalues As String, BxStr As String, LPos As Integer, LChar As String
Private Sub UserForm_Activate()
NUMvalues = "0123456789."
EnableEvents = True
End Sub
Private Sub TextBox1_Change() 'rename with your textbox name
    TextBoxChange TextBox1
End Sub
Private Sub TextBox2_Change() 'rename with your textbox name
    TextBoxChange TextBox2
End Sub
Private Sub TextBoxChange(Bx As Variant)
BxStr = Bx.Text 'rename with your textbox name

    If EnableEvents = True And BxStr <> "" Then
        For LPos = 1 To Len(BxStr)
            LChar = Mid(BxStr, LPos, 1)
            If InStr(NUMvalues, LChar) = 0 Then
                MsgBox "Only numbers allowed!", vbCritical
                RemoveBdCharacter Bx 'rename with your textbox name
            End If
        Next
    Else
        EnableEvents = True
        Exit Sub
    End If
End Sub
Private Sub RemoveBdCharacter(Bx As Variant)
    BxStr = Left(BxStr, Len(BxStr) - 1)
    EnableEvents = False
    Bx.Text = BxStr
End Sub

[jdasp49]

Hello cplettner
Tankyou very much, it works very well. Thank again
Carlos

[mongoose36]

You are welcome!
Please Add Reputation if you are satisfied and mark the thread as "Solved"

[mongoose36]

Based on a request by @YasserKahlil...to only allow one period (".") in the text box
Change

            If InStr(NUMvalues, LChar) = 0 Then
                MsgBox "Only numbers allowed!", vbCritical
                RemoveBdCharacter Bx 'rename with your textbox name
            End If

To

            If InStr(NUMvalues, LChar) = 0 Then
                MsgBox "Only numbers allowed!", vbCritical
                RemoveBdCharacter Bx 'rename with your textbox name
            Else
                if Right(BxStr,1)="." and Instr(Left(Len(BxStr)-1),".")>0 then
                     MsgBox "Only one period allowed!", vbCritical
                     RemoveBdCharacter Bx
                End if
            End If

I think

[jaslake]

@YasserKahlil

Play with this in the Class Module...there's a better way but I'm using the OP's Code...

Public WithEvents TextBoxGroup As MSForms.TextBox
'Modified from http://www.j-walk.com/ss/excel/tips/tip44.htm
Private Sub TextBoxGroup_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   '’Only Numbers in textbox 0r simples signs
   Select Case KeyAscii
   Case Asc("0") To Asc("999")
   Case Asc(".")
'      If InStr(1, txtA.Value, ".") > 0 Then
'         KeyAscii = 0
'      End If
   Case Asc(",")
'      If InStr(1, txtA.Value, ",") > 0 Then
'         KeyAscii = 0
'      End If
   Case Else
      KeyAscii = MsgBox("SORRY! Introduce just numbers")
   End Select
End Sub