Comentar macro VBA Excel echa por DAM
Aquí el tema DAM,
Private Sub ComboBox2_Change()
'Act.Por.Dante Amor
caj = Array("Textbox2", "Textbox3", "Textbox4") 'AL ARRAY QUIERO AGREGARLE UN FRAME2 solo ENABLED TAMBIEN
OptionButton1 = False
OptionButton2 = False
If ComboBox2 = "PERSONA JURIDICA" Then
texto = "NO"
disp = False
Else
texto = ""
disp = True
End If
'
For i = LBound(caj) To UBound(caj)
Controls(caj(i)).Text = texto
Controls(caj(i)).Enabled = disp
Next
Frame2.Enabled = disp
End Sub
'
Private Sub UserForm_Initialize()
'DOCUMENTO
Final = Worksheets("COMBOS").Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To Final
ComboBox2.AddItem (Worksheets("COMBOS").Cells(i, 2))
Next
Frame2.Enabled = False
End SubContesta para calificar
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro documentada:
Private Sub ComboBox2_Change()
'Act.Por.Dante Amor
caj = Array("Textbox2", "Textbox3", "Textbox4")
'
'Los option se apagan cada vez que se selecciona una personaliad
OptionButton1 = False
OptionButton2 = False
'
'Pregunto si el valor del combobox es "Persona juridica"
If ComboBox2 = "PERSONA JURIDICA" Then
'Si es persona juridica, entonces
texto = "NO"
disp = False
Else
'Si no es persona juridica, entonces
texto = ""
disp = True
End If
'
For i = LBound(caj) To UBound(caj)
'como las variables texto y disp ya fueron actualizadas
'en esta parte solamente se pasan a la caj
Controls(caj(i)).Text = texto
Controls(caj(i)).Enabled = disp
Next
'el frame2 va a tomar el valor de la variable disp
Frame2.Enabled = disp
End Sub
'
Private Sub UserForm_Initialize()
'DOCUMENTO
Final = Worksheets("COMBOS").Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To Final
ComboBox2.AddItem (Worksheets("COMBOS").Cells(i, 2))
Next
'
'El frame2 se deshabilita para que no puedan esocger el sexo hasta
'que seleccionen la persona
Frame2.Enabled = False
End Subs a l u d o s
