Hücreye girilen karakter saysı ?

[aliahmet]

Merhaba, hücrelere 13 karakterden oluşan rakam ve harfden oluşan ( 12A345E6789DD) değerler giriyorum. Şöyle bir şey olabilir mi? Hücreye sadece 13 karakter girilebilsin araya ,-. gibi noktalama işaretleri girdiğinde uyarı versin. Doğrulamadan yapmaya çalıştım fakat olmadı ne yazık ki... Yardımcı olan arkadaşlara şimdiden teşekkürler..

 

[metot]

sayın aliahmet

veri/doğrulama ile ilgili bir örnek yapmaya çalıştım, umarım istediğiniz gibi olmuştur dosya ektedir, inceleyin...



not: a sutunu için kural oluşturdum.

 

[metot]

afedersiniz sanırım yanlış anladım metin ve rakam girilebilmesi gerekiyordu, oysa ben sadece rakam girilebilmesine musade ettim

 

[Zeki Gürsoy]

Merhaba, hücrelere 13 karakterden oluşan rakam ve harfden oluşan ( 12A345E6789DD) değerler giriyorum. Şöyle bir şey olabilir mi? Hücreye sadece 13 karakter girilebilsin araya ,-. gibi noktalama işaretleri girdiğinde uyarı versin. Doğrulamadan yapmaya çalıştım fakat olmadı ne yazık ki... Yardımcı olan arkadaşlara şimdiden teşekkürler..

Bu şekilde kullanabilirsiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
    With Application
        .EnableEvents = False
        If Not Len(Target.Text) = 13 Then Application.Undo
        If InStr(1, Target.Text, "-") > 0 Then Application.Undo
        If InStr(1, Target.Text, ",") > 0 Then Application.Undo
        If InStr(1, Target.Text, ".") > 0 Then Application.Undo
        .EnableEvents = True
    End With
End Sub

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

 

[aliahmet]

Bu şekilde kullanabilirsiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
    With Application
        .EnableEvents = False
        If Not Len(Target.Text) = 13 Then Application.Undo
        If InStr(1, Target.Text, "-") > 0 Then Application.Undo
        If InStr(1, Target.Text, ",") > 0 Then Application.Undo
        If InStr(1, Target.Text, ".") > 0 Then Application.Undo
        .EnableEvents = True
    End With
End Sub

Zeki bey bu kodu sadece bir sütüna uygulayabilirmiyiz? Yardımcı olan arkadaşlara teşekkürler...