Agregar datos a un ComboBox de Manera automática

Tengo dos combobox, el primero carga datos de una hoja de Excel, y el otro según lo que se seleccione en el combobox1, carga otras opciones, lo que quiero es que al agregar mas datos en la hoja de Excel que carga el combobox1, automáticamente cargue el nuevo dato y sus respectivos datos relacionados, en mi caso ComboBox1 = Impresora, ComboBox2 = Suministros, si agregue a mi hoja de Excel la impresora5 que tiene suministroA y suministroB, entonces en el ComboBox1 se agregue automáticamente la Impresora5 y cuando lo selecciono, el ComboBox2 tenga suministroA y suministroB

1 Respuesta

Respuesta
1

Preparo los combos con el archivo que me enviaste y te regreso el código

Te anexo el código para cargar los combos1 y 2.

Te envié el archivo, para que veas cómo debes poner los datos en la Hoja8

Private Sub UserForm_Activate()
'Act.Por.Dante Amor
    'Cargar combo1
    ComboBox1.SetFocus
    For i = 3 To Hoja8.Cells(Rows.Count, "B").End(xlUp).Row
        existe = False
        For j = 0 To ComboBox1.ListCount - 1
            If Hoja8.Cells(i, "B") = ComboBox1.List(j) Then existe = True: Exit For
        Next
        If existe = False Then ComboBox1.AddItem Hoja8.Cells(i, "B")
    Next
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas