Como adicionar instrucciones a un Sub de UserForm para determinar otros combobox
Para D.A.N.T.E
¿Hola Dante y entonces como le agregaría las instrucciones para los otros combobox en este Sub o es que debo hacer otros sub?
Tengo este:
Private Sub UserForm_Activate()
'Por.Dante Amor
Set h = Sheets("Constantes")
For i = 1 To h.Range("K" & Rows.Count).End(xlUp).Row
ComboBox1.AddItem (h.Cells(i, "K"))
Next
End SubSi ahora tengo ComboBox2 y Combobox3 y el dos son los datos de la columna "L" y el comboBox3 son los datos de la columna "F" como hago eso?
1 Respuesta
Respuesta de Dante Amor
1
Para ese caso tienes que cargarlo de manera independiente puede ser que alguna de las columnas tenga más información que otra.
Private Sub UserForm_Activate()
'Por.Dante Amor
Set h = Sheets("Constantes")
For i = 1 To h.Range("K" & Rows.Count).End(xlUp).Row
ComboBox1.AddItem (h.Cells(i, "K"))
Next
For i = 1 To h.Range("L" & Rows.Count).End(xlUp).Row
ComboBox2.AddItem (h.Cells(i, "L"))
Next
For i = 1 To h.Range("F" & Rows.Count).End(xlUp).Row
ComboBox3.AddItem (h.Cells(i, "F"))
Next
End Subs a l u d o s
