hucre karakter kısıtlama

[polis-53]

Merhaba arkadaşlar hucre, karakterini 3 karakter ile sabitlemek istiyorum bunu veri doğrulamadan yapıyorum benim isdediğim kod ile yapabilmek yardımcı olursanız çok sevinirim
teşekkür ederim

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu ilgili sayfanızın kod bölümüne uygulayınız. Hücre aralığını kendinize göre değiştiriniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [COLOR=red]Range("A1:A10")[/COLOR]) Is Nothing Then Exit Sub
 
    On Error GoTo Son
    Application.EnableEvents = False
    If Len(Target.Text) <> 3 Then
        MsgBox "Bu hücreye sadece 3 karakter uzunluğunda veri girişi yapabilirsiniz !" & _
        Chr(10) & Chr(10) & "İşleminiz iptal edilmiştir !", vbCritical, "Dikkat !"
        Target = ""
        Target.Activate
    End If
 
Son: Application.EnableEvents = True
End Sub

 

[polis-53]

korhan bey çok teşekkür ederim