ADO ile Verileri Tersine Çevirme

Bu dosya, Excel verileri üzerinde ADO (ActiveX Data Objects) bağlantısıyla SQL sorgusu çalıştırmayı ve sonucu satırları sütunlara çevirerek (pivot biçiminde) sayfaya yazdırmayı gösterir. Sorgu, VBA makrosu içinden çalıştırılır.

Dosyanın içeriği​

• Sayfa1 (A1:D508): sr_no ve gider_kalemi başlıklı liste. Satırlarda MARKET VE GIDA ÜRÜNLERİ, TEMİZLİK ÜRÜNLERİ GİDERİ gibi gider kalemleri yer alır.
• Sayfa2 (A1:N27): Gider kalemlerinin (ARAÇ KİRALAMA GİDERİ, ELEKTRİK FATURASI, KIRTASİYE GİDERİ, TONER DOLUM GİDERİ vb.) sütunlara dağılmış tutarlarını gösteren özet tablo.
• Sayfa3 (A1:H7): tarih ve tutar sütunlarından oluşan küçük örnek veri. Makronun sorguladığı kaynak ve sonucun yazıldığı sayfa budur.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Module1 içindeki denene makrosu şu adımları uygular:

1. Sayfa3 üzerindeki E1:K100 aralığını temizler.
2. Microsoft ACE OLEDB 12.0 sağlayıcısıyla dosyanın kendisine ADO bağlantısı açar; başlık satırı kullanılır (hdr=yes).
3. TRANSFORM SUM(tutar), GROUP BY ve PIVOT tarih ifadelerinden oluşan sorguyu çalıştırır; tutarlar tarih sütunlarına göre toplanır.
4. Sonucu CopyFromRecordset ile Sayfa3 E2 hücresinden başlayarak yazar.

Makro dosya silme veya dışarıya bağlantı işlemi yapmaz; bağlantı yalnızca açık çalışma kitabına kurulur. Sorguda gider adlı bir sütun kullanıldığından, Sayfa3 başlıklarının sorguyla uyumlu olması gerekir. Örnek veride başlıklar tarih ve tutar olarak görünür.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa3 üzerindeki başlıkları ve verileri sorguya uygun biçimde düzenleyin.
3. Alt+F8 ile makro listesini açıp denene makrosunu çalıştırın.
4. Sonuç Sayfa3 üzerinde E2 hücresinden itibaren listelenir.
5. Kendi verinizde sayfa adını ve sütun adlarını sorgu metninde değiştirin.

Bilgisayarda Microsoft ACE OLEDB 12.0 sağlayıcısının (Office veya Access Database Engine) kurulu olması gerekir.