Arkadaşlar herkese selam,

Yeni konu açmak yerine bu konuyu güncellemek istedim. Excelde türkçe karakterleri ingilizce karakterlere çevirmek istiyorum. İnglizce excel kullanmaktayım.

imampower adlı üyeden alıntı: mesajı görüntüle
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.
Hocam bu kod iş görüyor ancak İ,Ğ gibi harfleri malesef çevirmedi. İngilizce excel kullandığım için olabilir

evihtiyaclarim adlı üyeden alıntı: mesajı görüntüle
Makro kullanmama gerek yok diyenler için. Formül biraz uzun oldu ama işe yarıyor.
A1 hücresindeki metini ingilizce karekterlere çeviren formül:

=YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY (YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY(YERİNEKOY (YERİNEKOY(YERİNEKOY(A1;"İ";"I");"Ç";"C");"Ş";"S") ;"Ö";"O");"Ü";"U");"Ğ";"G");"ı";"i");"ç";"c");"ş"; "s");"ö";"o");"ü";"u");"ğ";"g")

Alıntıdır.
Hocam ingilizce excel kullandığım için bu fonksiyonu aşağıdaki gibi düzenledim lakin hata veriyor sizce nerede hata yapıyorum.
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE( SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1;"Ç";"C");"ç";"c");"ğ";"g");"Ğ";"G");"İ";"I");"ı";"i");"Ö";"O");"ö";"o");"Ş";"S");"ş";"s");"Ü";"U");"ü";"u")

ercanbekar adlı üyeden alıntı: mesajı görüntüle
hiç gerek yok.
bunun içi küçük bir makro yapılabilir
Elinizde örneği varsa paylaşırsanız çok minnettar olurum hocam