ADO ile Aynı Numaraları Toplama

Bu dosya, Sayfa1 üzerindeki numara sütununda tekrar eden değerleri ADO bağlantısı ve SQL sorgusu ile gruplayıp her numara için toplam çıkaran bir makro örneğidir. Formül kullanılmaz; tüm işlem tek bir makro ile yapılır.
Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: A1:P25 aralığında örnek veri bulunur. A sütununda 1111 ile 1130 arasında numaralar yer alır; bazı numaralar (1121, 1126, 1129) birden fazla satırda tekrar eder. C sütununda her satıra ait sekiz haneli değerler bulunur.
• G ve I sütunlarında "TC Kimlik No" ve "Hesap No" başlıkları, G sütununda ise kimlik numarası listesi yer alır. L sütunundaki notlarda, G2 hücresinden itibaren kimlik numaralarının listelenmesi, ad soyad bilgilerinin H sütununa, hesap numaralarının I sütununa yazılması istenir.

Makrolar​

Dosyada Sayfa1 sayfa modülünde yer alan Etoplam adlı tek bir makro bulunur.

• Geçerli çalışma kitabına Microsoft.Jet.OLEDB.4.0 sağlayıcısıyla ADODB bağlantısı açar; sayfa başlıksız (hdr=no) okunur.
• Sayfa1 üzerinde A sütununa göre GROUP BY uygulayan ve D sütunundaki değerleri Sum ile toplayan bir SQL sorgusu çalıştırır.
• Çalıştırmadan önce G2:J100 aralığı temizlenir.
• Sonuçta her benzersiz numara G sütununa, o numaranın toplamı J sütununa alt alta yazılır.
• Makro dosya silme veya dışarıya bağlantı gibi işlem yapmaz; yalnızca açık olan çalışma kitabını sorgular.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1 üzerindeki A sütununa numaraları, D sütununa toplanacak değerleri girin.
3. Alt+F8 tuşlarıyla makro listesini açın, Etoplam makrosunu seçip çalıştırın.
4. Benzersiz numaralar G sütununda, toplamları J sütununda listelenir.

Jet 4.0 sağlayıcısı 32 bit Office ile çalışır; 64 bit Office kullanılan bilgisayarlarda bağlantı satırının ACE sağlayıcısına uyarlanması gerekir.