ADO ile Kritere Göre Raporlama

Bu şablon, aynı çalışma kitabındaki verilerin ADO bağlantısı ve SQL sorgusu ile kritere göre süzülüp raporlanmasını gösterir. Kriterler hücrelere girilir; makro sorguyu bu değerlere göre oluşturur ve sonucu sayfaya yazar.

Dosyanın içeriği​

• Sayfa1: A:H aralığında küçük bir örnek veri bulunur. A sütununda harf (a, b, c, d), C sütununda sayı (10-60), G sütununda ay (ocak, şubat) değerleri yer alır.
• F1 hücresi harf kriteri, G1 hücresi ay kriteri olarak kullanılır. Sonuçlar F3 hücresinden başlayarak listelenir.
• Module1: denme ve denememem adlı iki makro içerir.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar microsoft.ace.oledb.12.0 sağlayıcısı ile dosyanın kendisine bağlanır; dış bağlantı, dosya silme gibi işlem yapmaz.

• denme: Önce A10:C100000 aralığındaki eski içeriği temizler. Ardından select * from [sayfa1$] where biçiminde bir sorgu kurar. F1 doluysa sorguya harf koşulu, boşsa tüm dolu harfleri getiren koşul eklenir. G1 doluysa ay koşulu eklenir, boşsa yine tüm dolu harfler alınır. Sonuç CopyFromRecordset ile F3 hücresinden itibaren yazılır.
• denememem: Kriter kullanmaz; harf sütunu dolu olan tüm kayıtları getirir ve F4 hücresinden itibaren yazar.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Verileri Sayfa1 üzerinde başlık satırıyla birlikte tutun; sorgu harf ve ay başlıklarına göre çalışır.
3. F1 hücresine harf, G1 hücresine ay değerini yazın. Birini boş bırakırsanız o kritere göre süzme yapılmaz.
4. Alt+F8 ile denme makrosunu çalıştırın; eşleşen kayıtlar F3 hücresinden itibaren listelenir.
5. Tüm kayıtları görmek için denememem makrosunu çalıştırın.

ADO için ACE sağlayıcısı gerekir; Excel 2007 ve sonrası sürümlerle birlikte gelen Office bileşenleri bunu karşılar.