Simge şeklinde görünen harfler

[ASLAN7410]

Merhaba hayırlı geceler.

Sistemden aldığımız veriler içerisindeki Türkçe karakter olan noktalı harfler simgeli çıkmaktadır, bunu düzeltmek içinde Ctrl+H olarak kullanıyorum buda zaman alıyor.

Bu işlemi makro kaydet ile yapıyorum bu seferde sütundaki bütün kelimeleri tek bir harfe çevirmektedir.

Yapmak istediğimi ekte gönderdiğim sayfa içerindedir.

Yardımcı olur musunuz?

 

[Korhan Ayhan]

Deneyiniz.

Sub HARF_DUZELT()
    Dim Veri As Range
    For Each Veri In Range("H2:H7")
        Range("A:A").Replace Veri.Value, Veri.Offset(0, 1).Value, xlPart
    Next
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[ASLAN7410]

Sayın Korhan Bey tam istediğim gibi olmuş, çok teşekkür ederim, Allah razı olsun.

Hayırlı geceler hayırlı çalışmalar dilerim.