Excel'de Bozuk Yazı Karakterlerini Düzeltme

#excel #exceldersleri #exceleğitimleri #excelvideoları

Ayrıcalıklardan yararlanmak için bu kanala katılın:
   / @mmustafabolat  

Instagram: @ileri.excel.vba
Linkedin: M. Mustafa BOLAT
Kurumsal Eğitim Talepleri: BYMMB.com

Online Eğitimlerim İçin Kampanya
https://bit.ly/3EmtYrQ

Excel VBA ile kullanıcı tanımlı fonksiyon yazarak CSV uzantılı dosyalar içinde yer alan bozuk karakterleri düzeltebilirsiniz. Aşağıdaki kodları video'da gösterildiği şekilde uygulayabilirsiniz.

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