Otomatik büyük harf

[Yesilyurtlu]

Değerli Uzmanlarım
A13:Q13 arasında birleştirilmiş bir satırım var. Bu satırın içerisine ne girersem gireyim enterledikten sonra otomotik olarak büyük harf yapsın.

http://www.excel.web.tr/f48/buyuk-harf-yapma-t84433.html linkinde HAMİTCAN üstadın

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$5" Then Exit Sub
Application.EnableEvents = False
Target = StrConv(Target, vbUpperCase)
Target.Replace What:="I", Replacement:="İ", MatchCase:=True
Target.Replace What:="ı", Replacement:="I", MatchCase:=True
Application.EnableEvents = True
End Sub
makrosunu kullandım ama başarılı olamadım. BU konuda yardımcı olabilir misiniz?

 

[Orion1]

target.adress için kendi aralağınızın adresini veriniz.

Değerli Uzmanlarım
A13:Q13 arasında birleştirilmiş bir satırım var. Bu satırın içerisine ne girersem gireyim enterledikten sonra otomotik olarak büyük harf yapsın.

http://www.excel.web.tr/f48/buyuk-harf-yapma-t84433.html linkinde HAMİTCAN üstadın

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$5" Then Exit Sub
Application.EnableEvents = False
Target = StrConv(Target, vbUpperCase)
Target.Replace What:="I", Replacement:="İ", MatchCase:=True
Target.Replace What:="ı", Replacement:="I", MatchCase:=True
Application.EnableEvents = True
End Sub
makrosunu kullandım ama başarılı olamadım. BU konuda yardımcı olabilir misiniz?

 

[Yesilyurtlu]

Evren Üstadım;
Teşekkür Ederim