Kullanıcı:
Filtreler

Excel'de karakter hatalarini duzeltmek?

I
I

iwocan

Yasaklanmış
Katılım
30 Temmuz 2013
Mesajlar
3.340
Tepkime puanı
0
Puan
0
Yaş
38
Selamlar arkadaslar,

Ozellikle Excel'de Turkce harfler, anlami olmayan sekiller halinde cikiyor.. Ornek olarak Ö yerine Ö , İ yerine Ä° gosteriyor..

Bunlari toptan bir sekilde, tum Turkce harfleri duzeltebilecegim bir formul var midir? Simdiye kadar bul ve degistir yontemini kullanarak yapiyordum ama bazi harfler gozumden kaciyor..

Tek bir seferde tum karakterleri gireyim, tum degisik karakterleri bulsun ve cevirsin istiyorum..

Tesekkurler,
 
Son düzenleme:
Sub Multi_FindReplace()
'PURPOSE: Find & Replace a list of text/values throughout entire workbook


Dim sht As Worksheet
Dim fndList As Variant
Dim rplcList As Variant
Dim x As Long

fndList = Array("Ö", "İ") 'Find
rplcList = Array("Ö", "İ") 'Replace

'Loop through each item in Array lists
For x = LBound(fndList) To UBound(fndList)
'Loop through each worksheet in ActiveWorkbook
For Each sht In ActiveWorkbook.Worksheets
sht.Cells.Replace What:=fndList(x), Replacement:=rplcList(x), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Next sht

Next x

End Sub


Bu macro işiniz görür
 
abasaran' Alıntı:
hocam şu site Türkçe karakterleri düzelterek çıktı veriyor.
işinizi görebilir.. Bozuk görünen Türkçe harfleri düzelten site! - TurkceKarakter.com
Genişletmek için tıkla ...

Hocam cok tesekkurler fakat benim duzeltmem gereken karakterler Excel uzerinde ve o kadar cok ki buraya kopyala yapistir yaparsam baya vaktimi alacak. Belki Excel'de bir formul vardir diye bir umut buraya yazdim ama sanirim yok :)

---------- Spam Engelliyici 01:55 ---------- Önceki Mesaj 01:54 ----------
realist88' Alıntı:
Sub Multi_FindReplace()
'PURPOSE: Find & Replace a list of text/values throughout entire workbook


Dim sht As Worksheet
Dim fndList As Variant
Dim rplcList As Variant
Dim x As Long

fndList = Array("Ö", "İ") 'Find
rplcList = Array("Ö", "İ") 'Replace

'Loop through each item in Array lists
For x = LBound(fndList) To UBound(fndList)
'Loop through each worksheet in ActiveWorkbook
For Each sht In ActiveWorkbook.Worksheets
sht.Cells.Replace What:=fndList(x), Replacement:=rplcList(x), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Next sht

Next x

End Sub


Bu macro işiniz görür
Genişletmek için tıkla ...

Cok tesekkurler hocam, bunu nerede kullanacagim? Biraz acemiyim bu konularda da excel formullerinin yazildigi yere mi yazacagim?
 
iwocan' Alıntı:
bunu nerede kullanacagim?
Genişletmek için tıkla ...

Geliştirici bölümünden macro kaydedin. sonra o macroyu editleyin içindeki herşeyi silip bunu yapıştırın ve kaydedin. Sonra macrolar kısmından "Multi_FindReplace" isimli macroyu çalıştırın (çalışma kitabına buton ekleyerek bu macroyu atayabilirsiniz)
 
realist88' Alıntı:
Geliştirici bölümünden macro kaydedin. sonra o macroyu editleyin içindeki herşeyi silip bunu yapıştırın ve kaydedin. Sonra macrolar kısmından "Multi_FindReplace" isimli macroyu çalıştırın (çalışma kitabına buton ekleyerek bu macroyu atayabilirsiniz)
Genişletmek için tıkla ...

Cok tesekkurler hocam. Son bir soru;

fndList = Array("Ö", "İ") 'Find
rplcList = Array("Ö", "İ") 'Replace

yazdiginiz yere diger karakterleri ve karsiliginda yazilacak harfleri sizin yazdiginiz sekilde tirnak icinde eklesem dogru bir sonuc alir miyim?
 
iwocan' Alıntı:
Cok tesekkurler hocam. Son bir soru;

fndList = Array("Ö", "İ") 'Find
rplcList = Array("Ö", "İ") 'Replace

yazdiginiz yere diger karakterleri ve karsiliginda yazilacak harfleri sizin yazdiginiz sekilde tirnak icinde eklesem dogru bir sonuc alir miyim?
Genişletmek için tıkla ...

Evet hocam o şekilde itediginiz sayıda ekleyebilirsiniz
fndList = Array("Ö", "İ","1","2") 'Find
rplcList = Array("Ö", "İ","a","b") 'Replace
 
Cevap yazmak için giriş yap yada kayıt ol.
Kişiselleştirme

Tema editörü

Ayarlar Renkler

  • Mobil kullanıcılar bu fonksiyonları kullanamaz.

    Alternatif header

    Farklı bir görünüm için alternatif header yapısını kolayca seçebilirsiniz.

    Görünüm Modu Seçimi

    Tam ekran ve dar ekran modları arasında geçiş yapın.

    Izgara Görünümü

    Izgara modu ile içerikleri kolayca inceleyin ve düzenli bir görünüm elde edin.

    Resimli Izgara Modu

    Arka plan görselleriyle içeriğinizi düzenli ve görsel olarak zengin bir şekilde görüntüleyin.

    Yan Paneli Kapat

    Yan paneli gizleyerek daha geniş bir çalışma alanı oluşturun.

    Sabit Yan Panel

    Yan paneli sabitleyerek sürekli erişim sağlayın ve içeriğinizi kolayca yönetin.

    Box görünüm

    Temanızın yanlarına box tarzı bir çerçeve ekleyebilir veya mevcut çerçeveyi kaldırabilirsiniz. 1300px üstü çözünürler için geçerlidir.

    Köşe Yuvarlama Kontrolü

    Köşe yuvarlama efektini açıp kapatarak görünümü dilediğiniz gibi özelleştirin.

  • Renginizi seçin

    Tarzınızı yansıtan rengi belirleyin ve estetik uyumu sağlayın.
Geri