Kısıtlı karakter

[muratgunay48]

Arkadaşlar, sayın hocalarım. Bir sayfadaki hücrelere (tüm hücrelere) mesela 3 karakter müsade edecek (karakter önemli değil mesela k7#) 4. karaktere tıklayınca Bu sayfada 3 karakter girilebilir diye uyarı verecek.
Mümkün mü?
Şimdiden teşekkür ederim.
Saygılarımla.

 

[Mdemir63]

Selamlar
istediğiniz bu sanırım

 

[bmutlu966]

Aşağıdaki kodları sayfanın kod bölümüne yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A1:Z1000")) Is Nothing Then Exit Sub
    Cancel = True
If Len(Target) > 3 Then
    MsgBox "En Fazla 3 Karakter girebilirsiniz."
    Target.ClearContents
    Target.Select
End If

End Sub

 

[muratgunay48]

Selamlar
istediğiniz bu sanırım

Hocam çok teşekkür ederim. Emeğinize sağlık, aslında temelde bu evet. Ama "ENTER" ile değil de, dördüncü karakteri tıklayınca durdursa. Asıl amaç o.

 

[muratgunay48]

Aşağıdaki kodları sayfanın kod bölümüne yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A1:Z1000")) Is Nothing Then Exit Sub
    Cancel = True
If Len(Target) > 3 Then
    MsgBox "En Fazla 3 Karakter girebilirsiniz."
    Target.ClearContents
    Target.Select
End If

End Sub

Cevap kopya gibi olacak ama, öncelikle çok teşekkür ederim. Emeğinize sağlık. Ama "ENTER" ile değil de, dördüncü karakteri tıklayınca durdursa.

 

[bmutlu966]

Benim bildiğim kadarıyla bu mümkün değil.

 

[muratgunay48]

Benim bildiğim kadarıyla bu mümkün değil.

Teşekkür ederim.