hücreye girilebilecek karakterleri belirleme

[gaziss]

merhaba
excelde bi hücreye girilebilecek karakterler mesela: ", ?, ş,ç,ğ,& gibi karakterlerin girişi engellenebilir mi? ÖRNEĞİN yerine ORNEGIN girilmesi gibi
teşekkür ederim
saygılarımla

 

[leumruk]

Merhaba,
Makro kodlarıyla bir örnek hazırladım. a1:a20 aralığında deneyiniz. ARAÇLAR>OTOMATİK DÜZELTME SEÇENEKLERİ bölümünden makro kullanmadan istediğiniz karakter yerine kullanılmasını istediğiniz karakteri tanımlatarak da yapabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, Range("a1:a20")) Is Nothing Then Exit Sub
deg1 = Array("ş", "Ş", "ç", "Ç", "ğ", "Ğ", "?", "&")
deg2 = Array("s", "S", "c", "C", "g", "G", "", "")
Application.EnableEvents = False
veri = Target
For x = LBound(deg1) To UBound(deg1)
veri = Replace(veri, deg1(x), deg2(x))
Next
Target = veri
son:
Application.EnableEvents = True
End Sub

 

[gaziss]

günaydın
çok teşekkür ederim istediğim bu idi
saygılarımla

 

[gaziss]

sn.leumruk
hata mesajı vermesi sağlanabilir mi

 

[leumruk]

sn.leumruk
hata mesajı vermesi sağlanabilir mi

Eski kodun yerine aşağıdakini kopyalarsanız istediğiniz olacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, Range("a1:a20")) Is Nothing Then Exit Sub
deg1 = Array("ş", "Ş", "ç", "Ç", "ğ", "Ğ", "?", "&")
For x = LBound(deg1) To UBound(deg1)
If InStr(1, Target, deg1(x), vbBinaryCompare) Then
veri = veri & "; " & deg1(x)
End If
Next
MsgBox veri & " karakterlerini kullandınız.", vbCritical, "HATA"
son:
End Sub

 

[gaziss]

çok teşekkür ederim
syglr