ADO ile Sayfa Karşılaştırma

Bu dosya, iki ayrı sayfadaki müşteri kayıtlarını ADO bağlantısı ve SQL sorgusu ile karşılaştırır. 1 TABLO sayfasında bulunup 2 TABLO sayfasında bulunmayan müşteri kodları tek makro çalıştırılarak bulunur ve sonuç ayrı bir sayfaya aktarılır.

Dosyanın içeriği​

• 1 TABLO: A1:R957 aralığında ana müşteri listesi yer alır. Başlıklar: MÜŞTERİ KODU, MÜŞTERİ İLGİLİ KİŞİ, ŞEHİR, TELEFON, VERGİ NO, MÜŞTERİ GRUBU, ST KODU, GÜN KODU ve DURUM.
• 2 TABLO: A1:O641 aralığında karşılaştırılacak ikinci liste bulunur. Başlıklar: MÜŞTERİ KODU, ADRES, İLÇE, VERGİ DAİRESİ, MÜŞTERİ VADESİ, GÜN KODU ve NEDENİ. Örnek kayıtlar Amasya merkezli adreslerden oluşur ve durum bilgisi "FAAL" olarak girilmiştir.
• 2Sİ ARASINDAKI FARK: Makronun sonucu bu sayfaya yazılır. Dosyada sayfa başlangıçta boştur.
• DANIŞMA: LNGKOD, İLÇE, V. DAİRESİ ve DURUM sütunlarından oluşan yardımcı bir liste içerir (Aladağ, Ceyhan, Kozan, Seyhan gibi ilçe adları).

Dosyada çalışma sayfası formülü bulunmaz; karşılaştırma tamamen makro ile yapılır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Module1 içindeki Emre prosedürü sırasıyla şunları yapar:

1. 2 TABLO sayfasındaki A sütunu kodlarının başındaki boşlukları temizler.
2. Sonuç sayfasındaki A2:R65536 aralığını temizler.
3. Microsoft Jet OLEDB 4.0 sağlayıcısıyla çalışma kitabının kendisine ADO bağlantısı açar.
4. 1 TABLO'daki ilk sütun değeri 2 TABLO'da bulunmayan kayıtları NOT EXISTS sorgusuyla seçer.
5. Kayıt varsa sonuçları sonuç sayfasında A2 hücresinden başlayarak yapıştırır ve işlem tamamlandı mesajı verir.

Kodda dosya silme veya dışarıya bağlantı işlemi yoktur; 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. Ana listeyi 1 TABLO sayfasına, karşılaştırılacak listeyi 2 TABLO sayfasına yerleştirin; müşteri kodları her iki sayfada A sütununda olmalıdır.
3. Alt+F8 ile Emre makrosunu çalıştırın.
4. Farklı olan kayıtları 2Sİ ARASINDAKI FARK sayfasında inceleyin.