How to remove Duplicate Item from ListBox in Excel VBA

[@MohAboAbdo]

Thank you so much

[@shubhamvarshney9374]

Thank you :)

[@sedataksakal414]

Teşekkürler. Daha kısa 1.değeri bulduktan sonra (Exit For) çıkış yapılabilir. With Me.ListBox1 .AddItem sh.Cells(i, 2) .List(.ListCount - 1, 1) = sh.Cells(i, 3) .List(.ListCount - 1, 2) = sh.Cells(i, 4) .List(.ListCount - 1, 3) = sh.Cells(i, 5) .List(.ListCount - 1, 4) = sh.Cells(i, 6) .List(.ListCount - 1, 5) = sh.Cells(i, 7) End With Exit For End If Next x Next i

[@adilmajid06]

Not working