Türkçe karakter düzeltme kodunu hızlandırmak

[voodoograph]

Merhaba,

Ekte Türkçe karakter hatasını düzelten bir makro xls dökümanı var.
Bu dökümanda geliştirme şart. Çünkü çok yavaş. 2000 satır, A dan Z ye hatalı olan karakter düzeltmesini hızlandırmak istiyorum.

 

[YUSUF44]

Sadece aşağıdaki kodu kullanabilirsiniz:

Sub değiştir()
Set s1 = Sheets("Projeler")
Set s2 = Sheets("Karakter")
For i = 2 To 14

  s1.[4:26].Replace What:=s2.Cells(i, 1), Replacement:=s2.Cells(i, 2), LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next
End Sub

Hücre hücre değil toptan bul/değiştir yapar

 

[voodoograph]

Teşekkür ederim.

Ancak şu alanda hata aldım. Bir işlem yapmadı.

s1.[4:26].Replace What:=s2.Cells(i, 1), Replacement:=s2.Cells(i, 2), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

 

[YUSUF44]

Bende bir hata vermedi. Bu kodları zaten makro kaydet yoluyla oluşturduktan sonra dosyaya uydurmuştum. Şöyle deneyin:

Makro kaydet deyin.

CTRL+H ile bul değiştir menüsünü açın

Aranan kısmına eski karakterlerden birini

Bul kısmına türkçe karşılığını yazın ve Tümünü Değiştir deyin.

Daha sonra makro kaydetmeyi durdurun ve kod sayfasına geçip oluşan kodları inceleyin. isterseniz çıkan kodu buraya ekleyin biz de inceleyelim aradaki farkı görelim. Ona göre düzeltme yapabiliriz muhtemelen.

 

[tahsinanarat]

Belli bir alan için

Sub DEĞİŞTİR()
    Set s1 = Sheets("projeler")
    Set S2 = Sheets("karakter")
    For X = 1 To S2.[A65536].End(3).Row
    s1.Range("d2:z90").Replace What:=S2.Cells(X, 1), Replacement:=S2.Cells(X, 2)
    Next
    Set s1 = Nothing
    Set S2 = Nothing
End Sub

 

[voodoograph]

Tahsin hocam, teşekkürler, çalıştı. Yusuf hocam sana da tekrar teşekkür ederim.