Makro ile Mükerrer Kayıt Kontrolü

Bu dosya, bir satırdaki hücrelerde birbirinin aynı olan (mükerrer) verileri VBA makrosuyla kontrol etmeyi gösteren bir örnektir. Mükerrer kayıt bulunduğunda hücre adresini belirten bir uyarı penceresi açılır.

Dosyanın içeriği​

• Sayfa1: Örnek veriler A1:G1 aralığında yer alır. A1 hücresinde "Ali", C1 hücresinde "Hasan", E1 ve G1 hücrelerinde ise aynı tarih (01.01.2021) bulunur. Sayfada formül yoktur.
• Module1: KontrolEt adlı makroyu içerir.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme ya da dışarıya bağlantı gibi işlemler yoktur.

• KontrolEt: Sayfa1 üzerinde 2. satırdaki son dolu sütuna kadar olan hücreleri tek tek dolaşır. Her hücrenin değerini, 1. satırdaki son dolu sütuna kadar olan aralıkta CountIf ile sayar. Sayı 1'den büyükse hücre adresini içeren "birden fazla kayıt bulunmaktadır" mesajı gösterilir. Mesaj kritik uyarı simgesiyle açılır ve başlığında Excel kullanıcı adı yer alır. İlk mükerrer kayıt bulunduğunda makro durur.

Sütun harfi kodda adresin tek karakterine göre alındığı için makro A-Z arasındaki sütunlarda çalışır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Kontrol edilecek verileri Sayfa1 üzerindeki satıra girin.
3. Alt+F8 tuşlarıyla makro listesini açın, KontrolEt makrosunu seçip çalıştırın.
4. Mükerrer değer varsa açılan uyarıdaki hücre adresine göre ilgili kaydı düzeltin.
5. Kendi verinizde kullanmak için Alt+F11 ile Module1'i açın. Sayfa adını ve satır numaralarını (1 ve 2) kodda kendi tablonuza göre değiştirin.

Dosya .xlsm biçimindedir; makroların korunması için aynı biçimde kaydedilmelidir.