AccessTr.neT
Excel İstediğimiz Sayfanın İstediğimiz Sutundan Sıralı Filtreli Gruplanmış Liste - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel İstediğimiz Sayfanın İstediğimiz Sutundan Sıralı Filtreli Gruplanmış Liste (/konu-excel-istedigimiz-sayfanin-istedigimiz-sutundan-sirali-filtreli-gruplanmis-liste.html)

Sayfalar: 1 2 3 4 5 6 7


Excel İstediğimiz Sayfanın İstediğimiz Sutundan Sıralı Filtreli Gruplanmış Liste - accessman - 17/01/2020

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


Cvp: Excel İstediğimiz Sayfanın İstediğimiz Sutundan Sıralı Filtreli Gruplanmış Liste - accessman - 17/01/2020

ş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


Cvp: Excel İstediğimiz Sayfanın İstediğimiz Sutundan Sıralı Filtreli Gruplanmış Liste - feraz - 17/01/2020

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.


Cvp: Excel İstediğimiz Sayfanın İstediğimiz Sutundan Sıralı Filtreli Gruplanmış Liste - accessman - 17/01/2020

teşekkürler feraz


Cvp: Excel İstediğimiz Sayfanın İstediğimiz Sutundan Sıralı Filtreli Gruplanmış Liste - feraz - 17/01/2020

(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 Img-grin


Cvp: Excel İstediğimiz Sayfanın İstediğimiz Sutundan Sıralı Filtreli Gruplanmış Liste - feraz - 17/01/2020

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

Rica ederim üstad.