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