Klasördeki Dosyaların İsimlerini Değiştirme

Bu dosya, bir klasördeki dosyaların adlarını Excel sayfasına listeler ve belirlenen kurallara göre dosya adlarını toplu olarak değiştirir. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sheet1: A sütununda klasörden alınmış dosya adları listelenir (A1:B3415 aralığı kullanılmıştır). Örnek kayıtlar arasında d001043_paralelkenar_tegetelips.xlsm ve 2_Sayfalık_Aylık_Planlayıcı.xlsx gibi adlar yer alır. B sütunu yeni adların yazılacağı alandır.

Makrolar​

Üç makro Module1 modülünde bulunur:

• liste: Belirtilen klasördeki ".xl" ile başlayan uzantılı dosyaların (xls, xlsx, xlsm vb.) adlarını Dir$ ile okur ve etkin hücreden başlayarak aşağı doğru yazar.
• isim_degistir: A sütunundaki eski adı B sütunundaki yeni adla değiştirir. İşlem A sütunundaki son dolu satıra kadar sürer ve bitince "İşlem tamam." mesajı verilir.
• Bahadir: Klasördeki her dosyanın adını "_" işaretine göre ayırır. Adın ilk parçasındaki noktadan önceki kısmı ile ikinci parçayı yer değiştirir ve dosyayı "ikinci parça_ilk parça.uzantı" biçiminde yeniden adlandırır. Hata oluşan dosyalar atlanır.

Üç makro da klasör yolunu kod içinde sabit olarak taşır. Kullanmadan önce yolun kendi klasörünüze göre değiştirilmesi gerekir. Dosya adlarını kalıcı olarak değiştiren makrolar olduğundan, çalıştırmadan önce klasörün yedeğini almanız önerilir. Kodda dosya silme veya dışarıya bağlantı işlemi bulunmaz.

Nasıl kullanılır​

1. Dosyayı açıp makroları etkinleştirin ve Alt + F11 ile VBA düzenleyicisini açın.
2. Module1 içindeki klasör yollarını, adı değiştirilecek dosyaların bulunduğu klasörle değiştirin.
3. Sheet1 sayfasında A1 hücresini seçip liste makrosunu çalıştırın; dosya adları A sütununa gelir.
4. B sütununa her dosya için yeni adı yazın ve isim_degistir makrosunu çalıştırın.
5. Adlardaki iki parçayı yer değiştirmek isterseniz doğrudan Bahadir makrosunu çalıştırın.