Sayın kadirdursun, sanırım benim kodları denemediniz.
Alttaki gibi revize edip de kullanabilirsiniz.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Empty Then Exit Sub
If Target.Address = "$A$" & Target.Row Then
Application.EnableEvents = False
kelime = Replace(Target.Value, "i", "İ")
kelime = Replace(kelime, "ı", "I")
Target.Value = StrConv(kelime, vbUpperCase)
Application.EnableEvents = True
End If
End Sub
Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.