Hücreye Aynı Verinin Girilmesini Engelleme

Bu dosya, Sayfa1 üzerindeki A1 hücresine girilen değerlerin kaydını tutar ve aynı değer yeniden girildiğinde kullanıcıyı uyarır. Mükerrer kayıt kontrolü veri doğrulama ile değil, sayfa kodu ile yapılır.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar etkinleştirilmezse kontrol çalışmaz.

Dosyanın içeriği​

• Sayfa1: Kontrolün uygulandığı tek sayfadır. Kullanılan alan A1 hücresidir; sayfada formül bulunmaz.
• Dosyada İsimlistesi ve İsimsay adlı iki tanımlı ad vardır. İkisi de OFFSET ve COUNTA ile dinamik aralık tanımlar; ancak başka bir çalışma kitabındaki Mükerrer2 sayfasına bağlıdır ve makronun çalışması için gerekli değildir.

Makrolar​

• Worksheet_Change (Sayfa1 sayfa kodu): Sayfada bir hücre değiştiğinde otomatik çalışır, ayrıca başlatılması gerekmez. Yalnızca A1 hücresindeki değişikliklere tepki verir.
• A1'e girilen her yeni değer, kod çalıştığı sürece bellekte tutulan bir listeye eklenir. Liste Application.Match ile taranır.
• Değer listede varsa "Bu veriyi daha önce kullandınız. Devam etmek istiyormusunuz?" mesajı, "Mükerrer Kayıt" başlığıyla Evet/Hayır seçenekli olarak görüntülenir. Hayır seçilirse A1 hücresi boşaltılır; Evet seçilirse değer hücrede kalır.
• Kod işlem sırasında olayları geçici olarak kapatır ve sonunda yeniden açar.
• Kayıt listesi yalnızca dosya açık olduğu sürece tutulur; dosya kapatılıp yeniden açıldığında liste sıfırlanır. Makroda dosya silme veya dış bağlantı işlemi yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1'de A1 hücresine bir değer yazıp Enter'a basın; değer kayıt listesine alınır.
3. Sonraki girişlerde aynı değeri yazdığınızda uyarı penceresi açılır.
4. Girişi iptal etmek için Hayır, tekrarı kabul etmek için Evet düğmesini seçin.
5. Kontrolü başka bir hücreye uyarlamak için VBA düzenleyicisinde Sayfa1 kodundaki "$A$1" adresi değiştirilir.