Sitemize Hoşgeldiniz

Türkiye'nin en geniş özeliklere sahip forumu olan ExcelDestek.Com üzerinde soru sorabilmek, daha önceki sorulan sorulara, açılan konulara cevap yazabilmek, puan kazanabilmek, kazandığınız puanlar ile dosya indirebilmek ve çok daha fazla özellikten yararlanabilmek için sitemize üye olunuz.
Hemen Üye Ol ya da Giriş Yap

Sorun Cevaplayalım

Excel'e dair sorularınızı sorun, cevaplayalım.

Çözümlenmiş Sorular

Kullanıcılarımızın sorularını ve sunduğumuz çözümleri inceleyin.

Destek Ekibimiz Sizlerle

Ücretli destek ve özel hizmet talep edebilirsiniz.

  • Web sitemizi "REKLAMSIZ" olarak ziyaret etmek ister misiniz?
    Gerek sitemize destek, gerekse de reklam görmeden sitemizde gezinmek isterseniz, HESAP YÜKSELTME sayfasından SADECE 15-TL'ye 1 yıl boyunca ÜCRETLİ ÜYELİK almanız yeterli olacaktır.
    Detaylı bilgilendirme için lütfen buraya tıklayınız!

    REKLAMSIZ FORUM KULLANMAYI TERCİH EDECEK ÜYELERİMİZE, https://www.exceldosyalari.com İSİMLİ SİTEMİZDEN 3 AYLIK ÜYELİK PAKETİ HEDİYE EDİLECEKTİR.

VBA  Filtreleme ( Listbox - CheckBox ) Çok Koşullu

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

evuye

VIP
VIP
Kullanıcı
Katılım
23 Eki 2019
Mesajlar
35
Excel Versiyonu, Dili
Online

Reputation:

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...
 

Bilgi

Destek Takımı
Destek Ekibi
VIP
Kullanıcı
Katılım
15 Eki 2019
Mesajlar
78
Web Sitesi
ExcelDestek.Com
Excel Versiyonu, Dili
Excel 2013 TR

Reputation:

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

evuye

VIP
VIP
Kullanıcı
Katılım
23 Eki 2019
Mesajlar
35
Excel Versiyonu, Dili
Online

Reputation:

Merhaba,
Sadece şöyle bir durum var. Sayfayı koru yaptığımda Sonuçları Getir" butonuna basınca kod hata veriyor.
Ekran Alıntısı_2.PNG
@Ö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.
Ekran Alıntısı.PNG
Bu da işimi görür aslında. Epey kurcaladım ama bulamadım.
Bunu nasıl yapabilirim.
 

Ömer BARAN

Kurucu
Yönetici
Kurucu
SMS Onaylı
Katılım
11 Nis 2019
Mesajlar
1,039
Web Sitesi
ExcelDestek.Com
Excel Versiyonu, Dili
2013 (32) TR

Reputation:

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.
Rich (BB code):
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.
 

evuye

VIP
VIP
Kullanıcı
Katılım
23 Eki 2019
Mesajlar
35
Excel Versiyonu, Dili
Online

Reputation:

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.
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:
Ekran Alıntısı.PNG
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.
 

Ömer BARAN

Kurucu
Yönetici
Kurucu
SMS Onaylı
Katılım
11 Nis 2019
Mesajlar
1,039
Web Sitesi
ExcelDestek.Com
Excel Versiyonu, Dili
2013 (32) TR

Reputation:

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.
 

evuye

VIP
VIP
Kullanıcı
Katılım
23 Eki 2019
Mesajlar
35
Excel Versiyonu, Dili
Online

Reputation:

@Ömer BARAN hocam şimdi fark ettim. Süreç filtresi sanırım hatalı sonuç döndürüyor. Şöyle ki;
Ekran Alıntısı.PNG
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ü:
Ekran Alıntısı_5.PNG Ekran Alıntısı_2.PNG
Ruhsat sekmesinde manuel filtreleme yapınca da dönen sonuç şu şekilde:
Ekran Alıntısı_4.PNG

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)
Ekran Alıntısı_3.PNG
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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?
 

Ekli dosyalar

Ömer BARAN

Kurucu
Yönetici
Kurucu
SMS Onaylı
Katılım
11 Nis 2019
Mesajlar
1,039
Web Sitesi
ExcelDestek.Com
Excel Versiyonu, Dili
2013 (32) TR

Reputation:

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?
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst