Bir Sütunda Veri Girişi Sınırlandırma

Sayfanızın kod bölümüne yapıştırın.
Kod üzerindede gördüğünüz gibi A1:A20 aralığını kontrol ediyor. Bu aralığı değiştirebilirsiniz.
Kod, hücreye girilen değerin 4 ten fazla mı olduğunu, sayı mı olduğunu ve 10 sayısından büyük mü olduğunu kontrol eder.
Uygun giriş yapılmadıysa değeri siler ve uygun olmayan değerin neden uygun olmadığını mesaj ile ekrana yansıtır.

Merhabalar, Worksheet Change kullanımı ve alan tanımlama işlemi için örnek kodlar.

Açıklamalar;
-- Paylaştığım örnek kodlar A sütununa göre işlem yapar.

-- Çalışma dosyanızda hangi sütun için sınırlandırma yapmak istiyorsanız;
*** If Target.Column = 1 Then satırındaki 1 değerini istediğiniz sütun numarası ile,
son = Range("A" & Rows.Count).End(xlUp).Row
adet = WorksheetFunction.CountIf(Range("A1:A" & son), Target.Value) satırlarındaki A harflerini de sütun harfi ile değiştiriniz.

Merhaba ,

Sarı ile işaretlediğim "G" den "P" ye kadar her bir sütun için 6. satırdan 32. satıra kadar olan her performans kriteri için, satır 5'de yer alan personelleri değerlendirmek istiyorum, her personel için 1 den 10 a kadar değerlendirme notu vermek ama her bir değerlendirme notundan en fazla 4 adet yazılabilmesini istiyorum,

Cevapları görmeden yazdım kusura bakmayın, Yukarıdaki kodları deneyeceğim teşekkürler

Kod bilginiz yoksa yukarıdaki kodlarda doğru değişikliği yapamazsınız Sonraki paylaştığım kod işinizi görecektir.

Çok teşekkürler tekrar, Tam istediğim gibi