Remove Dupes in Listbox.

[Sir Loin]

How do you remove the dupes in a listbox?

I tried doing it like this

Dim Intx as integer
 
for intx = 0 to list1.listcount - 1
 
if list1.list(intx) = list1.text then
list1.removeitem(intx)
end if
 
next intx

Thanks,
Sir Loin

[dglienna]

Nope. That will only remove what's in the textbox from the listbox. You'd be better off adding items to a second listbox, and then comparing each new item to all items in the second listbox to see if it should be deleted from the first listbox, or added to the second listbox.
It would be easier to just build the second listbox of unique items, then copy them back into the first listbox. That way you wouldn't have to delete anything from the first listbox.

[baja_yu]

An easy way is to sort it (set Sorted to True). Then all duplicate items will be together (one after the other). Then you can use this code:

Dim intItems As Integer
Dim I As Integer
 
intItems = List1.ListCount
 
For I = intItems To 1 Step -1
     If List1.List(I) = List1.List(I-1) Then
          List1.RemoveItem (I)
     End If
Next I

[VbCoder2008]

An easy way is to sort it (set Sorted to True). Then all duplicate items will be together (one after the other). Then you can use this code:

Dim intItems As Integer
Dim I As Integer
 
intItems = List1.ListCount
 
For I = intItems To 1 Step -1
     If List1.List(I) = List1.List(I-1) Then
          List1.RemoveItem (I)
     End If
Next I

Cleaver, Thank You!

[Hack]

Or, if they are not sorted and together, you can do

Private Sub Command1_Click()
Dim i As Long
Dim j As Long
    With List1
        For i = 0 To .ListCount - 1
            For j = .ListCount To (i + 1) Step -1
                If .List(j) = .List(i) Then
                    .RemoveItem j
                End If
            Next
        Next
    End With
End Sub

[DigiRev]

How are you adding items to the ListBox? The best method of removing duplicates is not letting them get in there in the first place...otherwise, any of the above codes work. I have always done it as Hack posted