Uğraştım ama çözümünü buldum buraya da yaziyim aynı sorunu yaşayanlar da faydalansın doğru düzgün bir kod yoktu çünkü nette.

-------------------

Sub cevir()

Cells.Select
Selection.Replace What:="Ç", Replacement:="C", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="Ğ", Replacement:="G", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="İ", Replacement:="I", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="Ö", Replacement:="O", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="Ş", Replacement:="S", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="Ü", Replacement:="U", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

---------------


Bu makro kodu ile tek seferde bütün büyük türkçe karakterler ingilizceye dönüyor ve %100 çalışıyor arkadaşlar.

Not : Küçük harf varsa onlar bozuluyor bilginiz olsun. Sadece büyüklerde çalışıyor.