Soru ADO ile Filtrelenen Veriyi Başka Sayfaya Kopyalama

[cicosz]

Merhaba, 4 adet combobox ile Sayfa1'de filtreleme yapıp, filtrelenen verileri Sayfa2'ye kopyalamak istiyorum. Combobox'ların birbirinden bağımsız çalışması gerekiyor. Ekteki dosya üzerinden örnek vermek gerekirse:
Mahalle seçmek için il ya da ilçe seçmeye gerek olmayacak yani il ilçe sokak farketmeksizin sadece mahalleyi listelemem gerekiyor.
Bir türlü beceremedim. Yardımcı olabilir misiniz?

Teşekkürler.

 

[YUSUF44]

Bana göre uygun olmayan bir kullanım şekli olsa da aşağıdaki gibi bir düzenleme mi istiyorsunuz? Userform kodlarını aşağıdakilerle değiştirin:

Private Sub UserForm_Initialize()
Call baglan
ListBox1.Column = con.Execute("select * from [Sayfa1$] where not isnull([İl])").getrows
ComboBox1.Column = con.Execute("select distinct([İl]) from [Sayfa1$] where not isnull([İl])").getrows
ComboBox2.Column = con.Execute("select distinct([İlçe]) from [Sayfa1$] where not isnull([İlçe])").getrows
ComboBox3.Column = con.Execute("select distinct([Mahalle]) from [Sayfa1$] where not isnull([Mahalle])").getrows
ComboBox4.Column = con.Execute("select distinct([Sokak]) from [Sayfa1$] where not isnull([Sokak])").getrows
End Sub

