(19/05/2020, 23:59)m_demir yazdı: Merhaba Hocam Nasılsınız. Hocam bende de çalışıyordu. Ofis programını kaldırıp ayni versiyonu yenden yükledim çalışmadı. Neden kaynaklanıyor bilmiyorum.

Aşağıdaki şekilde çalışıyor.

    For i = 7 To [d65536].End(3).Row

        If WorksheetFunction.CountIf(Range("d7:d" & i), Cells(i, "d")) = 1 Then

          ComboBox3.AddItem CStr(Cells(i, 4))

       End If

    Next

Şükür sizi sormalı.Yukardaki kodla alakası yok alttaki koddan dolayı verdiğim linktekini indirip kurunuz.

---

ilk verdiğiniz kod verileri benzersiz yapıp sıralama yapar.Dahada yapamazsanız önceki dosyanızda vardı sıralama vs.. onları kullanabilirsiniz.