Karakterleri değiştirmek için

[caglarkilinc]

Merhabalar...
Diğer mesajlarda tam olarak bulamadığım birşey var. Bazı karakterleri otomatik olarak değiştirmek istiyorum. Her akşam bazı datalar çekiyorum ve bunları göndermem gerekiyor. Datalar türkçe olunca dolayısıyla bazı karakterleri değiştirmem gerekiyor. ctrl+f den sıkıldım makro gerekli galiba. Yardımlarınız için şimdiden teşekkürler...


ü=ü
ı=ı
ÄŸ=ğ
ö=ö
Ä°=İ
Ö=Ö
Ãœ=Ü
Ç=Ç
ÅŸ=ş
ç=ç
Åž=Ş
Äž=Ğ

 

[N.Ziya Hiçdurmaz]

yanıt

Değişmesini istediğiniz hücreleri seçip kodu çalıştırınız.
Sub karektercevir()
Dim sat As Integer
Dim alan As Range
deg1 = Array("ü", "ı", "ğ", "ö", "İ", "Ö", "Ü", "Ç", "ş", "ç", "Ş", "Ğ")
deg2 = Array("ü", "ı", "ğ", "ö", "İ", "Ö", "Ü", "Ç", "ş", "ç", "Ş", "Ğ")
Application.ScreenUpdating = False
For i = 0 To 11
For Each alan In Selection
If alan.Value Like deg1(i) Then
alan.Value = deg2(i)
End If
Next: Next
Application.ScreenUpdating = True
End Sub