Private Sub ComboBox1_Change()
ListBox1.Clear
ComboBox2.Column = con.Execute("select distinct([İlçe]) from [Sayfa1$] where [İl]='" & ComboBox1.Value & "'").getrows
ComboBox3.Column = con.Execute("select distinct([Mahalle]) from [Sayfa1$] where [İl]='" & ComboBox1.Value & "'").getrows
ComboBox4.Column = con.Execute("select distinct([Sokak]) from [Sayfa1$] where [İl]='" & ComboBox1.Value & "'").getrows
ListBox1.Column = con.Execute("select * from [Sayfa1$] where [İl]=""" & ComboBox1.Value & """").getrows
End Sub

Private Sub ComboBox2_Change()
ListBox1.Clear
ComboBox1.Column = con.Execute("select distinct([İl]) from [Sayfa1$] where [İlçe]='" & ComboBox2.Value & "'").getrows
ComboBox3.Column = con.Execute("select distinct([Mahalle]) from [Sayfa1$] where [İlçe]='" & ComboBox2.Value & "'").getrows
ComboBox4.Column = con.Execute("select distinct([Sokak]) from [Sayfa1$] where [İlçe]='" & ComboBox2.Value & "'").getrows
ListBox1.Column = con.Execute("select * from [Sayfa1$] where [İlçe]=""" & ComboBox2.Value & """").getrows
End Sub

Private Sub ComboBox3_Change()
ListBox1.Clear
ComboBox1.Column = con.Execute("select distinct([İl]) from [Sayfa1$] where [Mahalle]='" & ComboBox3.Value & "'").getrows
ComboBox2.Column = con.Execute("select distinct([İlçe]) from [Sayfa1$] where [Mahalle]='" & ComboBox3.Value & "'").getrows
ComboBox4.Column = con.Execute("select distinct([Sokak]) from [Sayfa1$] where [Mahalle]='" & ComboBox3.Value & "'").getrows
ListBox1.Column = con.Execute("select * from [Sayfa1$] where [Mahalle]=""" & ComboBox3.Value & """").getrows
End Sub

Private Sub ComboBox4_Change()
ListBox1.Clear
ComboBox1.Column = con.Execute("select distinct([İl]) from [Sayfa1$] where [Sokak]='" & ComboBox4.Value & "'").getrows
ComboBox2.Column = con.Execute("select distinct([İlçe]) from [Sayfa1$] where [Sokak]='" & ComboBox4.Value & "'").getrows
ComboBox3.Column = con.Execute("select distinct([Mahalle]) from [Sayfa1$] where [Sokak]='" & ComboBox4.Value & "'").getrows
ListBox1.Column = con.Execute("select * from [Sayfa1$] where [Sokak]=""" & ComboBox4.Value & """").getrows
End Sub

 

[cicosz]

Teşekkürler.
Evet aynen bu tarz filtreleme yapmam gerekiyor. Kodu denedim çok güzel çalışıyor. Şimdi listboxtakileri sayfa2'ye kopyalamam gerekiyor. Onunla ilgili yardımcı olur musunuz?
Ek olarak bu gibi durumlara en ideal ne çözüm önerirsiniz? Daha öncesinde autofilter ile denedim. Aslına bakarsanız en ideal yolu arıyorum o yüzden farklı şeyler deniyorum. Bu gibi durumlar sürekli karşıma çıkacak gibi.

 

[YUSUF44]

Soruyu anlayamadım. Örnekleyerek açıklar mısınız? Ne zaman ne olunca ne olmasını istiyorsunuz?

 

[cicosz]

Sayfa1 adlı sayfada yaklaşık 60.000 kayıt olduğunu düşünelim. Amacımız, elimizde olan bilgiler doğrultusunda filtreleme yapıp el son dolu satırın altına alt toplamlarını yazdırım çıktı almak. Bazen elimizde il, ilçe, mahalle, sokak verilerinin hepsi olmuyor bu yüzden daha önceki comboboxa bağlı seçim yaptıramıyorum. Örneğin elimde sadece mahalle ve sokak isimleri var ve bu doğrultuda filtreleme yaptırıp sayfa2'ye yazdırmam gerekiyor. Ya da sadece ilçe ve sokak bilgisi mevcut. Ya da sadece mahalle bilgisi mevcut.
Elimizde mahalle ve sokak bilgisinin olduğunu düşünelim. Sizin kod ile önce mahalle bilgisini sonra sokak bilgisini girince sorun çıkmıyor fakat önce sokak seçip sonra mahalle seçince mahalleyi referans alıyor ve o mahalledeki tüm kayıtları sıralıyor. Netice itibariyle bu tarz bir filtrelemeyi yaptırıp sayfa2 ye kopyalamam gerekiyor.

Teşekkürler.

 

[YUSUF44]

Bahsettiğiniz kadar çok veride nasıl bir sonuç verir bilmiyorum ama gelişmiş filtre kullanarak yaptığım ekli dosyayı inceler misiniz?

 

[YUSUF44]

Dosyanın kullanımı şu şekilde: Sayfa2'deki A2: P2 yani yeşil hücrelere veri girerek aşağıdaki kısma istediğiniz verileri getirebilirsiniz.

 

[cicosz]

Teşekkürler.
Alternatif olarak ben ekteki dosyayı oluşturdum. Vaktiniz varsa bunun üzerinden gidebilir miyiz? Autofilter ile yaptım. Az veride iyi çalışıyor ama veri sayısı fazla olunca yanıt gecikebiliyor. Nerede hata yapıyorum çözemedim. Sırf yavaşlığı yüzünden alternatiflere yöneldim. Bu tür çalışmalarda izlenecek en iyi yol nedir?

Not: Dosyayı siteye eklerken sorun çıktığı için dosya tc sitesine yükledim.

ADO_-_Kopya.xlsm dosyasını indir - download

ADO_-_Kopya.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[YUSUF44]

Fikrim yok maalesef.

 

[cicosz]

İlginize teşekkür ederim. Kullanacak arkadaşlar için: combobox’lar ile bağımsız filtreleme örneği (autofilter ile) 8 nolu mesajda.