2 adet comboboxlar arasında filtreleme

[udentr2002]

Merhaba arkadaşlar;
Userformum üzerinde combobox31 ve combobox 32 şeklinde 2 tane combobox var.

Combobox31, "Planlama" adlı sayfada "A" sütununa göre filtreleme yapıp "Listview6" ya süzüyor. Buraya kadar tamam bunla ilgili kodlarım aşağıdaki gibidir. Bu kodlar çalışıyor.
benim istediğim combobox31 change kodundan sonra listview6 ya süzme yaptıktan sonra ki verileri Combobox32 de o süzdüğü verilerden "X" sütununda yer alan aylara göre filtreleme yapıp listview6 da süzmesi.

Combobox32'de ki veriye göre combobox32 filtreleme yapıp listview6 da göstersin. İnşallah anlatabilmişimdir. Şimdiden ilgilenen arkadaşlarıma çok teşekkür ederim.

Private Sub ComboBox31_Change()

ListView6.ListItems.Clear
'If ComboBox2.Value = "HEPSİ" Then
'    Call listele
'    Exit Sub
'End If
For i = 1 To Sheets("Planlama").Cells(60000, "A").End(xlUp).row
If Sheets("Planlama").Cells(i, "a").Value = Me.ComboBox31 Then
y = y + 1
ListView6.ListItems.Add , , i
'ListView1.ListItems.Add , , Sheets("Etken").Cells(i, 1)
ListView6.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 1)
ListView6.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 2)
ListView6.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 3)
ListView6.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 4), "#,0")
ListView6.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 5), "#,#####0.0000000")
ListView6.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 6), "#,###0.00000")
ListView6.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 7)
ListView6.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 8), "#,##0.000")
ListView6.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 9)

ListView6.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 10), "#,##0.00000")
ListView6.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 11), "#,##0.00000")


ListView6.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 12)
ListView6.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 13)
ListView6.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 14)
ListView6.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 15), "#,##0.000")
ListView6.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 16)
ListView6.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 17)
ListView6.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 18)
ListView6.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 19)

ListView6.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 20), "#,##0.00")
ListView6.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 21)
ListView6.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 22), "#,0")
ListView6.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 23), "#,##0.00")
deg = deg + CDbl(Sheets("Planlama").Cells(i, 23))

ListView6.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 24)

ListView6.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 25)
ListView6.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 26), "#,##0.000")
ListView6.ListItems(y).ListSubItems.Add , , Format(Sheets("Planlama").Cells(i, 27), "#,##0.000")
ListView6.ListItems(y).ListSubItems.Add , , Sheets("Planlama").Cells(i, 28)

End If

Next i




If ListView6.ListItems.Count = 0 Then
    MsgBox "Bu kayda rastlanmamıştır." & vbLf & vbLf & "İbrahim Özkarabulut", vbCritical, "UYARI"
 
Call listelestokcikis
End If
If ComboBox31 = "" Then
Call listelestokcikis
End If



End Sub