(17/01/2020, 10:48)accessman yazdı: Hayırlı cumalar

Sub cmbFill(cmb As ComboBox, cIndex)
    Dim i As Long
    For i = 1 To databaseSheet.Range("A1000").End(xlUp).Row
        cmb.AddItem databaseSheet.Cells(i, cIndex)
        cmb.List(cmb.ListCount - 1, cIndex) = databaseSheet.Cells(i, cIndex + 1)
    Next i
End Sub

bu kod ile listeyi alabiliyoruz ama istediğim şu
alfabetik sıralanmış
filtrelenmiş
her elemanın bir kez listelendiği
şekilde liste nasıl alabilirz

Hayırlu cumalar.
Son birdefa daha yazayım birdaha yazmayacağım örnek dosyasız olmaz diye.
Tükendik artık tekrar etmekten