Populate form combo with unique values

[Piers 2k]

Hi folks,

Simple list spreadsheet, column headings, etc... Have a combo on a form I'd
like to populate with unique values from a column in the range.
Current code works fine (obviously selecting cells first), but no way to
only show unique values? Any idea how can I eliminate them?

' start of code
Dim item As Range

For Each item In Selection
cmbDept.AddItem item
Next
' end of code

Any ideas?

TIA,
Piers

 

[bigwheel]

Well, you could build the Advanced Filter into your code which does allow you
to see unique values then those values would be used to populate your combo

Range(whatever).AdvancedFilter Action:=xlFilterInPlace, Unique:=True

 

[Dave Peterson]

John Walkenbach shows a way to do it with a listbox.
http://j-walk.com/ss/excel/tips/tip47.htm

I bet you can make your combobox work the same way.