belirli kolonda bulunan hücrelerde 3 karakter değişiklik olduğunda çalışan makro

[ogoktas]

merhabalar,
örneğin a kolonundaki herhangi birhücrede 3 karakterlik bir rakam girdiğinde yanındaki hücreye başka bir değerin atanmasını istiyorum. ama o hücredeki değişiklik 3 den az veya çok ise herhangi bir değişim yapmadan hata mesajı vermesini istiyorum.
konuyla ilgili desteğinizi rica ederim.

 

[asi_kral]

Peki harf girişi olacak mı_?
Yan hücresine hangi bilgi girilecek_?

 

[ogoktas]

merhabalar,
hayır sadece nurara girilecek, harf girişi olmayacak.
desteğiniz için teşekkürler.

 

[asi_kral]

merhabalar,
hayır sadece nurara girilecek, harf girişi olmayacak.
desteğiniz için teşekkürler.

Merhaba
Sayfanın kod bölümüne kopyalayıp dener misiniz_?

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'Konu       :   A Sütununa 3 karakter Dışında Rakam Yazamama
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Application.EnableEvents = False
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If IsNumeric(Target) = True And Len(Target) = 3 Then
Cells(Target.Row, "B") = "asi_kral_1967"
Else
MsgBox "Hatalı İşlem" & vbLf & Application.UserName, _
vbCritical, "asi_kral_1967"
Target = ""
Target.Select
End If
Application.EnableEvents = True
End Sub