CtrlListNames listbox adı
RemovelstDuplicates ctrlListNames bu şekilde fonksiyon çağrılıyor.
Public Sub RemovelstDuplicates(lst As msforms.ListBox)
Dim i As Long, j As Long
With lst
For i = 0 To .ListCount - 1
For j = .ListCount - 1 To (i + 1) Step -1
If .List(j) = .List(i) Then
.RemoveItem j
End If
Next
Next
End With
End Sub
Yada en hızlısı listboxtaki verileri dictionarye alıp ordan çağırmak..
Her neyse uygun zamanda hallederiz.