Listwiev de çoklu süzme yapmak

[cemilk]

Hocalarım selamlar..

Ekte bir çek senet listesi var bu liste alabildiğine uzun aslında kısalttım biraz sizden yardımınızı istediğim şey ekteki userformda,

örnek : ilk sütünda türü yani çek yada senetleri filtreledikten sonra borçlu kısma göre yada ünvanı veya tarihe göre de filtrelemek istiyorum bunun mümkünü varmı_?

varsa ekteki dosyayı düzenleyebilirmisiniz?

Teşekkür ederim.

Kolay gelsin.

 

[cems]

Sütunların tamamını filtrelemek sanırım sorunuzu çözer , yanlış anlamadımsa

 

[halit3]

Hocalarım selamlar..

Ekte bir çek senet listesi var bu liste alabildiğine uzun aslında kısalttım biraz sizden yardımınızı istediğim şey ekteki userformda,

örnek : ilk sütünda türü yani çek yada senetleri filtreledikten sonra borçlu kısma göre yada ünvanı veya tarihe göre de filtrelemek istiyorum bunun mümkünü varmı_?

varsa ekteki dosyayı düzenleyebilirmisiniz?

Teşekkür ederim.

Kolay gelsin.

ekli dosyaya bir bakarmısınız.

 

[cems]

Sayın Halit3 'ün çözümü daha akılcı...
Başlığa dikkat etmemişim...

 

[cemilk]

hocam teşekkür ederim yalnız istediğim şey tam olarak bu değil yapmak istediğim şey eğer olursa mesela ilk sütundan çek yada senet seçildiğin de onları akılda tutarak ikinci sütündan dan seçim yapabilmesi. yada 3. sütündan seçim yapabilmesi. imkanı varmıdır acaba bunun...

 

[ziya]

Merhaba,
Uzun zamandan beri forumdan uzakta kaldım. Süz makrosu ile ilgili sorumu sormadan önce bir arayayım dedim, aradığıma değdi. Karşıma mükemmel bir çözüm ile "halit3" çıktı.
Eline sağlık, beynine sağlık Sn halit3.
Selamlar,

 

[Orion1]

Cemil bey dosyanız ektedir.

Private Sub UserForm_Initialize()
Dim i As Byte, sat As Long
Calendar1.Visible = False
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.FullRowSelect = True
For i = 1 To 5
    ListView1.ColumnHeaders.Add , , Sheets("TÜRÜ").Cells(1, i).Value, 150
Next
For i = 1 To 3
    sat = Sheets("Genel").Cells(65536, i).End(xlUp).Row
    If sat > 1 Then
        Controls("ComboBox" & i).RowSource = "Genel!" & Sheets("Genel").Range(Sheets("Genel").Cells(2, i), Sheets("Genel").Cells(sat, i)).Address
        Controls("ComboBox" & i).ListIndex = Controls("ComboBox" & i).ListCount - 1
    End If
Next
Call CommandButton10_Click
End Sub
Private Sub CommandButton10_Click()
Dim i As Long, tur As String, borc As String, unvan As String, sat As Long, tar As Date
Dim son As Long
ListView1.ListItems.Clear
If TextBox223.Text <> "" And Not IsNumeric(TextBox223.Text) Then
    MsgBox "Vade Bir tarih olmalı veya hepsini listelemek içinse boş olmalıdır.", vbCritical, "UYARI"
    TextBox223.SetFocus
    TextBox223.SelStart = 0
    TextBox223.SelLength = Len(TextBox223.Text)
    Exit Sub
End If
With Sheets("TÜRÜ")
    son = .Cells(65536, "A").End(xlUp).Row
    tur = ComboBox1.Value
    borc = ComboBox2.Value
    unvan = ComboBox3.Value
    If IsDate(TextBox223.Text) Then tar = TextBox223.Text
    For i = 2 To son
        If ComboBox1.Value = "HEPSİ" Then tur = .Cells(i, "A").Value
        If ComboBox2.Value = "HEPSİ" Then borc = .Cells(i, "C").Value
        If ComboBox3.Value = "HEPSİ" Then unvan = .Cells(i, "D").Value
        If TextBox223.Text = "" Then tar = .Cells(i, "B").Value
        If .Cells(i, "A").Value = tur And .Cells(i, "B").Value = tar And _
        .Cells(i, "C").Value = borc And .Cells(i, "D").Value = unvan Then
            sat = sat + 1
            ListView1.ListItems.Add , , .Cells(i, "A").Value
            ListView1.ListItems(sat).SubItems(1) = Format(.Cells(i, "B").Value, "dd.mm.yyyy")
            ListView1.ListItems(sat).SubItems(2) = .Cells(i, "C").Value
            ListView1.ListItems(sat).SubItems(3) = .Cells(i, "D").Value
            ListView1.ListItems(sat).SubItems(4) = Format(.Cells(i, "E").Value, "#,##0.00")
        End If
    Next i
End With
            
End Sub

 

[cemilk]

Hocam allah razı olsun ellerin dert görmesin Tam istediğim gibi oldu çoklu seçim için ideal bir form hazırlamışsın sağol.

Allah ta senin dileklerini yerine getirir inşallah.

 

[Orion1]

Hocam allah razı olsun ellerin dert görmesin Tam istediğim gibi oldu çoklu seçim için ideal bir form hazırlamışsın sağol.

Allah ta senin dileklerini yerine getirir inşallah.

Rica ederim.
İyi çalışmalar.