Validación de textbox excel
Buenas como puede validar el formato los datos de un textbox para que cuando intenten salir del textbox me valide que tiene 3 numero, guion "-", 7 numero guion "-", 1 numero. Ejs
"054-0135597-8, "402-2365157-4","025-0215876-8"
Este es el código que estoy poniendo
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox2 <> Format(TextBox2, "###-#######-#") Then MsgBox "El Formato es Incorrecto?", vbCritical TextBox2 = "" TextBox2.SetFocus End If End Sub
1 Respuesta
Respuesta de Dante Amor
1
Esta sería la macro
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(Mid(TextBox2, 1, 3)) Or _
Mid(TextBox2, 4, 1) <> "-" Or _
Not IsNumeric(Mid(TextBox2, 5, 7)) Or _
Mid(TextBox2, 12, 1) <> "-" Or _
Not IsNumeric(Mid(TextBox2, 13, 1)) Then
MsgBox "El Formato es Incorrecto, debe ser: ""###-#######-#""", vbCritical
Cancel = True
TextBox2.SetFocus
End If
End Sub
