M

Çözüldü Klasör İçindeki Dosya İsimlerini Güncelleme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
M

mertatakan3838

Normal Üye
Sistem dili İngilizce olan şirket bilgisayarında klasör içindeki dosya isimlerinde Türkçe karakter olduğu için makro hata vermekte. Ben klasör içindeki dosya isimlerindeki Türkçe karakter sorununu elle düzelttiğimde çalıştırmak istediğim makro görevini yapmaktadır. Ancak klasör içindeki dosya adeti çok olunca malüm elle düzeltme imkanı olmamaktadır. Benim yapmak istediğim klasör içindeki dosya isimlerindeki Türkçe karakter sorununu topluca makro ile halletmek. Bu konuda değerli hocalarımdan destek bekliyorum. Saygılarımla NOT: Dosya uzantıları pdf
 
Tarihe göre sırala Oylamaya göre sırala
Ömer BARAN' Alıntı:
Sayın @mertatakan_3838 .
Bilgisayarda değilim.
En azından kullandığınız mevcut kodu foruma eklerseniz iyi olur.
Bu şekilde daha hızlı sonuca ulaşılabilir.

.
Genişletmek için tıklayın ...
Ömer hocam bu çalışmayı Klasör içindeki dosya isimlerini değiştirmede kullanıyorum. Sistem dili Türkçe olan bilgisayarda sorunsuz çalışıyor ancak sistem dili ingilizce olan şirket bilgisayarında klasör içindeki dosyaların isimlerinde Türkçe karakter olunca hata veriyor
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Yanlış düşünmüyorsam;
degistirme isimli makroda, aşağıda yeşil renklendirdiğim kısımları ekleyerek deneyin.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(8 satır)

.
 
Oyla 0 Olumsuz oyla
Sayın @mertatakan_3838
Sorunuz çözüme ulaştı ise cevabını olduğunu düşündüğünüz mesajın sağ tarafında ÇÖZÜLDÜ ikonunu tıklarsanız konuyu kapatmış oluruz.

1600860099575.png
ÇÖZÜLDÜ İKONU
 
Oyla 0 Olumsuz oyla
Örnek belgenizde eski ve yeni isimler için bir liste vardı gibi aklımda kalmış.
Sorun yaratan dosya adına ait örnek verinin de olduğu yeni bir örnek bege yükleyin isterseniz.

Önerdiğim değişiklik yeni isimdeki Türkçe karakterleri ayıklamaya yönelik idi.
Belki de ben yanlış düşündüm.

.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Örnek belgenizde eski ve yeni isimler için bir liste vardı gibi aklımda kalmış.
Sorun yaratan dosya adına ait örnek verinin de olduğu yeni bir örnek bege yükleyin isterseniz.

Önerdiğim değişiklik yeni isimdeki Türkçe karakterleri ayıklamaya yönelik idi.
Belki de ben yanlış düşündüm.

.
Genişletmek için tıklayın ...
sorun bilgisayarın sistem dilinin ingilizce olması nedeni ile klasör içindeki dosya isimlerini değiştirmek istediğimde türkçe karakterli dosya ismi gördüğü zaman hata veriyor. Klasör içindeki dosya isimlerindeki Türkçe karakter sorununa elle düzeltip makroyu yeniden çalıştırdığımda makro çalışıyor sorun olmuyor.
 
Oyla 0 Olumsuz oyla
ESki ismi Türkçe karakter içerdiğinde öyle mi? Hatayı hangi kod satırında veriyor merak ettim.
Benim bilgisayar dilim Türkçe olduğundan deneme şansım yok ama hatanın kaynağını görebiliriz belki diye soruyorum.
Kodlarda yer alan On Error... satırlarını devre dışı bırakıp (satırın sol başına TEK TIRNAK işareti koyun) işlem yapmayı deneyin,
hata alınan satırda kod çalışmayı durdurur ve hata satırını sarı renge boyayarak VBA ekranını gösterir.
O satırı merak ettim ben.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
ESki ismi Türkçe karakter içerdiğinde öyle mi? Hatayı hangi kod satırında veriyor merak ettim.
Benim bilgisayar dilim Türkçe olduğundan deneme şansım yok ama hatanın kaynağını görebiliriz belki diye soruyorum.
Kodlarda yer alan On Error... satırlarını devre dışı bırakıp (satırın sol başına TEK TIRNAK işareti koyun) işlem yapmayı deneyin,
hata alınan satırda kod çalışmayı durdurur ve hata satırını sarı renge boyayarak VBA ekranını gösterir.
O satırı merak ettim ben.
Genişletmek için tıklayın ...
Sirkete gidince ekran görüntüsünü alıp paylaşırım Ömer hocam benim evdeki bilgisayarda Türkçe
 
Oyla 0 Olumsuz oyla
Bu sorun bende de mevcut. İş bilgisayarımda bir şekilde oluyor ama ingilizce olan ev bilgisayarımda olmuyor. Klasördeki dosyalarda içinde türkçe karakter olanları ingilizce ile yer değiştirip, zıp yapıyorum.
Bakın aşağıdaki gibi kodum var. eski yazanda türkçe karakter var, diğerinde ingilizce. Ama bu satırda hata alıyorum. Türkçe karakterli dosyayı bulamadığını iddia ediyor.
Name FolderName & eski(i) As FolderName & yeni(i)
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer Konular Popüler İçerikler Daha Fazlası

Üst