Simplificar 2 Macros Excel para más cortas
Hacer esta pregunta a DAnte Dante
Hice estas 2 macros para 2 OptionButton, funciona bien, pero
Private Sub OptionButton1_Click() If txtEntrada.Locked = True Then txtEntrada.Locked = False txtSalida.Locked = True txtEntrada.SetFocus txtEntrada.Value = "" txtSalida.Value = "" End If End Sub Private Sub OptionButton2_Click() If txtSalida.Locked = True Then txtSalida.Locked = False txtEntrada.Locked = True txtSalida.SetFocus txtEntrada.Value = "" txtSalida.Value = "" End If End Sub
quisiera hacerla mas simple, es decir, una para 2, si se puede claro está
1 respuesta
Respuesta de Dante Amor
2
Esta sería una opción
Private Sub OptionButton1_Click() Call Revisar_txt(txtEntrada, txtSalida) End Sub Private Sub OptionButton2_Click() Call Revisar_txt(txtSalida, txtEntrada) End Sub Sub Revisar_txt(txt_1 As MSForms.TextBox, txt_2 As MSForms.TextBox) txt_1.Locked = False txt_2.Locked = True txt_1.SetFocus txt_1.Value = "" txt_2.Value = "" End Sub
sal u dos
