ADO ile Benzer İsimleri Listeleme

Bu dosya, sigorta sicil kayıtlarının bulunduğu listede aynı Adı ve Soyadı değerine sahip satırları ADO bağlantısı ve SQL sorgusu ile bularak ayrı bir tabloya aktarır. İşlem tek bir makro ile yapılır ve sonunda geçen süre bir mesaj kutusunda gösterilir.

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

Dosyanın içeriği​

• Sheet1: A2:X778 aralığında çalışan tek sayfadır. Sol bölümde (A:I) No, Sigorta Sicil No, İkr. Gün, Hissesi ve TOPLAM sütunları bulunur.
• Orta bölümde (K:P) No, Adı ve Soyadı (L sütunu), Ç.G., Sig His Dev ve Top Sig His sütunları yer alır. Sorgu bu bölümdeki isimleri esas alır.
• Sağ bölümde (S:X) makronun ürettiği sonuç tablosu bulunur: No, Adı ve Soyadı, Sig His Dev ve Top Sig His sütunları.

Makrolar​

Dosyada Module1 içinde Listele adlı tek bir makro vardır. Makro sırasıyla şunları yapar:

1. S2:X65536 aralığındaki önceki sonuçları temizler.
2. Çalışma kitabının kendisine Microsoft.Jet.OLEDB.4.0 sağlayıcısıyla bağlanır; bağlantı yalnızca bu dosyaya yapılır, dışarıya bağlantı kurulmaz.
3. A sütunundaki dolu satırlar boyunca ilerler ve her satırdaki L sütunu adı için Sheet1 üzerinde SELECT sorgusu çalıştırır.
4. Aynı ada ait kayıtlar bulunduğunda kayıt kümesinin son kaydına gider ve bu kaydı S sütunundan başlayan tabloya kopyalar.
5. İşlem bitince sütun genişliklerini ayarlar, sonuç tablosuna kenarlık ekler ve süreyi gösteren bir bilgi mesajı verir.

Makro dosyadaki hiçbir veriyi silmez; yalnızca S2:X65536 aralığındaki sonuçları temizleyip yeniden yazar. Sorgu Jet 4.0 sağlayıcısını kullandığından .xlsm dosyalarda ve 64 bit Office sürümlerinde sağlayıcı hatası alınabilir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Kendi verilerinizi aynı sütun düzeninde girin; isimler L sütununda olmalıdır.
3. Alt+F8 ile Listele makrosunu seçip çalıştırın.
4. İşlem tamamlandığında sonuçlar S:X sütunlarında listelenir.