Excel’de Bozuk Türkçe Karakter Çözümü

Excel dosyalarınız özellikle CSV formatlı olanlarda aşağıdaki gibi bozuk Türkçe karakterler görebilirsiniz.

(“Ä°”, “ü”, “Ö”, “ı”, “ç”, “ö”, “̇”, “ÅŸ”, “ÄŸ”, “Ç”, “Å”, “Ãœ”, “Ä”)

Bu karakterleri düzgün bir şekilde aşağıdaki gibi formata dönüştürmek bir kod ile mümkündür.

(“İ”, “ü”, “Ö”, “ı”, “ç”, “ö”, “”, “ş”, “ğ”, “Ç”, “Ş”, “Ü”, “Ğ”)

Function karakter_duzelt(deger As Range)
bozuklar = Array("Ä°", "ü", "Ö", "ı", "ç", "ö", "̇", "ÅŸ", "ÄŸ", "Ç", "Å", "Ãœ", "Ä")
duzgunler = Array("İ", "ü", "Ö", "ı", "ç", "ö", "", "ş", "ğ", "Ç", "Ş", "Ü", "Ğ")

For Each karakter In deger
     veri = karakter
     DoEvents
     For i = 0 To UBound(bozuklar)
       Veri = Replace(Veri, bozuklar(i), duzgunler(i))
     Next
    karakter_duzelt = veri
Next karakter
End Function

Kodların bir modül içine yazılması gerekmektedir. Çünkü bu kodlar kullanıcı tanımlı fonksiyon(KTF) olarak tasarlanmıştır. Nasıl yapılacağını ve gerçek uygulamasını aşağıdaki linkte yer alan video’dan izleyebilirsiniz.
https://www.youtube.com/watch?v=3nzq6RBZ7p4