Listwiev'da grup bazında süzme.

[s.savas]

Merhaba arkdaşlar.
ComboBox6 ve ComboBox7 de görüntülenen veri ile listwiev'da süzme yapma yapmak istiyorum.
ComboBox6 aşağıdaki koda göre listwiev1'in l.SubItems(4) = sh.Cells(i, 4) satırını referans alarak süzme yapması gerekiyor.

Sub grup1()

Select Case "Mal Alımları"
Case "253-02 Makineler ve Aletler Grubu" _
, "253-03 Cihazlar ve Aletler Grubu" _
, "254-01 Karayolu Taşıtlar Grubu" _
, "255-01 Döşeme ve Mefruşat Grubu" _
, "255-02 Büro Makineleri Grubu" _
, "255-03 Mobilyalar Grubu" _
, "255-07 Kütüphane Demirbaşları Grubu" _
, "255-08 Eğitim Demirbaşları Grubu" _
, "255-09 Spor Amaçlı Kullanılan Demirbaşlar Grubu" _
, "255-10 Güvenlik, Kontrol ve Tedbir Amaçlı Demirbaşlar Grubu" _
, "255-11 Demirbaş Niteliğindeki Süs Eşyaları" _
, "255-12 Kullanımda Olan Demirbaş Niteliğindeki Değerli Eşyalar" _
, "255-99 Diğer Demirbaşlar Grubu" _
, "267-01 Yazılımlar" _
, "740-01 Kırtasiye Malzemeleri Grubu"

Select Case "Hizmet Alımları"
Case "740-102 Müşavir Firma ve Bilirkişi Giderleri" _
, "740-103 Elektrik Su Giderleri" _
, "740-104 Ulaştırma ve Haberleşme Giderleri" _
, "740-105 Taşıma ve Ardiye Giderleri" _
, "740-106 Temizlik Hizmet Alım Giderleri" _
, "740-107 Yemek Hizmet Alım Giderleri" _
, "740-108 Veri Hazırlama ve Bilgi işlem Hizmeti Giderleri" _
, "740-109 Güvenlik Hizmeti Alım Giderleri"

Select Case "Yapım İşleri"
Case "253-01 Tesisler Grubu" _
, "740-114 Yapı Tesis Onarım Hizmeti Giderleri" _
, "740-115 İnşaat Maliyet Giderleri"

End Select
End Sub

ComboBox7 ise aşağıdaki koda göre listwiev1'in l.SubItems(5) = sh.Cells(i, 5) satırını referans alarak süzme yapması gerekiyor.

Sub grup2()

Select Case "%10'a Tabii Alımlar"
Case "m.21-f", "m.22-d"

Select Case "%10'a Tabii Olmayan Alımlar"
Case "m.19", "m.21-b", "m.22-a", "m.22-f", "Çerçeve", "D.M.O"

End Select
End Sub

Yardımcı olacak arkadaşlara teşekkür ederim.

 

[s.savas]

Konuyu güncellemek istedim.