Hücre Değeri Artmazsa Uyarı Verme

Bu dosya, Sayfa1 üzerinde bir hücreye girilen değerin A1:H157 aralığında daha önce kullanılıp kullanılmadığını denetler. Değer tekrar ediyorsa kullanıcıya uyarı mesajı gösterilir ve girilen değer değiştirilir. Aynı kaydın ikinci kez girilmesini engellemek isteyen listeler için örnek bir yapı sunar.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: A3:A21 aralığında örnek veriler bulunur. Kontrol, sayfanın A1:H157 aralığındaki hücreler üzerinden yapılır.

Dosyada formül, tablo, grafik ya da özet tablo yoktur; denetim tamamen makro ile yapılır.

Makrolar​

• Worksheet_Change (Sayfa1 sayfa kodu): Sayfadaki bir hücre değiştiğinde otomatik çalışır, ayrıca çalıştırılması gerekmez. Seçili hücre sayısı 2'den fazlaysa işlem yapmadan çıkar. Aksi halde CountIf ile A1:H157 aralığında girilen değerin kaç kez geçtiğini sayar. Sayı 1'den büyükse "Already sold." mesajını gösterir ve hücrenin değerini "kubi" olarak değiştirir.

Kodda dosya silme ya da dışarıya bağlantı gibi zararlı bir işlem yoktur. Mesaj metni İngilizcedir ve yerine yazılan "kubi" değeri kod içinden değiştirilebilir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1 üzerinde A1:H157 aralığındaki bir hücreye değer girin.
3. Aynı değer aralıkta daha önce varsa uyarı mesajı görüntülenir ve hücreye "kubi" yazılır.
4. Mesaj metnini ya da yerine yazılacak değeri değiştirmek için Alt+F11 ile VBA düzenleyicisini açın, Sayfa1 kodundaki ilgili ifadeyi düzenleyin.
5. Kontrol edilecek aralığı değiştirmek için koddaki A1:H157 adresini kendi aralığınızla değiştirin.