Çözüldü ListBox ve CheckBox ile Çok Koşullu Filtreleme

Elinize sağlık @Ömer BARAN hocam. Desteğiniz için minnettarız.
Belediyemiz İmar Müdürlüğü'nün verimini arttıracak bir çalışma oldu.
Saygılarımla...

Sayın @evuye
Sorunuz çözüme ulaşıldı ise konuyu çözüldü olarak işaretleyip, kilitleyelim.

Merhaba,
Sadece şöyle bir durum var. Sayfayı koru yaptığımda Sonuçları Getir" butonuna basınca kod hata veriyor.

@Ömer BARAN hocam bu projenin 8.3 versiyonunda liste kutularını bir şekilde kilitlemişti(Alttaki resimde ki gibi). Açmak için "Tasarım Modu" butonuna basmak gerekiyordu.

Bu da işimi görür aslında. Epey kurcaladım ama bulamadım.
Bunu nasıl yapabilirim.

Tekrar merhaba Sayın @evuye .

-- Eklediğim belgedeki filtreleme kod blokunda, en sondaki NEXT satırının altında kalan kısmı aşağıdakiyle değiştirin.
-- Kırmızı renklendirdiğim satırlar, daha evvel kod'un en üst kısmında idi. Yani bu kısma taşınacak, üstteki ilgili satırları oradan silin.
-- Belgeye sayfa koruması için PAROLA olarak ne yazmışsanız MAVİ renklendirdiğim kısımlara kendi parolanızı yazarsınız.
Parola zaten kuullanmıyorsanız ÇİFT TIRNAKlar ve 1 sayısını silebilirsiniz.

Teşekkür ederim. Şimdi deneyeceğim. Ama şunu da belirtmeden geçemeyeceğim.

Elinize sağlık @Ömer BARAN hocam. Desteğiniz için minnettarız.

Genişletmek için tıklayın ...

Minnettar olmak ağır ve altı dolu bir ifadedir. Çok kolay kullanılmamalıdır. En azından benim açımdan öyle. Özellikle bu ifadeyi kullanmamın nedeni şudur:

Yazdığınız kodun neredeyse yarısı yeşil renkte. Sadece kodu yazıp geçebilirdiniz. Yine destek vermiş olurdunuz. Ama bu şekilde öğretme yolunu seçiyorsunuz. Hem de hiç tanımadığınız insanlara. Çok da faydalı oluyor gerçekten bu açıklamalarınız. Bu yüzden minnettarım. Bu yüzden daha fazla saygı duyuyorum emeğinize.
Çok teşekkür ederim.

Eyvallah, sağ olunuz
Öğrenme arzusunu görünce dayanamadım ve tek tek açıklama ekledim.

Makroya gelince;
-- Rastlayabileceğiniz muhtemel sorun ancak, RUHSAT sayfasındaki sütunlardan,
BARAN sayfasına aktarılmayacak ancak gizlenmemiş sütunlar olması durumudur.
-- Bunun çözümü için; If r.Cells(Rows.Count, "D").End(3).Row > 3 Then satırı ile Else satırı arasında düzenleme yapılması
ya da RUHSAT sayfasında, aktarıma tabi tutulmayacak sütunlarının gizlenmesi için koda ilave yapılması gerekecektir.

@Ömer BARAN hocam şimdi fark ettim. Süreç filtresi sanırım hatalı sonuç döndürüyor. Şöyle ki;

Mimari Kontrol seçildiğinde 13 tane sonuç veriyor. Üstteki resimde kırmızı ile işaretlediğim yerleri göstermesi gerekiyordu sadece. Variable sekmesinde de şu şekilde çünkü:

Ruhsat sekmesinde manuel filtreleme yapınca da dönen sonuç şu şekilde:


Aslında macro ya baktığımda bir sorun göremedim. 4'den küçükler için 11 numaralı sütuna("K" sütununa), 4'den büyükler için de "L" sütununa bakıyor(olması gerektiği gibi)
Ekli dosyayı görüntüle hesaplama.xlsm
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sanırım kuralda bir sıkıntı var. Önce liste kutusu 1'e (yani mevkii) bakıldığı için onların da hepsi seçili olduğunda hepsini(tüm sonuçları) getiriyor. İkinci sıradaki süreç bölümünü ilkinin üzerine filtrelemiyor.
Ben baktım ama bunun düzeltimi beni aştı maalesef.
Nasıl yapabiliriz?

Yanlış düşünmüyorsam;
Case 2 'nin hemen altındaki 2 adet If.... satırında
If a<=... kısımlarını If aa<=... olarak değiştirmek gerekiyor.
Bu değişiklikleri yaparak kontrol eder misiniz?

Aynen öyleymiş. Sorun çözüldü