(13/10/2020, 00:48)feraz yazdı: Alttakide başka bir yol.
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.

Aynen Zafer Hocam ben bu işin içinden çıkamayacağım galiba. Size de zahmet olacak ama . Hakkınızı helal edin.