Skip to main content

AccessTr.neT M.


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
Son Düzenleme: 17/01/2020, 10:50, Düzenleyen: accessman.
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
Cevapla
#2
Son Düzenleme: 17/01/2020, 10:55, Düzenleyen: accessman.
ş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

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