@CemalTekin
Aslında bu veri yığını ve bu kriter çokluğu olunca işlemin bir miktar yavaşlaması normal.
Yapılan işlem; 15.000 (veri) x 30 (faaliyet konusu) x 81 (il adı) x 2 (tarih) = 72.900.000 adet işlem-kontrol demek.
Seçilen
CheckBox adetine bağlı olarak hız değişebilir.
Checkbox'ların tümünü seçmek için, tek tek seçim yerine seçimi TÜMÜ kutucukları üzerinden yapmak da hızı artırabilir.
Veri sayısını 20.000 yapıp, denediğimde, iki tarih kirteri varken, CheckBoxların tümünü tek tek seçince 35 saniye,
TÜMÜ kutucuğundan seçilince ise 4 saniye civarında sonuç aldım.
Bence süreler makul sayılır.
Belki faaliyet konusu ile şehir döngüsü tersine çevrilirse hız artabilir (mevcut yapı tarih >şehir >faaliyet konusu şeklinde)
Uygun olduğumda (hatırlatmanızda sıkıntı yok, atlanabilir) yapıyı, tarih>faaliyet konusu >şehir şeklinde oluştururum.
Bir de kodda ilgili yerlere aşağıda
yeşil renklendirdiğim satırları
ekleyin, bir nebze de olsa süre azalmasına katkısı olacaktır.
Bu ekleme faaliyet konusu Checkbox'larından, içeriği boş olanların atlanmasını sağlayacak.
Userform kapandığında Veri_Süz sayfasındaki listenin silinmemesi/kalması için
UserForm_QueryClose kod blokunu silebilirsiniz.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(12 satır)