listview süzme

[igultekin2000]

iyi akşamlar; çalışmamda pratiklik sağlamak için AKBANK çalışma sayfasında çalışırken muavin çalışma sayfasında filtre yaparak " muavin " çalıma sayfasındaki " C " sütununa göre " filtreme " yapmak istiyorum. oluşturduğum listview 'de textBox1 ile kelimeye göre arama yaparak filtrelemek isitiyorum. Filtreleme kodunu yapamadım. ayrıca listview' e " muavin " çalışma sayfasnı almak yerine AKBANK çalışma sayfası alınıyor. Sheet değerlerle oynadım çözemedim. Teşekkürler kullandığım kod

Private Sub UserForm_Initialize()
With Me.ListView1
        .Gridlines = True
        .FullRowSelect = True
        .View = lvwReport
        .ListItems.Clear
        .ColumnHeaders.Clear
End With

With Me.ListView1.ColumnHeaders
        .Add , , "tarih", 50
        .Add , , "bos", 1
        .Add , , "borç", 40
        .Add , , "alacak", 40
        .Add , , "boş", 0
        .Add , , "açıklama", 100
        '.Add , , "açıklama", 100
        '.Add , , "açıklama", 100

End With
For i = 1 To Sheets(1).Cells(60000, 1).End(3).Row
ListView1.ListItems.Add , , Sheets(1).Cells(i, 1).Value
ListView1.ListItems(i).SubItems(1) = Sheets(1).Cells(i, 2).Value
ListView1.ListItems(i).SubItems(2) = Sheets(1).Cells(i, 3).Value
ListView1.ListItems(i).SubItems(3) = Sheets(1).Cells(i, 4).Value
ListView1.ListItems(i).SubItems(4) = Sheets(1).Cells(i, 5).Value
ListView1.ListItems(i).SubItems(5) = Sheets(1).Cells(i, 6).Value
'ListView1.ListItems(i).SubItems(6) = Sheets(1).Cells(i, 7).Value
'ListView1.ListItems(i).SubItems(7) = Sheets(1).Cells(i, 8).Value

Next i

 

[Orion1]

Buyurun.

For i = 1 To Sheets(2).Cells(60000, 1).End(3).Row
ListView1.ListItems.Add , , Sheets(2).Cells(i, 1).Value
ListView1.ListItems(i).SubItems(1) = Sheets(2).Cells(i, 2).Value
ListView1.ListItems(i).SubItems(2) = Sheets(2).Cells(i, 3).Value
ListView1.ListItems(i).SubItems(3) = Sheets(2).Cells(i, 4).Value
ListView1.ListItems(i).SubItems(4) = Sheets(2).Cells(i, 5).Value
ListView1.ListItems(i).SubItems(5) = Sheets(2).Cells(i, 6).Value
'ListView1.ListItems(i).SubItems(6) = Sheets(1).Cells(i, 7).Value
'ListView1.ListItems(i).SubItems(7) = Sheets(1).Cells(i, 8).Value

Next i

 

[igultekin2000]

Buyurun.

For i = 1 To Sheets(2).Cells(60000, 1).End(3).Row
ListView1.ListItems.Add , , Sheets(2).Cells(i, 1).Value
ListView1.ListItems(i).SubItems(1) = Sheets(2).Cells(i, 2).Value
ListView1.ListItems(i).SubItems(2) = Sheets(2).Cells(i, 3).Value
ListView1.ListItems(i).SubItems(3) = Sheets(2).Cells(i, 4).Value
ListView1.ListItems(i).SubItems(4) = Sheets(2).Cells(i, 5).Value
ListView1.ListItems(i).SubItems(5) = Sheets(2).Cells(i, 6).Value
'ListView1.ListItems(i).SubItems(6) = Sheets(1).Cells(i, 7).Value
'ListView1.ListItems(i).SubItems(7) = Sheets(1).Cells(i, 8).Value

Next i

Teşekkür ederim, sorunsuz çalıştı. bir de textBox' la filtreleme olursa işlemim bitmiş olacak, formad bağzı şeyler buldum ama düzenleyecek kadar çözemedim.

 

[Orion1]

Teşekkür ederim, sorunsuz çalıştı. bir de textBox' la filtreleme olursa işlemim bitmiş olacak, formad bağzı şeyler buldum ama düzenleyecek kadar çözemedim.

Userformdaki textboxtan muavin sayfasındaki c sütununu süzüyor,ve verileri listviewe alıyor.
Dosya ektedir.

Private Sub TextBox1_Change()
Dim sh As Worksheet, son As Long, deg As String, i As Long, sat As Long
Set sh = Sheets("muavin")
son = Cells(Rows.Count, "a").End(3).Row 'son dolu hücre
Me.ListView1.ListItems.Clear
sat = 1
i = 1
For i = 3 To son
    deg = sh.Cells(i, "C").Value
    deg = UCase(Replace(Replace(deg, "i", "İ"), "ı", "I"))
    If deg Like UCase(Replace(Replace("*" & TextBox1.Value & "*", "i", "İ"), "ı", "I")) Then
        ListView1.ListItems.Add , , Sheets(2).Cells(i, 1).Value
        ListView1.ListItems(sat).SubItems(1) = Sheets(2).Cells(i, 2).Value
        ListView1.ListItems(sat).SubItems(2) = Sheets(2).Cells(i, 3).Value
        ListView1.ListItems(sat).SubItems(3) = Sheets(2).Cells(i, 4).Value
        ListView1.ListItems(sat).SubItems(4) = Sheets(2).Cells(i, 5).Value
        ListView1.ListItems(sat).SubItems(5) = Sheets(2).Cells(i, 6).Value
        sat = sat + 1
    End If
Next
End Sub

 

[igultekin2000]

Userformdaki textboxtan muavin sayfasındaki c sütununu süzüyor,ve verileri listviewe alıyor.
Dosya ektedir.

Private Sub TextBox1_Change()
Dim sh As Worksheet, son As Long, deg As String, i As Long, sat As Long
Set sh = Sheets("muavin")
son = Cells(Rows.Count, "a").End(3).Row 'son dolu hücre
Me.ListView1.ListItems.Clear
sat = 1
i = 1
For i = 3 To son
    deg = sh.Cells(i, "C").Value
    deg = UCase(Replace(Replace(deg, "i", "İ"), "ı", "I"))
    If deg Like UCase(Replace(Replace("*" & TextBox1.Value & "*", "i", "İ"), "ı", "I")) Then
        ListView1.ListItems.Add , , Sheets(2).Cells(i, 1).Value
        ListView1.ListItems(sat).SubItems(1) = Sheets(2).Cells(i, 2).Value
        ListView1.ListItems(sat).SubItems(2) = Sheets(2).Cells(i, 3).Value
        ListView1.ListItems(sat).SubItems(3) = Sheets(2).Cells(i, 4).Value
        ListView1.ListItems(sat).SubItems(4) = Sheets(2).Cells(i, 5).Value
        ListView1.ListItems(sat).SubItems(5) = Sheets(2).Cells(i, 6).Value
        sat = sat + 1
    End If
Next
End Sub

çok teşekkür ederim, sorunsuz çalıştı, hayırlı geceler.

 

[Orion1]

Rica ederim.
İyi geceler.