- Katılım
- 28 Tem 2022
- Mesajlar
- 748
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Merhaba,
Gmail Kişiler Kısmına Ecxeldeki Binlerce İsim ve Telefonun Bulunduğu Rehberimi Aktarmaya Çalışıyorum.
Aşağıdaki Degistir fonksiyonu ile
OgrenciAd = Degistir(Range("E" & i).Value)
şeklinde Türkçe karakterleri encode ederek vba ile CSV dosyası oluşturuyorum.
Ancak Gmail Kişiler'e yüklediğimde bazı türkçe karakterler bozuk görünüyor bu sorunu nasıl aşabilirim.
bu şekilde yüklenmektedir
İ harfi İ şeklinde görünüyor
Gmail Kişiler Kısmına Ecxeldeki Binlerce İsim ve Telefonun Bulunduğu Rehberimi Aktarmaya Çalışıyorum.
Aşağıdaki Degistir fonksiyonu ile
OgrenciAd = Degistir(Range("E" & i).Value)
şeklinde Türkçe karakterleri encode ederek vba ile CSV dosyası oluşturuyorum.
Ancak Gmail Kişiler'e yüklediğimde bazı türkçe karakterler bozuk görünüyor bu sorunu nasıl aşabilirim.
İ harfi İ şeklinde görünüyor
VBA:
Public Function Degistir(ByRef Txt As String) As String
Dim Find_text() As String
Dim Replace_text() As String
Dim str As String
str = Txt
Find_text = Split("ı ğ Ğ ü Ü ş Ş İ ö Ö ç Ç")
Replace_text = Split("ı ÄŸ Ä Ã¼ Ü ÅŸ Šİ ö Ö ç Ç")
For i = 0 To UBound(Find_text)
For j = 0 To UBound(Replace_text)
If InStr(str, Find_text(j)) > 0 Then
str = Replace(str, Find_text(j), Replace_text(j))
End If
Next
Next
Degistir = str
End Function