Como poner un condicional que solo acepte numero a varios textbox

 H o l a: 

esto ingresa en un módulo 

Public Function ValidarCaracter(ByVal KeyAscii As Integer) As Integer
    If (KeyAscii >= 97) And (KeyAscii < 122) Or (KeyAscii >= 65) And (KeyAscii < 90) Then
        MsgBox "INGRESE SOLO EL NUMERO"
        KeyAscii = 8
    End If
End Function

y en cada textbox pon esto

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 KeyAscii = Módulo1.ValidarCaracter(KeyAscii)
End Sub

valora la respuesta para finalizar saludos!

¡Gracias! Buen dato pero no quiero quiero trabajar con modulos;necesito un código no se como ; que cuando se active el user form los textbox solo dejen ingresar numero y el caso que ingresen letras le de un mensaje de advertencia

Para considerar todos los textbox que quieras, agrega el siguiente código en tu userform

Dim colTbxs As Collection 'Collection Of Custom Textboxes
'
Private Sub UserForm_Initialize()
    Dim ctlLoop As MSForms.Control
    Dim clsObject As Clase1
    Set colTbxs = New Collection
    For Each ctlLoop In Me.Controls
        Select Case ctlLoop.Name
            'Nombres de los textbox
            Case "TextBox1", "TextBox2", "TextBox3", "TextBox4"
                Set clsObject = New Clase1
                Set clsObject.tbxCustom1 = ctlLoop
                colTbxs.Add clsObject
        End Select
    Next ctlLoop
End Sub
'
Private Sub UserForm_Terminate()
    Set colTbxs = Nothing
End Sub

Crea una clase, entra al menú de VBA, Insertar, Módulo de clase. Revisa que la clase tenga el nombre "Clase1"

Ahora, pon el siguiente código dentro de la Clase

Public WithEvents tbxCustom1 As MSForms.TextBox 'Custom Textbox
'Referencia
'http://www.ozgrid.com/forum/showthread.php?t=80631
Private Sub tbxCustom1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Not (KeyAscii >= 48 And KeyAscii <= 57) Then
        KeyAscii = 0 '
        MsgBox "Ingrese números", vbInformation, "CAPTURA"
    End If
End Sub
Private Sub Class_Terminate()
     'Destroy The Class Object And Free Up Memory
    Set tbxCustom1 = Nothing
End Sub

Si tienes dudas, envíame tu archivo para adaptar los códigos.

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “andres gomez” y el título de esta pregunta.

Avísame en esta pregunta cuando me lo hayas enviado.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

ok mensaje enviado