Atoz hocanın cevabına ek olarak,

vba sayfasında en alta aşağıdaki fonksiyonu ekle

Function Donustur(doviz)



    doviz = Replace(doviz, "EUR", "€")

    doviz = Replace(doviz, "USD", "$")

    doviz = Replace(doviz, "GBP", "£")

    Donustur = doviz  

 End Function

veri aktarım kodu içerisindeki

.Fields("fat_doviz") = Kayit_AlinacakTablo.Fields("Field181")

kodunu aşağıdaki ile değiştir.

.Fields("fat_doviz") = Donustur(Kayit_AlinacakTablo.Fields("Field181"))

Fonksiyondaki koda

  doviz = Replace(doviz, "CNY", "¥")

şeklinde eklemeler yapılabilir.