ADO ile Kolay Bulma

Bu dosya, bir sayfaya yazılmış isimlerin başka bir sayfadaki veri listesinde ADO (ActiveX Data Objects) yöntemiyle nasıl aranacağını gösterir. Sayfa2'deki her isim için Sayfa1'de sorgu çalıştırılır; eşleşme bulunursa karşılığındaki No değeri Sayfa2'ye yazılır. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Ana veri alanıdır (A1:B11). A sütununda "Adı" başlığı altında Turabi, Cemre, Halil ve tekrar eden Tuğkan kayıtları yer alır. Sorgu bu sayfadaki No sütununu kullanır.
• Sayfa2: Aranacak isimlerin listesidir (A1:B6). A sütununda Turabi, Cemre, Sibel, Cansu ve Tuğkan bulunur; B sütunu makronun bulduğu No değerleriyle dolar. Sibel ve Cansu, Sayfa1'de bulunmayan isimlerdir; bu satırlar boş kalır.

Dosyada formül yoktur, tüm işlem makro ile yapılır.

Makrolar​

• turat (Module1): ThisWorkbook dosyasına Microsoft.Jet.OLEDB.4.0 sağlayıcısıyla bir ADODB bağlantısı açar. Sayfa2'nin A sütunundaki son dolu satıra kadar (2. satırdan başlayarak) bir döngü kurar. Her isim için Sayfa1'de Adı sütununa göre No değerini seçen bir SQL sorgusu çalıştırır. Kayıt bulunursa sonuç aynı satırın B sütununa yazılır, ardından kayıt kümesi ve bağlantı kapatılır.

Kodda dosya silme veya dışarıya bağlantı işlemi yoktur; bağlantı yalnızca açık çalışma kitabının kendisine kurulur.
Jet 4.0 sağlayıcısı 64 bit Office sürümlerinde çalışmayabilir; bu durumda 32 bit Excel gerekir. Ayrıca sorgu, dosyanın diskte kayıtlı olmasını gerektirir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1'e ana verileri, Sayfa2'nin A sütununa aranacak isimleri girin.
3. Alt+F8 tuşlarıyla makro listesini açın, turat makrosunu seçip Çalıştır'a basın.
4. Sayfa2'nin B sütununda bulunan isimlerin No değerlerini kontrol edin.

Not: Sorgu Sayfa1'de No başlıklı bir sütun bekler. Kendi verinizi kullanırken sütun başlıklarının sorguyla aynı olmasına dikkat edin.