makro ile ascii karekterleri düzeltmek harflerini türk

[asbaskan]

karekterler burda gözükmüyor



aşagıdaki formulu kullanarak bunu yapmaya calışıyorum ama bu karakterlerin yerine baska karakterler geliyor lütfen yardım

Selection.Replace What:="?", Replacement:="İ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Selec

 

[danersin]

bu şekilde deneyin..


Sub Makro2()

bul = ChrW(208)
Cells.Replace What:=bul, Replacement:="G", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

bul = ChrW(222)
Cells.Replace What:=bul, Replacement:="Þ", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False


bul = ChrW(221)
Cells.Replace What:=bul, Replacement:="İ", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False


End Sub

 

[asbaskan]

teşekkürler