List of Different Cells

  • Thread starter Thread starter ForSale
  • Start date Start date
F

ForSale

In sheet1.range("b:b") I have a list of numbers. Some of the numbers
will repeat, some won't. In userform1.combobox1 I want to list all of
the different numbers (no repeats) from sheet1.range("b:b"). What is
the easiest way to do this?

Big Thanks.
 
try

Code:
--------------------

Private Sub UserForm_Initialize()
Dim dic As Object, a, e
Set dic = CreateObject("scripting.dictionary")
dic.comparemode = vbTextCompare
With Sheets("Sheet1")
a = .Range("b1",.Range("b" & Rows.Count).End(xlUp)).Value
End With
For Each e In a
If Not IsEmpty(e) And Not dic.exists(e) Then dic.add e, Nothing
Next
If dic.count < 1 Then Exit Sub
Me.ListBox1.List = dic.keys
Set dic = Nothing
End Sub
 
Back
Top