ADO ile Aynı İsimleri Listeleme

Bu dosya, sigorta sicil numarası ve hisse bilgilerini içeren bir personel listesinde aynı ada sahip kayıtları ADO bağlantısı ve SQL sorgusu ile ayrı bir alana listeler. İşlem tek bir makro ile yapılır; formül kullanılmaz.
Önemli: Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sheet1: A1:X778 aralığında çalışan veri sayfasıdır. Sol bölümde No, Sigorta Sicil No, İkr. Gün, Hissesi ve TOPLAM sütunları yer alır. Ortadaki bölümde No, adı soyadı (L sütunu), Ç.G. ve Sig His Dev değerleri bulunur. Sağdaki S:X bölümü Adı ve Soyadı, Sig His Dev ve Top Sig His başlıklarıyla sonuçların yazıldığı alandır.

Makrolar​

• Listele (Module1): Önce S2:X65536 aralığındaki eski sonuçları temizler. Ardından dosyanın kendisine Microsoft Jet OLEDB 4.0 ile bağlanır ve L sütunundaki her ad için Sheet1 sayfasında aynı adı taşıyan kayıtları SQL sorgusuyla çeker. Sorgu No, Adı ve Soyadı, Sig Matrahı, Sig His Dev, Sigorta H(İ) ve Top Sig His alanlarını alır. Her ad için sorgunun döndürdüğü kayıtlardan yalnızca sonuncusu S sütunundan başlayan alana yazılır.
• İşlem bitince sütun genişlikleri otomatik ayarlanır, sonuç tablosuna kenarlık eklenir ve geçen süreyi gösteren bir bilgi mesajı açılır.
• Makro dosya silme ya da dışarıya bağlantı gibi bir işlem yapmaz; yalnızca açık dosyanın kendi verisini sorgular.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Ad listesinin L sütununda, sorguda kullanılan sütun başlıklarının da Sheet1 sayfasında bulunduğundan emin olun.
3. Alt+F8 ile Listele makrosunu seçip çalıştırın.
4. Sonuçlar S:X sütunlarında listelenir; tamamlanma süresi mesaj kutusunda gösterilir.

Jet OLEDB 4.0 sürücüsü kullanıldığından makro, Excel'in 32 bit sürümünde çalışır. Dosyanın bağlantı yapabilmesi için kaydedilmiş olması gerekir.