(10/03/2021, 00:21)feraz yazdı: Bir Excel açın ve modül ekleyin ve ilk mesajdaki kodu olduğu gibi ekleyin modüle ve çalıştırın.

Kodlardan anladığım kadarıyla c:aa aralığındaki bozuk olanları koddaki karşılıkarı ile değiştirir.

---

(12/03/2020, 15:26)accessman yazdı: pDict.Add "ÅŸ", "ş"

Yani koda göre ş den öndeki bozuk karakter c:aa aralığında varsa ş olarak değiştirir diğerleride aynı şekilde değişir.

Merhabalar
"Posta listesi yapmak için kullanılan"
formda aşağıdaki şekilde veriler bulunan "posta tablosundaki (birimi mahkeme savcılık" alanındaki)

ASC
AĞC
CBS
ŞEKLİNDE YAZILAN KISALTMALARI
ASC=ASLİYE CEZA MAHKEMESİ
AĞC=AĞIR CEZA MAHKEMESİ
CBS=CUMHURİİYET BAŞ SAVCILIĞI
şeklinde otomatik dönüştürebilir miyiz ? veya bul değiştir ile otomatik değiştirebilir miyiz ?
yada birimi mahkeme savcılık alanının yanına oluşturulan yeni bir alana kısaltmaları yazıp birimi mahkeme savcılık alanına çekmesini sağlayabilir miyiz ?

Ofis Access 2003
Teşekkürler

POSTABİRİMİ MAHKEME SAVCILIK
ORHANGAZİ 3. ASC
BURSA 1. AĞC
BURSA 16. AĞC
BURSA 12. AĞC
İNEGÖL CBS
GEMLİK 2. ASC
ORHANGAZİ 1. ASC
GÖNEN ASC
GÖNEN ASC
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
EDREMİT CBS
ORHANGAZİ 1. ASC
BURSA 12. AĞC
KARACABEY 2. ASC
YENİŞEHİR ASC
BURSA 16. ASC
BURSA CBS
BURSA CBS
KARACABEY CBS
BURSA CBS
İNEGÖL CBS
ORHANGAZİ 3. ASC
BURSA CBS
BURSA CBS
BURSA 12. AĞC
BURSA 19. ASC
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA 16. ASC
ORHANELİ CBS
BURSA CBS
BURSA 5. ASC
BURSA CBS
BURSA 12. AĞC
BURSA 35. ASC
BURSA 8. ASH
BANDIRMA CBS
BANDIRMA CBS
ORHANGAZİ 1. ASC
BURSA CBS
BURSA 11. AĞC
YENİŞEHİR ASC
BURSA CBS
İNEGÖL 4. ASC
BANDIRMA 2. ASC
YENİŞEHİR ASC
ERDEK CBS
BURSA CBS
MUDANYA CBS
BURSA CBS
BURSA CBS
YENİŞEHİR ASC
YENİŞEHİR ASC
YENİŞEHİR ASC
BURSA CBS
İNEGÖL 5. ASC
BURSA CBS
BURSA CBS
BURSA 12. AĞC
BURSA CBS
BURSA CBS
BURSA CBS
ERZURUM 2. ASC
ORHANGAZİ 3. ASC
BURSA CBS
YENİŞEHİR ASC
BURSA CBS
BURSA 16. AĞC
BURSA 16. AĞC
BURSA 15. ASC
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
YENİŞEHİR ASC
BURSA CBS
BURSA 15. ASC

excel için yapılmış bu kodları uyarlayabilir miyiz ? ( pDict.Add "AĞC", "Ağır Ceza Mahkemesi") - ( pDict.Add "ACM", "Asliye Ceza Mahkemesi") ( pDict.Add "CBS", "Cumhuriyet Baş Savcılığı") şeklinde

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