Mükerrer Kayıt Bulma Yöntemleri

Bu dosya, iki sütundaki verilerin karşılaştırılarak mükerrer (tekrar eden) kayıtların bulunmasını gösteren makrolu bir örnektir. Sonuçlar formülle değil, VBA ile hesaplanıp ayrı sütunlara yazılır.

Dosyanın içeriği​

• Sayfa1: A sütununda "Veri 1" başlığı altında karşılaştırılacak liste, B sütununda ikinci liste yer alır. D, F ve H sütunlarında "A Sütununda Olup B Sütununda Olmayanlar", "A ve B Sütununda Olanlar" ve "B Sütunundaki Mükerrer Bul" başlıkları bulunur. Veriler 2. satırdan başlar, makro 2-40. satırları tarar.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme veya dışarıya bağlantı yapan bir işlem yoktur.

• Düğme7_Tıklat: Önce D2:H49 aralığını temizler. Ardından CountIf ile şu listeleri üretir: A'da olup B'de olmayanlar (D sütunu), B'de olup A'da olmayanlar (E sütunu), B'de olup A'da da bulunanlar (F sütunu), A içinde birden fazla geçenler (G sütunu) ve B içinde birden fazla geçenler (H sütunu). İşlem bitince "Mükerrerler listelendi" mesajı gösterilir, avebkolonmukrenk çalıştırılır ve çalışma kitabı otomatik kaydedilir.
• avebkolonmukrenk: A2 ve B2'den son kullanılan satıra kadar her hücreyi karşı sütunla karşılaştırır. Karşı sütunda karşılığı olmayan hücreler kırmızıya, karşılığı bulunanlar beyaza boyanır. Eşleşme InStr ile yapıldığından hücre değeri karşı sütundaki bir değerin içinde geçiyorsa da eşleşme sayılır.

Nasıl kullanılır​

1. Dosyayı açıp makroları etkinleştirin.
2. Karşılaştırılacak listeleri A ve B sütunlarına 2. satırdan başlayarak yazın veya yapıştırın.
3. Düğme7_Tıklat makrosuna atanmış düğmeyi tıklayın.
4. Sonuçları D-H sütunlarında, eşleşmeyen kayıtları ise A ve B sütunlarındaki kırmızı hücrelerde inceleyin.

Makro her çalıştığında dosyayı kaydettiği için orijinal verilerin yedeğini almanız önerilir. Sonuç aralığı 49. satırla, tarama aralığı 40. satırla sınırlıdır; daha uzun listeler için koddaki aralıkların genişletilmesi gerekir.