İnternetten alttaki gibi kodda buldum deneyebilirsiniz listbox2 ile değiştirip.

Count = ListBox1.ListCount - 1



i = 0

j = 0



Do While i <= Count

j = i + 1

Do While j <= Count

If ListBox1.List(i) = ListBox1.List(j) Then

ListBox1.RemoveItem (j)

Count = ListBox1.ListCount - 1  'Need to update list count after each removal. 

End If

j = j + 1

Loop

i = i + 1

Loop

---

(13/10/2020, 00:14)hayalibey yazdı:

(13/10/2020, 00:03)feraz yazdı: Yada 2.ci için listbox 2 ye veriler çift gelince sondan döngü kurularak çiftler sildirilir.Örnek ekleyeyim mobilde yazıp hata olabilr.Dediğim gibi kafadan attım lakin mantık böyle birşey.Romoveitem yerine removeat gibi birşeyde oluyordu zannedersem.Fırsat bulunca akşama doğru bakmaya çalışırım.

For i = listbox2.listcount -1 to 0 step -1
İf listbox2.list(i-1)= listbox2.list(i) then
Listbox2.removeitem(listbox2.list(i))
End if
Next

Hocam pek anlamadığım için sizin örnek dosya eklemenizi bekleyeceğim. Ama yazdığım maddelerdeki hataları almaya devam etmekteyim.
Emeğinize sağlık Hocam

Zaman bulunca eklerim.

(13/10/2020, 00:15)feraz yazdı: İnternetten alttaki gibi kodda buldum deneyebilirsiniz listbox2 ile değiştirip.

Count = ListBox1.ListCount - 1



i = 0

j = 0



Do While i <= Count

j = i + 1

Do While j <= Count

If ListBox1.List(i) = ListBox1.List(j) Then

ListBox1.RemoveItem (j)

Count = ListBox1.ListCount - 1  'Need to update list count after each removal. 

End If

j = j + 1

Loop

i = i + 1

Loop

---

(13/10/2020, 00:14)hayalibey yazdı:

(13/10/2020, 00:03)feraz yazdı: Yada 2.ci için listbox 2 ye veriler çift gelince sondan döngü kurularak çiftler sildirilir.Örnek ekleyeyim mobilde yazıp hata olabilr.Dediğim gibi kafadan attım lakin mantık böyle birşey.Romoveitem yerine removeat gibi birşeyde oluyordu zannedersem.Fırsat bulunca akşama doğru bakmaya çalışırım.

For i = listbox2.listcount -1 to 0 step -1
İf listbox2.list(i-1)= listbox2.list(i) then
Listbox2.removeitem(listbox2.list(i))
End if
Next

Hocam pek anlamadığım için sizin örnek dosya eklemenizi bekleyeceğim. Ama yazdığım maddelerdeki hataları almaya devam etmekteyim.
Emeğinize sağlık Hocam

Zaman bulunca eklerim.

Zafer Hocam kodu denemeye çalışayım.

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.

(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.

Kodunuzda bazı değişiklikler yaptım.
Gifte eklekim.

Sadece arama yapılırken seçim yapılanlar gidiyor onada müsait olunca bakarım.

Zafer Hocam emeğinize sağlık 1 saattir deneme yapıyorum.
Ama şu sorunlar çıkıyor
1. Aktar butonuna basınca ayar sayfasına kaydediyor listbox2 de mükerrer kaydını ayar sayfasından yapıyor.

Hocam listbox2de kalsa ayar sayfasına mükerrer kontorlü için hiç aktarmasa daha iyi olur

Ben kaydet butonu ile seçimli_liste_tebliği sayfasına A14 den itibaren verileri kaydediyorum.

Listbox2 de mükerrer kaydını kontrol etmek mümkün mü ilk örneğinizdeki gibi .