Skip to main content

AccessTr.neT


Excel İstediğimiz Sayfanın İstediğimiz Sutundan Sıralı Filtreli Gruplanmış Liste

Excel İstediğimiz Sayfanın İstediğimiz Sutundan Sıralı Filtreli Gruplanmış Liste

Çözüldü #1
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
@benbendedeilem
Son Düzenleme: 17/01/2020, 10:50, Düzenleyen: accessman.
Cevapla
#2
ş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 Düzenleme: 17/01/2020, 10:55, Düzenleyen: accessman.
Cevapla
#3
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.
Cevapla
#4
teşekkürler feraz
Cevapla
#5
(17/01/2020 10:48)accessman Adlı Kullanıcıdan Alıntı: 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 Img-grin
Cevapla
#6
(17/01/2020 15:18)accessman Adlı Kullanıcıdan Alıntı: teşekkürler feraz

Rica ederim üstad.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da