AccessTr.neT

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

şu kodlar ne işe yarıyor

ngLastRow = .Cells.Find(What:="*", LookIn:=xlFormulas, _
                                SearchOrder:=xlByRows, _
                                SearchDirection:=xlPrevious).Row

lngLastCol = .Cells.Find(What:="*", LookIn:=xlFormulas, _
                                SearchOrder:=xlByColumns, _
                                SearchDirection:=xlPrevious).Column

Son satır ve son sütun bulma işine yarar.

LookIn:=xlFormulas  bu olduğuna göre heralde formüllü alanlarda buluyor sonucı.

Xlformulas yerine xlvalues kullanılır standat olarak bildiğim.

teşekkürler feraz

(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

(17/01/2020, 15:18)accessman yazdı: [ -> ]teşekkürler feraz

Rica ederim üstad.