155 karakter yoksa uyarı ver.

[siar]

Ekli belgede A3 hücresine en az 155 karakterlik yazı yazılmazsa, uyarı vermesini ve belgeyi kaydetmemesini yapmaya çalışıyorum. Şimdiden teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

Sub test()
If Len(Range("a3")) < 155 Then
MsgBox "155 say&#305; yok"
Exit Sub
End If
MsgBox "155 say&#305; var"
End Sub
Sub t()
[a1] = Len(Range("a3"))
End Sub

 

[ERENYILMAZ]

A3 h&#252;cresi &#252;zerinde iken
Veri-Do&#287;rulama
Ayarlar-&#304;zin verilen de&#287;er-Metin uzunlu&#287;u
Veri-Aras&#305;nda
En az 155
En &#231;ok 155
Tamam deyip kapat&#305;n&#305;z. A3 H&#252;cresi 155 karekterle s&#305;n&#305;rland&#305;r&#305;lm&#305; olur.Kolay gelsin.

 

[siar]

İlginize teşekkür eder, saygılarımı sunarım.