Karekter sorunu

[tk123]

Örnekdeki dosyada görüldüğü üzere YAÐCI KÖYÜ Ğ sorunu
ELÝTAÞ Ş Sorunu
KÝREMÝTLÝK Büyük İ Sorunu bu sorunu bir buton ekleyerek ABC Sutunlarındaki hatalı karakterleri nasıl düzeltebilirim. Bununla ilgili bir kod varmı acaba .

 

[Muzaffer Ali]

CTRL+H tuşlarına basın ve değiştirmek istediğiniz karakterleri yazıp değiştirin

 

[tk123]

teşekkürler ilginiz için bunu bir butonla yapmak istiyorum .

 

[Muzaffer Ali]

Cells.Replace What:="a", Replacement:="m"

Sayfadaki tüm a harflerini m harfi ile değiştirir

Aşağıda linkini verdiğim konu da yardımcı olacaktır

http://excel.web.tr/f48/bul-deoi-tir-t129948.html

 

[tk123]

Bozuk karekterleri vb kod sayfasına yazmaya çalıştığımda ? olarak çıkıyor. Bozuk çıkan karekterleri vb kod sayfasına yazabilsem sorun kalkacak .

 

[Muzaffer Ali]

değiştirmek istediğiniz karakteri bir hücreye kopyalayarak yapıştırın örneğin A1 hücresine yapıştırın

kodu aşağıdaki şekilde değiştirin

Cells.Replace What:=range("A1").text, Replacement:="m"

 

[tk123]

teşekkürederim ilginiz için deniyeceğim.

 

[Merhum İdris SERDAR]

.

Buradaki örnekleri inceleyin.

http://www.excel.web.tr/f60/coklu-bul-deoi-tir-fynd-replace-t115346.html


.

 

[tk123]

Teşekkürederim ilginize yarın işyerinde deneyeceğim.Güzel bir çalışma.

 

[tk123]

Bu kod işimi görür ama benim değiştirmek istediğim karekterleri koda ilave edemiyorum eklediğimde soru işareti olarak çıkıyor Eklemek istedğim karekterler (Ý-Þ-Ð)

'Scripting.Dictionary yöntemi. Değerleri koda yazmak
Sub BulDegistir1()

Set pDict = CreateObject("Scripting.Dictionary")
pDict.Add "ÅŸ", "ş"
pDict.Add "ı", "ı"
pDict.Add "Ç", "Ç"
pDict.Add "Ä°", "İ"
pDict.Add "Åž", "Ş"
pDict.Add "ü", "ü"
pDict.Add "Ö", "Ö"
pDict.Add "Ãœ", "Ü"
pDict.Add "?", "Ğ"
pDict.Add "ÄŸ", "ğ"
pDict.Add "ö", "ö"
pDict.Add "ç", "ç"


'Buraya istenildiği kadar ekleme yapılabilir.

For Each p In pDict
Columns("C:AA").Replace what:=p, replacement:=pDict.Item(p), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next
End Sub

 

[Muzaffer Ali]

Ý karakerinin kodu 221
aşağıdaki kod satırı ile Ý karakterini İ ile değiştirebilirsiniz

pDict.Add ChrW(221), "İ"

diğer karakterlerin kodlarını öğrenmek için karakteri kopyalayıp a1 hücresine yapıştırın aşağıdaki kod satırını çalıştırın

MsgBox AscW(Range("a1").Value)

 

[tk123]

Çok teşekkür ederim sayın dalgalı kur oldu elinize sağlık.