Hücre İçindeki Karakter Sayısını Geçince Uyarma

[cavanoos]

Merhaba arkadaşlar;

A1 ile A50 hücresinde veri girişi yapıyoruz.Hücre içinde karakter sayısı 60 sayısından fazla olduğunda mesaj kutusu içinde uyarı almak istiyoruz.

Yardım edebilir misiniz ?

 

[apocalyt]

veri doğrulama sekmesine girip bakın..eminim yapabilrisiniz..

 

[apocalyt]

makro ile çözüm isterseniz sayfa sekmesine sağ klik yapıp kod görüntüle diyin..açılan sayfaya kopyalayın..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1:a50")) Is Nothing Then Exit Sub
If Len(Target) > 60 Then
MsgBox "Karakter sayısı 60 ı geçmiştir.", vbInformation
End If
End Sub

 

[cavanoos]

Sayın Apocalyt;

Veri doğrulama ile sorunumu çözdüm.Teşekkür ederim.

Bu arada koşullu biçimlendirme ile de denedim ama beceremedim.

"Hücre içindeki karakter 60 dan büyükse kırmızı olsun."

Formül kullanarak biçimlendirmem gerekir herhalde. =UZUNLUK($A1>10) bu şekilde denedim ama olmadı.

Bakabilirmisin ?

 

[apocalyt]

şuşekilde deneyin..

=EĞER(UZUNLUK($F1)>10;1)

 

[cavanoos]

Sayın Apocalyt;

Cevaplarınız için çok teşekkür ederim.Hepsi de oldu.Saolun...

 

[apocalyt]

rica ederim..

 

[Seyit Tiken]

Bu şekilde yapsaydınız formülünüz çalışırdı.

=UZUNLUK($D$2)>60