ADO ile Tarih Bazlı Gruplandırma Yapma

Bu dosya, alt alta kayıtlı verilerin ADO bağlantısı ve SQL sorgusu ile plaka ve tarih (ay/yıl) bazında gruplandırılıp özetlenmesini gösteren makro içeren bir örnektir. Gruplama formül kullanılmadan, VBA kodu ile tek seferde yapılır.

Dosyanın içeriği​

• veriler sayfası: A sütununda Plaka, C sütununda Tarih bilgisi bulunan örnek kayıtlar yer alır. Örnek veride 2020 yılına ait 13 kayıt vardır.
• Sorgu, Km alanını toplayacak şekilde yazılmıştır; bu nedenle kendi verinizde Km başlıklı bir sütun bulunmalıdır.
• Sonuç tablosu aynı sayfada H1 hücresinden başlayarak oluşturulur.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Module1 içindeki kodado makrosu şunları yapar:

1. ADODB.Connection nesnesi ile açık olan çalışma kitabına, Microsoft ACE OLEDB 12.0 sağlayıcısı üzerinden bağlanır.
2. veriler sayfasındaki A1:D65536 aralığında, Plaka alanı boş olmayan kayıtlar için TRANSFORM sum(Km) ... PIVOT Tarih sorgusunu çalıştırır. Kayıtlar Plaka, ay ve yıla göre gruplanır.
3. H1:U65536 aralığındaki eski sonuçları temizler.
4. Sorgu sonucunu CopyFromRecordset ile H2 hücresinden itibaren yazar.
5. Sütun başlıklarındaki alt çizgileri noktaya çevirerek H1 satırına yazar ve sonuç bölgesine kenarlık ekler.

Kodda dosya silme veya dışarıya bağlantı işlemi yoktur; bağlantı yalnızca dosyanın kendisine kurulur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. veriler sayfasındaki Plaka, Tarih ve Km sütunlarına kendi kayıtlarınızı girin.
3. Alt+F8 ile kodado makrosunu çalıştırın.
4. Gruplanmış sonuç H1 hücresinden başlayan tabloda listelenir.

Bilgisayarda Microsoft ACE OLEDB 12.0 sağlayıcısının (Office ile birlikte gelir veya Access Database Engine olarak kurulur) bulunması gerekir. Sorgu 65536. satıra kadar olan aralığı okur.