Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Empty Then Exit Sub
If Target.Address = "$A$" & Target.Row Or Target.Address = "$B$" & 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