Çözüldü TextBox Küçük Büyük Harf Duyarlılığı

Ömer hocam emeğinize sağlık. Teşekkürler.

Ömer hocam bir de en üste ekleyebileceğim
A2:A10000 alanının dışında olursa The Exit Sub yapsın satırını yazar mısınız, belki ihtiyaç olabilir.

If Intersect(Target, Range("A2:A" & Range("A" & Rows.Count).End(3).Row)) Is Nothing Then Exit Sub

Ömer BARAN' Alıntı:

If Intersect(Target, Range("A2:A" & Range("A" & Rows.Count).End(3).Row)) Is Nothing Then Exit Sub

Genişletmek için tıklayın ...

Ömer hocam bu satırı ekleyince, daha ilk harfi yazarken hata verdi ama acaba bir şeyi yanlış mı yaptım.

If Intersect(Target...... yapısı,
TextBox üzerinden yapılacak işlemlerde değil de
Excel sayfasındaki hücrede işlem yapıldığında kullanılacak bir yapı.

Siz işlem olarak ne istiyonsunz?

Şöyle hocam,

TextBox’a isim yazdırıyoruz ve kontrol ediyoruz ya, işte A2:A10000’dışında, bir veri yazılırsa, TextBox bunu dikkate almasın, şeklinde düşünmüştüm.


(Yani sadece A2:A10000 alanı içinde kontrolünü yapsın, olarak)

Koddaki şu satır zaten sadece A2:Ason aralığını kontrol ediyor.

For Each Bul In Range("A2:A" & Range("A" & Rows.Count).End(3).Row)

Sağ olunuz Ömer hocam.