Türkçe karakterlerl İngilizce Karakterlere çevirme

[zaffer1981]

Merhaba ekli dosyamdaki hususlar ile ilgili yardımlarınızı talep ediyorum Teşekkürler

http://s9.dosya.tc/server/du7bsq/Karakterleri_Ingilizce_Karaktere_Cevirme.xlsx.html

 

[Ömer]

Merhaba,

Linki inceleyiniz. Linkteki cevir isimli KTF yi kullanabilirsiniz.

http://www.excel.web.tr/f48/turkce-karakter-sorunu-t146513.html

.

 

[zaffer1981]

Yapamadım maalesef

 

[Ömer]

Aşağıdaki kodları VBA ekranına geçip module kopyalayın.

Function cevir(deg As String) As String

    Dim eski(), yeni(), i As Byte
    
    eski = Array("ı", "İ", "ğ", "Ğ", "ü", "Ü", "ş", "Ş", "ö", "Ö", "ç", "Ç")
    yeni = Array("i", "I", "g", "G", "u", "U", "s", "S", "o", "O", "c", "C")
    
    For i = 0 To 11
        deg = Replace(deg, eski(i), yeni(i))
    Next i
    
    cevir = deg
    
End Function

Daha sonra C5 hücresine;

=cevir(B5)

formülünü yazın.

Ayrıca karakter sayısı için B4 hücresine:

=UZUNLUK(B5)

.

 

[zaffer1981]

teşekkür ederim çok sağolun. bu karakterlere noktalama işaretleri de dahil mi acaba. bir de hücrenin içine yazma esnasında hücre karakterini saydıracak bir şey yapılabilir mi

 

[Korhan Ayhan]

Fonksiyon bölümünde kullanılan "eski" ve "yeni" olarak tanımlanmış karakterler işleme alınmaktadır.

Yazma anında hücre karakterini sayacak özellik yoktur. Hücreye veri girip enter tuşuna bastığınızda sonucu görebilirsiniz.

 

[zaffer1981]

Teşekkürler