ADO ile İki Liste Karşılaştırması

Bu şablon, iki listeyi ADO (ActiveX Data Objects) ve SQL sorgusu ile karşılaştırır. Sayfa1 ile Sayfa2 arasında Barkod değerine göre eşleşen kayıtlar Aynı sayfasına, eşleşmeyen kayıtlar Farklı sayfasına listelenir. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Ana liste. A1:AE485 aralığında veri bulunur; karşılaştırmada Barkod sütunu esas alınır.
• Sayfa2: Karşılaştırılacak ikinci liste. A1:I955 aralığındadır; eşleşmede barcode sütunu kullanılır.
• Aynı: İki listede de bulunan kayıtların yazıldığı sonuç sayfası (A1:AE1 başlık satırı).
• Farklı: Sayfa2 içinde karşılığı bulunmayan Sayfa1 kayıtlarının yazıldığı sonuç sayfası (A1:AE1 başlık satırı).

Dosyada formül bulunmaz; tüm işlem makrolarla yapılır.

Makrolar​

Kod Module1 modülündedir ve iki makro içerir.

• Aynı: Sonuç sayfasındaki A2:AE65536 aralığını temizler. Microsoft Jet OLEDB 4.0 sağlayıcısıyla dosyanın kendisine bağlanır ve Sayfa1 kayıtlarından Sayfa2 içinde aynı barkodu taşıyanları EXISTS sorgusuyla seçer. Sonucu CopyFromRecordset ile Aynı sayfasına aktarır. Ardından Sayfa2 satırlarını dolaşır, A sütunundaki değeri sonuç sayfasında arar ve bulduğu satıra Sayfa2'nin D:I sütunlarındaki değerleri yapıştırır. İşlem bitince bilgi mesajı gösterilir.
• Farklı: Aynı mantıkla çalışır, ancak NOT EXISTS sorgusu kullanır ve Sayfa2'de karşılığı olmayan Sayfa1 kayıtlarını Farklı sayfasına yazar. Bu makroda her eşleşmede satır numarasını gösteren bir MsgBox penceresi açılır; pencereler Tamam ile kapatılır.

Kodda dosya silme ya da dış bağlantı işlemi yoktur; bağlantı yalnızca açık çalışma kitabının kendisine kurulur. Makrolar çalışmadan önce sonuç sayfalarının eski verilerini siler.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Ana listeyi Sayfa1'e, karşılaştırılacak listeyi Sayfa2'ye yerleştirin; Barkod sütunlarının başlıklarını koruyun.
3. Alt+F8 ile makro listesini açın.
4. Eşleşenleri listelemek için Aynı, eşleşmeyenleri listelemek için Farklı makrosunu çalıştırın.
5. Sonuçları ilgili sayfalarda inceleyin.

Jet 4.0 sağlayıcısı kullanıldığı için dosyanın .xls uyumlu bağlantı biçimiyle çalıştığı göz önünde bulundurulmalıdır.