Türkçe Karakterleri Otomatik İngilizceye Çevirme (EXCEL) - Sayfa 2

06-12-2020, 20:23:35

#10

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

07-12-2020, 12:01:53

#11

ercanbekar

tabi hocam paylaşırım. wp 0536 314 34 77
ücretsiz verecem.

07-12-2020, 17:55:01

#12

HoffnungTR

ercanbekar adlı üyeden alıntı: mesajı görüntüle

tabi hocam paylaşırım. wp 0536 314 34 77
ücretsiz verecem.

İlginiz için teşekkür ederim hocam aşağıdaki kodda değişiklik yaparak çözüm sağladım.

Alıntı

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

08-12-2020, 09:22:22

#13

ercanbekar

hocam bu çözüm değil. yani sen tüm sayfaya bu formülü uygularsan excelin kasar
doğrusu varken bu şekilde yapılması beni şaşırtıyor gerçekten.

08-12-2020, 09:28:16

#14

ercanbekar

Sub CEVIR()'' CEVIR Makro'
' Range("D5").Select Cells.Replace What:="Ğ", Replacement:="G", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="Ü", Replacement:="U", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="Ş", Replacement:="S", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="İ", Replacement:="I", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="Ö", Replacement:="O", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Cells.Replace What:="Ç", Replacement:="C", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Range("A1").SelectEnd Sub

20-12-2020, 20:48:45

#15

OrkmesB

Kimlik doğrulama veya yönetimden onay bekliyor.

Hala ihtiyacı olan varsa, buradaki sorudan feyz alarak hazırladığım dosyayı, https://www.exceldepo.com/turkce-kar...cevirme-2-9140 linkinden inceleyebiilrsiniz.