+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Örnekleri ve Uygulamaları (https://accesstr.net/forum-excel-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Veri Alanındaki Kısaltmaları Otomatik Değiştirme (/konu-veri-alanindaki-kisaltmalari-otomatik-degistirme.html)
Sayfalar:
1
2
Veri Alanındaki Kısaltmaları Otomatik Değiştirme - atkbursa - 19/11/2021
(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
Access Çoklu Bul Değiştir - atkbursa - 19/11/2021
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
RE: Çoklu Bul Değiştir Dictionary Yöntemiyle - berduş - 19/11/2021
örnek çalışmanızı ekleyerek yeni konu açıp orda sormanız daha uygun olur.
Ayrıca açıklamanız bence yetersiz örnek çalışma üzerinde açıklama yapmanız anlamamızı kolaylaştırır
RE: Çoklu Bul Değiştir Dictionary Yöntemiyle - atkbursa - 19/11/2021
Merhabalar
"Posta listesi yapmak için kullanılan"
formda aşağıdaki şekilde veriler bulunan "posta tablosundaki (birimi mahkeme savcılık" alanındaki)
Tablo :POSTA
Alan adı :Bİ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 12. AĞC
BURSA CBS
BURSA CBS
BURSA CBS
ERZURUM 2. ASC
ORHANGAZİ 3. ASC
BURSA CBS
YENİŞEHİR ASC
BURSA CBS
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 ?
Özet olarak kısaltma şeklinde yazılan kelimeleri otomatik bir şekilde dönüştürebilirmiyiz ?
Ofis Access 2003
Teşekkürler
excel için yapılmış bu kodları Access ye 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
RE: Çoklu Bul Değiştir Dictionary Yöntemiyle - berduş - 19/11/2021
1 - bu bölüm örnek çalışmaların yer aldığı bölüm bu konuya atıfta bulunup bağlantısını paylaşarak Access soruları bölümünde yeni konu açmalısınız.
2 - açıklamanız hala yetersiz bahsettiğiniz değişiklikler nerde yapılacak belli bir tabloda mı olacak yoksa sadece görünüşte mi olacak yani form üzerinden uzun uzun asliye..... yazarken tabloda olduğu gibi duracak mı?
3 - ASC=ASLİYE CEZA MAHKEMESİ
AĞC=AĞIR CEZA MAHKEMESİ bu verilerin bir tabloda yer alması daha uygun olmaz mı
ID, Kisaltma, Aciklama alanlarına sahip bir tabloya aktarılsa ve değiştirme işlemi o tabloya göre yapılsa daha uygun olmaz mı?
aklıma geldi bu kısaltmalar her zaman sonda mı oluyor?
RE: Çoklu Bul Değiştir Dictionary Yöntemiyle - atkbursa - 19/11/2021
(19/11/2021, 13:16)berduş yazdı: 1 - bu bölüm örnek çalışmaların yer aldığı bölüm bu konuya atıfta bulunup bağlantısını paylaşarak Access soruları bölümünde yeni konu açmalısınız.Evet her zaman bu kısaltma en sonda bulunuyor.
2 - açıklamanız hala yetersiz bahsettiğiniz değişiklikler nerde yapılacak belli bir tabloda mı olacak yoksa sadece görünüşte mi olacak yani form üzerinden uzun uzun asliye..... yazarken tabloda olduğu gibi duracak mı?
3 - ASC=ASLİYE CEZA MAHKEMESİ
AĞC=AĞIR CEZA MAHKEMESİ bu verilerin bir tabloda yer alması daha uygun olmaz mı
ID, Kisaltma, Aciklama alanlarına sahip bir tabloya aktarılsa ve değiştirme işlemi o tabloya göre yapılsa daha uygun olmaz mı?
aklıma geldi bu kısaltmalar her zaman sonda mı oluyor?
kısaltmaları bul değiştir tarzı ile aynı alanda (formu kapattıktan sonra) otomatik güncellesin
güncellenecek kısaltmalar
mahkeme adları olduğundan en fazla 15-20 adet veriden oluşan kısaltma listesinden oluşuyor
(19/11/2021, 13:48)atkbursa yazdı:(19/11/2021, 13:16)berduş yazdı: 1 - bu bölüm örnek çalışmaların yer aldığı bölüm bu konuya atıfta bulunup bağlantısını paylaşarak Access soruları bölümünde yeni konu açmalısınız.Evet her zaman bu kısaltma en sonda bulunuyor.
2 - açıklamanız hala yetersiz bahsettiğiniz değişiklikler nerde yapılacak belli bir tabloda mı olacak yoksa sadece görünüşte mi olacak yani form üzerinden uzun uzun asliye..... yazarken tabloda olduğu gibi duracak mı?
3 - ASC=ASLİYE CEZA MAHKEMESİ
AĞC=AĞIR CEZA MAHKEMESİ bu verilerin bir tabloda yer alması daha uygun olmaz mı
ID, Kisaltma, Aciklama alanlarına sahip bir tabloya aktarılsa ve değiştirme işlemi o tabloya göre yapılsa daha uygun olmaz mı?
aklıma geldi bu kısaltmalar her zaman sonda mı oluyor?
kısaltmaları bul değiştir tarzı ile aynı alanda (formu kapattıktan sonra) otomatik güncellesin
güncellenecek kısaltmalar
mahkeme adları olduğundan en fazla 15-20 adet veriden oluşan kısaltma listesinden oluşuyor