How to Populate a ComboBox with only unique values from a list.

[RunTime91]

Greetings Experts ~

Back in my earlier days I would have lost a large bet believing this was something you could set in the properties list.

I've seen plenty of methods on the 'net none of which make any sense ~ thus, here I am.

A few showing the use of the VBA CountIf function... Whaaaaaaaaat???

Can anyone guide me to what is a simple way of populating a combobox with only unique values from a list.

Thank You, Everyone

 

[Fluff]

How about

Private Sub UserForm_Activate()
   Dim Ary As Variant
   
   With Range("A2", Range("A" & Rows.Count).End(xlUp))
      Ary = Evaluate("unique(" & .Address & ")")
   End With
   Me.ComboBox1.List = Ary
End Sub

 

[RunTime91]

How about

Private Sub UserForm_Activate()
   Dim Ary As Variant
  
   With Range("A2", Range("A" & Rows.Count).End(xlUp))
      Ary = Evaluate("unique(" & .Address & ")")
   End With
   Me.ComboBox1.List = Ary
End Sub

I guess that is why you are an MVP & a Moderator...
Thank You, Fluff ~ Works Great!

 

[Fluff]

You're welcome & thanks for the feedback.