Sadece büyük harf girişi zorunluluğu

[baydeniro]

Merhaba arkadaşlar. Veri girişinde sadece büyk harf giriş zorunluluğu sağlamak mümkün mü ? Örnek dosya ekte.

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
Target.Value = UCase(Replace(Replace(Target.Value, "i", "İ"), "ı", "I"))
Application.EnableEvents = True
End Sub

 

[baydeniro]

Çok teşekkürler sayın Orion. Sağlıcakla kalın.