Excelde Türkçe karekter sorunu

[ozgecan]

Merhaba;

Excelde Türkçe karekterlerle oluşturulmuş bir tabloyu İngilizce karektere nasıl dönüştürebiliriz. Ctrl+f dışında başka bir seçenek kullanılabilirmi. Ctrl+f ile harf harf değiştirmek zor olabiliyor.

Teşekkürler.

 

[Ömer]

Merhaba,

Karekterleri değiştireceğiniz alanı fare ile seçtikten sonra kodları çalıştırın.

Sub Degis()
On Error Resume Next
Dim i As Integer
    Trk = Array("ı", "İ", "ğ", "Ğ", "ü", "Ü", "ş", "Ş", "ö", "Ö", "ç", "Ç")
    Ing = Array("i", "I", "g", "G", "u", "U", "s", "S", "o", "O", "c", "C")
    For Each Hucre In Selection
        For i = 0 To 11
            Hucre.Value = Replace(Hucre, Trk(i), Ing(i))
        Next i
    Next Hucre
End Sub

.