Türkçe'den İngilizce Karaktere

[bulenttum]

Ekte göndermiş olduğum dosya içerisinde sol hücreye yazmış olduğum Türkçe cümlenin sağ Hücrede ingilizce karakter olarak yazması gerekiyor bu konuda yardımcı olcak arkadaş varmı acaba şimdiden teşekkürler

 

[veyselemre]

Aşağıdaki KTF yi bir modüle yapıştırın.
sayfa üzerinde
=Cevir(B4)
şeklinde kullanabilirsiniz.

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

 

[bulenttum]

Arkadaşım çok teşekkür ederim gerçekten çok yararlı oldu