Problema tabuladores textbox para validación

Hola expertos tengo el siguiente código
Private Sub TextBox1_AfterUpdate()
TextBox1.Enabled = False
End Sub
Private Sub TextBox2_AfterUpdate()
If TextBox1.Value = TextBox2.Value Then
Else
MsgBox "MAL"
TextBox1.Enabled = True
TextBox1.SetFocus
TextBox1 = ""
Do While TextBox1.Value = TextBox2.Value
Call TextBox1_AfterUpdate
Call TextBox2_AfterUpdate
Loop
End If
End Sub
Private Sub CommandButton1_click()
Unload UserForm2
End Sub
Lo que hace es validar que los datos que escribo en el textbox1 sean iguales a los del textbox2, si es así entonces se va al commandbutton1 y se cierra el formulario
si no son iguales los valores, debería regresar al texbox1 para poder ingresar datos y así hasta que los datos en ambos textbox sean iguales pero no lo hace
como tampoco he podido deshabilitar el commandbutton mientras que los valores de los textbox no son iguales
Espero haberme explicado gracias y saludos

1 respuesta

Respuesta
1
Si estas trabajando en un formulario deberías ocupar:
Private Sub TextBox1_Change()
    TextBox2.Value = TextBox1                     Si no es numerico
    TextBox2.Value = Val(TextBox1)              Si es numerico
End Sub
Si necesitas ejemplos de formularios enviame tu correo y te los hago llegar. Son ejemplos prácticos.
Suerte
Este es mi correo:
[email protected]
Te envíe algunos ejemplos a tu correo
Suerte
Cuando puedas cierra la pregunta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas