listbox add item

[mrowe]

Hi there,

Looking for help on a custome user form.

Have a drop down controll that with 3 values hard coded in (ie JAX,TIZ,OAP)

Based on the selected item from the above code, I want to fill a list box with associated items (from a range with in the workbook ie sheet1 A1:B10-A1:A10 being one of the 3 hard coded items, b1:b10 being the related items.

I've tried ListBox1.AddItem from the help files, but seem to be getting no where fast.

Any clues on this one?
Thanks in advance
Matt

 

[Andrew Poulsom]

Try this:

Private Sub ComboBox1_Change()
    Dim c As Range
    ListBox1.Clear
    For Each c In Worksheets("Sheet1").Range("A1:A10")
        If c.Value = ComboBox1.Value Then
            ListBox1.AddItem c.Offset(0, 1).Value
        End If
    Next c
End Sub