Populate Listbox with non-consecutive columns

[gemcgraw]

I'm writing a routine for a small auto-body repair business. They have a massive workbook loaded with data from online catalogs. Each sheet is broken down by Vendor, Inventory, etc. They would like to select a particular vendor in ComboBox1 (Sheet = Vendor) and then the ListBox populates with Part Descriptions (Sheet= Inventory, column B) and the Price (Sheet = Inventory, Column C).

User selects a vendor in ComboBox1 (populated from the Vendor sheet). I need to do a search on the Inventory sheet in column C. If any cell in C2:C (last row) matches the value of ComboBox1, then the Listbox1 should be populated with the values in columns B & D of the Inventory Sheet... repeating until the last row is reached on the Inventory sheet.

UserFormVendor.ComboBox1

UserFormInventory.ListBox1

 

[DanteAmor]

Do you have 2 userform?
Or is it only one?
If it's one, try this

Private Sub ComboBox1_Change()
    Dim c As Range
    ListBox1.Clear
    For Each c In Sheets("Inventory").Range("C2", Sheets("Inventory").Range("C" & Rows.Count).End(xlUp))
        If c.Value = ComboBox1.Value Then
            ListBox1.AddItem c.Offset(, -1).Value
            ListBox1.List(ListBox1.ListCount - 1, 1) = c.Offset(, 1).Value
        End If
    Next
End Sub

 

[gemcgraw]

Hey thanks Dante! Beautiful. I was getting close but was making a mess out of my code. I appreciate the advice!

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.