several textbox using only with numbers

[inactiveUser214710]

Hello everyone
I have 4 textbox used only for values(numbers-cash).
I use the code below for each textbox.
Is it possible to elaborate a macro, and how, to avoid repeating the codes for each textbox?
Thank you for your cooperation.

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Only Numbers in textbox or simples signs


   Select Case KeyAscii
      Case Asc("0") To Asc("999")
      Case Asc(".")
        If InStr(1, TextBox4.Value, ".") > 0 Then
          KeyAscii = 0
        End If

        Case Asc(",")
        If InStr(1, TextBox4.Value, ",") > 0 Then
          KeyAscii = 0
        End If

      Case Else
         KeyAscii = MsgBox("SORRY! Introduce just Price numbers")


   End Select

End Sub

 

[dmt32]

Hi,
where you have repeating code that returns a value, then make a function of the code & call it as required.

try this update to your code & see if helps

Function NumbersOnly(ByVal KeyAscii As MSForms.ReturnInteger) As MSForms.ReturnInteger
'Only Numbers in textbox or simples signs
    Select Case KeyAscii
    Case 44, 46, 48 To 57
'valid entries [0-9] "." ","
    Case Else
'cancel
        KeyAscii = 0
    End Select
    Set NumbersOnly = KeyAscii
End Function

To call it from your textboxes

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = NumbersOnly(KeyAscii)
End Sub

The updated code should only allow numeric values or your specified characters to be entered.

Dave

 

[inactiveUser214710]

Hi,
where you have repeating code that returns a value, then make a function of the code & call it as required.

try this update to your code & see if helps

Function NumbersOnly(ByVal KeyAscii As MSForms.ReturnInteger) As MSForms.ReturnInteger
'Only Numbers in textbox or simples signs
    Select Case KeyAscii
    Case 44, 46, 48 To 57
'valid entries [0-9] "." ","
    Case Else
'cancel
        KeyAscii = 0
    End Select
    Set NumbersOnly = KeyAscii
End Function

To call it from your textboxes

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = NumbersOnly(KeyAscii)
End Sub

The updated code should only allow numeric values or your specified characters to be entered.

Dave

Hi Dave
Perfect. Thank you very much for your help.
solved
Carlos

 

[tlowry]

I added a "Paste event handler" and checked the entire text in TextBox.

See if this works.

' Paste event
Private Sub TextBox1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, _
            ByVal Action As MSForms.fmAction, _
            ByVal Data As MSForms.DataObject, _
            ByVal X As Single, ByVal Y As Single, _
            ByVal Effect As MSForms.ReturnEffect, _
            ByVal Shift As Integer)
    TextBox1 = validateTB(TextBox1)
End Sub
'Change event
Private Sub TextBox1_Change()
    TextBox1 = validateTB(TextBox1)
End Sub

Function validateTB(tb) As String
    Dim i, shold
    Application.EnableEvents = False
    For i = 1 To Len(tb)
        If Mid(tb.Text, i, 1) Like "[0-9]" Then _
                    shold = shold & Mid(tb.Text, i, 1)
    Next i
    validateTB = shold
    Application.EnableEvents = True
End Function