Combobox la süz hk.

[qwertylion]

Benim şöyle bir sıkıntım var. listview e dosyadan veri getiriyorum, bunları combobox 2,3,4 ile süzüyorum ama bunlar birbirinden bağımsız çalışıyor.Yani istanbulu seçince tüm istanbul ilçe seçince seçtiğim ilçe, kod a,b,c den birini seçince seçtiğim koda ilşkin tüm veriler geliyor ama istanbula ait tüm ilçelerin kod a'sını seçemiyorum. Kodu nasıl değiştireceğimi bilmiyorum. Ayrıca hepsi seçeneğini listeye yazdırdım ama onu nasıl çalıştırabileceğimide söylerseniz çok sevinirim.

 

[harziyan]

Sn: qwertylion benzer bir problem benim de oldu ama çözemedim, yalnız burada 27 nolu mesajda Korhan Ayhan Bey güzel bir çalışma yapmış belki malumat sahibi olmak babında işinize yarar...

 

[qwertylion]

Mutlaka bir çözümü vardır ama üstatların bir el atmaları lazım.

 

[Orion1]

Dosyanız ektedir.
Listview2 için yani ilçe bazında sekmesi için kodlarınız yaptım.
Ekli dosyayı inceleyiniz.

Sub listele()
Dim ili As String, ilcesi As String, kodu As String
Sheets("KART_BORCUNU_ÖDEYENLER").Select
ListView2.ListItems.Clear
say = Cells(65536, "A").End(xlUp).Row
ili = UCase(Replace(Replace(ComboBox2.Value, "ı", "I"), "i", "İ"))
ilcesi = UCase(Replace(Replace(ComboBox3.Value, "ı", "I"), "i", "İ"))
kodu = UCase(Replace(Replace(ComboBox4.Value, "ı", "I"), "i", "İ"))
With ListView2
For j = 2 To say
    If ComboBox2.Value = "HEPSİ" Then ili = UCase(Replace(Replace(Cells(j, "A").Value, _
    "ı", "I"), "i", "İ"))
    
    If ComboBox3.Value = "HEPSİ" Then ilcesi = UCase(Replace(Replace(Cells(j, "B").Value, _
    "ı", "I"), "i", "İ"))
    If ComboBox4.Value = "HEPSİ" Then kodu = UCase(Replace(Replace(Cells(j, "C").Value, _
    "ı", "I"), "i", "İ"))
    If UCase(Replace(Replace(Cells(j, "A").Value, "ı", "I"), "i", "İ")) = ili And _
    UCase(Replace(Replace(Cells(j, "B").Value, "ı", "I"), "i", "İ")) = ilcesi And _
    UCase(Replace(Replace(Cells(j, "C").Value, "ı", "I"), "i", "İ")) = kodu Then
        i = i + 1
        .ListItems.Add , , Cells(j, 1)
        .ListItems(i).SubItems(1) = Cells(j, 2)
        .ListItems(i).SubItems(2) = Cells(j, 3)
        .ListItems(i).SubItems(3) = Cells(j, 4)
        .ListItems(i).SubItems(4) = Cells(j, 5)
        .ListItems(i).SubItems(5) = Cells(j, 6)
        .ListItems(i).SubItems(6) = Cells(j, 7)
        .ListItems(i).SubItems(7) = Cells(j, 8)
        .ListItems(i).SubItems(8) = Cells(j, 9)
    End If
        If j Mod 1 = 0 Then
         End If
Next
End With
ListView2.FullRowSelect = True
ListView2.Gridlines = True
End Sub

 

[qwertylion]

tam istediğim gibi olmuş ellerinize sağlık.

 

[Orion1]

tam istediğim gibi olmuş ellerinize sağlık.

Rica ederim.
İyi çalışmalar.

 

[elfgnr]

Combobox acil yardım!...

ekteki dosyada;Çift Tıkladıktan sonra (Sayfa2)'ye direkt kopyalıyor.Benim İstediğim İse ;Hangi sayfaya kopyalamak istediğimi sorsun ben seçim yapayım(ÖRN:Sayfa1'e mi, 2'ye mi 3'e mi Kopyalanısın)desin seçimimi ben yapayım
ayrıca en az dört sayfalık bir seçim olsun....
Çok Yeniyim bu konuda Yardımlarınızı bekliyorum Çok Değerli ustalarım.Şimdiden teşekkürler ELİF

 

[Orion1]

ekteki dosyada;Çift Tıkladıktan sonra (Sayfa2)'ye direkt kopyalıyor.Benim İstediğim İse ;Hangi sayfaya kopyalamak istediğimi sorsun ben seçim yapayım(ÖRN:Sayfa1'e mi, 2'ye mi 3'e mi Kopyalanısın)desin seçimimi ben yapayım
ayrıca en az dört sayfalık bir seçim olsun....
Çok Yeniyim bu konuda Yardımlarınızı bekliyorum Çok Değerli ustalarım.Şimdiden teşekkürler ELİF

Yeni bir başlık açarak sorunuzu sorunuz.Bu konu sonuçlandırıldı.