CommandButton enable=True depende de...
¡Qué titulo complicado!
Pero creo que, explicándolo, se entenderá: tengo 5 TextBox que los lleno con datos diferentes, y hay un CommandButton ejecutor... Pero quiero poner otro CB intermedio (sin tocar el UserForm) si se cumple una condición en los TextBox...
Esto es: lleno los TextBox (no necesariamente los 5) con datos varios; si ALGUNO de esos datos es, por ejemplo, "AZULEJO", que me MUESTRE el CB3 (el 1 es ejecutor, independiente del 3; el 2 cancela)...
¿Cómo lo hago? (Pienso que tu respuesta le vendrá bien a muchos)
Un abrazo (ya pongo el cronómetro)...
Pero creo que, explicándolo, se entenderá: tengo 5 TextBox que los lleno con datos diferentes, y hay un CommandButton ejecutor... Pero quiero poner otro CB intermedio (sin tocar el UserForm) si se cumple una condición en los TextBox...
Esto es: lleno los TextBox (no necesariamente los 5) con datos varios; si ALGUNO de esos datos es, por ejemplo, "AZULEJO", que me MUESTRE el CB3 (el 1 es ejecutor, independiente del 3; el 2 cancela)...
¿Cómo lo hago? (Pienso que tu respuesta le vendrá bien a muchos)
Un abrazo (ya pongo el cronómetro)...
1 respuesta
Respuesta de tavopz
1
No entendí lo del cronómetro...
Pero bueno, pienso que puedes utilizar el evento Exit del textbox, para cambiar el estado del CommandButton.
El modo de Diseño colocas la propiedad del botón en False (no estoy seguro si la propiedad Enable o Visible, dependiendo de lo que quieras hacer) y luego en tiempo de ejecución lo cambias a True. Algo así:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
UserForm1.CommandButton1.Visible = True
End Sub
Pero bueno, pienso que puedes utilizar el evento Exit del textbox, para cambiar el estado del CommandButton.
El modo de Diseño colocas la propiedad del botón en False (no estoy seguro si la propiedad Enable o Visible, dependiendo de lo que quieras hacer) y luego en tiempo de ejecución lo cambias a True. Algo así:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
UserForm1.CommandButton1.Visible = True
End Sub
Excelente, Master...!
Lo completé de la siguiente manera:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value = "PERRO" Then
UserForm1.CommandButton1.Visible = False
End If
End Sub
Te mandé el archivo para que lo pongas en tu sección de downloads (si querés)
¡Ah! Y te mando un problemita que tengo...
Lo completé de la siguiente manera:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value = "PERRO" Then
UserForm1.CommandButton1.Visible = False
End If
End Sub
Te mandé el archivo para que lo pongas en tu sección de downloads (si querés)
¡Ah! Y te mando un problemita que tengo...
