Bu dosya, Sayfa1 üzerindeki isim listesinde eşleşen kayıtları ADO bağlantısı ve SQL sorgusu ile bulup E sütununda listeler. Karşılaştırma döngü içinde hücre hücre formülle değil, çalışma kitabına kurulan veritabanı bağlantısı üzerinden yapılır. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- Sayfa1: A1:E35 aralığını kullanır. A1 hücresinde ADI SOYADI başlığı bulunur; A sütununda ad soyad listesi yer alır (A2:A15 aralığında örnek isimler hazır gelir). E1 hücresi makro çalışınca EŞLEŞENLER başlığını alır, eşleşen isimler E2 hücresinden aşağı doğru yazılır.
- Çalışma kitabında iki VBA modülü vardır: baglanti ve Kod.
Makrolar
- Baglanti_Yap (modül: baglanti): Çalışma kitabının kendisine ADODB bağlantısı açar. Bağlantıda Microsoft.ACE.OLEDB.12.0 sağlayıcısı, Excel 12.0 özellikleri ve ilk satırın başlık olduğunu belirten hdr=yes ayarı kullanılır. Bağlantı zaten açıksa kapatılır ve yordam sona erer. Dosya dışarıya bağlantı kurmaz; bağlantı yalnızca açık olan çalışma kitabına yapılır.
- Listele (modül: Kod): Önce bağlantıyı kurar, E sütununu temizler ve E1 hücresine başlığı yazar. Ardından A sütunundaki dolu hücreleri tek tek dolaşır. Her hücre için, aynı satırdaki C sütununda bulunan değeri Sayfa1$ içindeki ADI SOYADI alanında arayan bir SELECT sorgusu çalıştırır. Kayıt dönerse sonuç E sütununda son dolu hücrenin altına kopyalanır.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- A sütununa ad soyad listesini, karşılaştırılacak isimleri ise C sütununa girin.
- Alt+F8 ile makro listesini açıp Listele makrosunu çalıştırın.
- Eşleşen isimler E sütununda EŞLEŞENLER başlığının altında listelenir.