Llamar datos de un combobox a un listbox de un mismo proveedor

Ajusta en la siguiente macro los datos de libro

Cambia "Hoja1" por la hoja donde tienes tus proveedores y sus facturas

Cambia "A" por la columna donde están los proveedores

Cambia "B" por la columna donde están las facturas

Private Sub ComboBox1_Change()
'Por.Dante Amor
    proveedor = ComboBox1.Value
    ListBox1.Clear
    If proveedor = "" Then Exit Sub
    Set h = Sheets("Hoja1")
    Set r = h.Columns("A")  'columna de proveedores
    Set b = r.Find(proveedor, LookAt:=xlWhole)
    If Not b Is Nothing Then
        celda = b.Address
        Do
            'detalle
            ListBox1.AddItem h.Cells(b.Row, "B")    'columna de facturas
            Set b = r.FindNext(b)
        Loop While Not b Is Nothing And b.Address <> celda
    End If
End Sub

.

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

.

Feliz Año 2018

.