List of Different Cells
 

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.


--
ForSale
------------------------------------------------------------------------
ForSale's Profile: http://www.excelforum.com/member.php...o&userid=11896
View this thread: http://www.excelforum.com/showthread...hreadid=552094

List of Different Cells
 

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

--------------------


--
jindon
------------------------------------------------------------------------
jindon's Profile: http://www.excelforum.com/member.php...o&userid=13135
View this thread: http://www.excelforum.com/showthread...hreadid=552094

List of Different Cells
 

Fantastic! Now I just wish I could understand that.

Thanks.


--
ForSale
------------------------------------------------------------------------
ForSale's Profile: http://www.excelforum.com/member.php...o&userid=11896
View this thread: http://www.excelforum.com/showthread...hreadid=552094