Textbox que solo acepte números y guiones
Buen dia Expertos!
mi pregunta es la siguiente, en un Botón de comando tengo el siguiente código :
If Not IsNumeric(TextBox1) Then
Dim mensaje As String
mensaje = MsgBox( Valor ingresado NO es Numérico & Chr(13) & Ingrese nuevamente! , vbCritical, Title:= Ingresar Valor Numérico )
TextBox1 = Empty
TextBox1.SetFocus
y me funciona perfectamente, solo que también necesito que se puedan permitir guiones.
Espero me puedan ayudar y gracias por tomarse el tiempo para leer mi problema.
1 respuesta
Respuesta de Luis Mondelo
1
Esta es tu solución: En mi ejemplo he utilizado el evento "afterupdate" para que se ejecute al actualizar el textbox1.
Esta macro te controla si es número y si tiene guiones.
Private Sub TextBox1_AfterUpdate() valor = TextBox1.Value tope = Len(valor) For x = 1 To tope extrae = Mid(valor, x, 1) If extrae = "-" Then GoTo salto If Not IsNumeric(extrae) Then MsgBox "no permitido" TextBox1 = Empty Exit Sub End If salto: Next MsgBox "valor correcto" End Sub
Recuerda finalizar y puntuar
