LLenar ComboBox en una hoja de excel con distinta información dependiente de un valor
Tengo una hoja (Hoja1) de Excel con dos ComboBox y otra hoja (Control) con informacion en una columna.
Cuando en la Hoja 1 ComboBox1 selecciono un valor (por ejemplo AUT o MAN), el combobox2 debe completarse con una parte de la información de la hoja Control, de acuerdo al valor seleccionado (AUT o MAN).
Como soy medio nuevo en esto, no puedo encontrar la forma correcta de hacerlo.
¿Alguien puede darme una idea?
1 Respuesta
¡Gracias!
Voy a tratar de enviarte como adjunto las dos hojas de excel !!
Estoy deduciendo que si el combo1 seleccionas "AUT", los equipos que empiezan con "AU" se deben cargar en el combo2. Y si seleccionas "MAN", los equipos que empiezan con "MN" se deben cargar en el combo2.
Me confirmas.
Y también me confirmas si los combos son de control Activex.
¡Gracias!
Así es, tal como tu lo dices !
El combo es ActiveX !
Pon el siguiente código en los eventos del combobox1
Private Sub ComboBox1_Change()
Dim sh As Worksheet
Dim i As Long
Dim ini As String
'
Set sh = Sheets("CONTROL")
ComboBox2.Value = ""
ComboBox2.Clear
If ComboBox1.ListIndex = -1 Then Exit Sub
If ComboBox1.Value = "AUT" Then ini = "AU"
If ComboBox1.Value = "MAN" Then ini = "MN"
For i = 3 To sh.Range("B" & Rows.Count).End(3).Row
If Left(sh.Range("B" & i).Value, 2) = ini Then
ComboBox2.AddItem sh.Range("B" & i).Value
End If
Next
End Sub
