Populate userform combobox with unique values from a range

[soood]

Hi all, I have a user form with combobox19 that I need to fill with only the unique values from sheet "maintenance" C2:c500.

Thanks for any help!

 

[Krishnakumar]

Hi,

try

Private Sub UserForm_Initialize()

Dim v, e
With Sheets("maintenance").Range("c2:c500")
    v = .Value
End With
With CreateObject("scripting.dictionary")
    .comparemode = 1
    For Each e In v
        If Not .exists(e) Then .Add e, Nothing
    Next
    If .Count Then Me.ComboBox19.List = Application.Transpose(.keys)
End With
End Sub

HTH

 

[soood]

Perfect...Thanks!

 

[Botanybob]

Thanks, this helped me out a bunch too.

 

[brucemc]

I am blown away - this was the perfect answer for what I was looking for, and notably over my head-

 

[kennycwhite]

This was perfect for me as well. Can someone help with some additional depth. Combo box #1 is populated with information from column A (Fruits, Vegetables, etc). I select an item from combo box #1 (such as Fruit) which then filters combo box #2 to all the values in Column B corresponding to matching value in combo box #1 (lists all fruits). Combo box #3 continues by populating with values corresponding to items that match combo box 1 (Fruit) and combo box 2 (Apple) to select the type of apple. Basically like using filters within Excel.

 

[kennycwhite]

Bump

 

[kennycwhite]

Still looking for help on combobox population including filtering.

 

[WiZARD7]

Still looking for help on combobox population including filtering.

Could you find a solution? Can you share it?
Thx

 

[kennycwhite]

I have not found a solution.