ADO ile Tekrarsız Listeleme Yapma

Bu dosya, aynı kişiye ait birden fazla satır içeren bir sigorta listesinden ADO (ActiveX Data Objects) ile tekrarsız liste çıkarmayı gösterir. Listeleme işlemi Listele adlı makro ile yapılır; sonuç aynı sayfada yan tarafta oluşturulur.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sheet1: Kaynak veri A1:X778 aralığındadır. Sol bölümde No, Sigorta Sicil No, İkr. Gün, Hissesi ve TOPLAM sütunları bulunur.
• Ortadaki bölümde No, ad soyad (L sütunu), Ç.G., Sig His Dev ve Top Sig His sütunları yer alır. Bu bölüm tekrarlı kayıtları içeren kaynak listedir.
• S2:X sütunları sonuç alanıdır: No, Adı ve Soyadı, Sig His Dev ve Top Sig His başlıklarıyla her kişi için tek satır listelenir.

Dosyada hücre formülü kullanılmamıştır; işlem tamamen makro ile yapılır.

Makrolar​

• Listele: Önce S2:X65536 aralığındaki eski sonuçları temizler. Ardından çalışma kitabının kendisine Jet OLEDB 4.0 sağlayıcısıyla ADO bağlantısı açar.
• A sütunundaki son dolu satıra kadar her satır için L sütunundaki ada göre bir SELECT sorgusu çalıştırır. Aynı ada ait birden fazla kayıt varsa kayıt kümesinde yalnızca sonuncusu alınır ve sonuç alanının ilk boş satırına yazılır.
• İşlem bitince sütun genişlikleri otomatik ayarlanır, sonuç alanına kenarlık çizilir ve geçen süreyi gösteren bir bilgi mesajı açılır.

Makro dosya silme ya da dış bağlantı işlemi yapmaz; bağlantı yalnızca dosyanın kendisine kurulur. Jet 4.0 sağlayıcısı nedeniyle makro 32 bit Excel sürümlerinde sorunsuz çalışır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sheet1 sayfasında kaynak listenin L sütununda ad soyad bilgilerinin bulunduğunu kontrol edin; kendi verinizi kullanacaksanız aynı sütun düzenini koruyun.
3. Alt+F8 ile Listele makrosunu seçip çalıştırın.
4. İşlem tamamlandığında S:X sütunlarında her ad için tek satırlık tekrarsız liste oluşur.

Sorgu, sayfa adını Sheet1 olarak kullanır; sayfa adı değiştirilirse makrodaki sorgunun da güncellenmesi gerekir.