Bozuk karakterleri bul değiştir

[Maksim]

Merhaba arkadaşlar.
Bir sorun yaşıyorum.Yardım ederseniz sevinirim...
Excelde 16 işaret var.

Ə Ə
ə É™
Ü Ãœ
ü ü
Ö Ã–
ö ö
Ş Åž
ş ÅŸ
Ç Ã‡
ç ç
I I
ı ı
İ Ä°
i i
РĞ
ğ ÄŸ

B sütununda Gördüyünüz işareleri A sütununda olan harflarla değişmek lazim.
ActiveCell.SpecialCells(xlLastCell)).Replace What:="Ü
", Replacement:=ChrW(350) Kodlamasını denedim.
Ãœ -simvolunu VBA-ya kopyapadıkda format değişerek başka bir simvol oluyor.Bu yüzden makro çalşmıyor.Bu simvolları harflara nasıl çevire bilirim?
Excelde bul ve değişdir dedikde simvollar harflarla değişiyor
Lütfen bilgisi olan arkadaşlardan bana yardım etmesini RİCA ediyorum.

 

[Korhan Ayhan]

Selamlar,

Lütfen başlıklarınızda (acil,yardım) şeklinde ibareler kullanmayınız. Zaten forumda boş olan bir arkadaşımız eğer konu hakkında bilgi sahibi ise size yardımcı olacaktır.

Bu şekilde başlık açtığınızda sorunuz direk geri dönüşüm kutusuna taşınacaktır.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı inceleyiniz.

 

[Maksim]

İlginiz için çok teşekkür ederim.
Benim dosyamda durum bir az farklı.Oracldan gelen veride bu karakterler geliyor.
Oraclda değişmek şansı yok...Biliyorum Excel bunu yapar.
dosya burda 16CHRCTR.xls - 14.0 Kb
Sizde 1 karakter 1 harf olarak keçiyor.Bende 2
Yine de çok-cok teşekkür ederim

 

[Maksim]

Buldum!
Çok....Teşekkür ederm....
A1 -de ne olması önemli değil....