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
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