Sadece Büyük Harfle Yazma

[poetika]

Çalışma sayfasında sadece büyük harfle yazmaya izin veren aşağıdaki kodu buldum. Fakat bu kodu kullandığımda örneğin küçük "i" harfini kullanarak hücreye giriş yaptığımda "I" olarak çeviriyor. Ben "İ" olarak değişmesini istiyorum. Yardımcı olur musunuz?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
On Error Resume Next
Application.EnableEvents = False
For Each cell In Target
cell = UCase(cell)
Next
Application.EnableEvents = True
End Sub

 

[YUSUF44]

Şöyle kullanın:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
On Error Resume Next
Application.EnableEvents = False
For Each cell In Target
cell = UCase(Replace(Replace(cell.Formula, "i", "İ"), "ı", "I"))
Next
Application.EnableEvents = True
End Sub

 

[Necdet]

Merhaba,

Bulduğunuz kodlarda bir sınır yok, dolayısayla değişen her hücre için çalışacaktır.
Formül içeren hücreler de formülden çıkacaktır.

Ayrıca target tek bir hücredir, tek bir hücre için de döngüye gerek yok.

Aşağıdaki kodları deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.HasFormula = False Then Target = UCase(Replace(Replace(Target, "i", "İ"), "ı", "I"))
    
End Sub