Otomatik Klasör Oluşturma

Bu dosya, Excel'de listelediğiniz adlara göre bilgisayarınızda iç içe klasörleri tek seferde oluşturmanızı sağlar. Klasörleri tek tek sağ tıklayıp adlandırmak yerine, adları hücrelere yazar ve makroyu çalıştırırsınız.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

Dosyada tek sayfa vardır: KLASÖR DİZİNLERİ. Veriler B1:J150 aralığındadır ve her klasör düzeyi ayrı bir sütunda yer alır.

• B sütunu: KITA (örnek: ASYA, AVRUPA)
• D sütunu: ÜLKE (örnek: TÜRKİYE)
• F sütunu: ŞEHİR (örnek: KAYSERİ, PARİS)
• H sütunu: İLÇE (örnek: TALAS)
• J sütunu: MAHALLE (örnek: HARMAN)

Her satır, soldan sağa doğru bir klasör yolunu tanımlar. Örneğin ASYA, TÜRKİYE, KAYSERİ, TALAS ve HARMAN satırı, birbirinin içinde beş klasör oluşturur.

Makrolar​

Dosyada Module1 içinde aktar adlı tek bir makro vardır.

• Çalışınca klasör seçme penceresi açar ve klasörlerin oluşturulacağı ana konumu seçmenizi ister.
• 2. satırdan B sütunundaki son dolu satıra kadar ilerler ve her satırdaki adları sırayla alt klasör olarak oluşturur.
• Aynı adlı klasör zaten varsa onu yeniden oluşturmaz.
• İşlem bitince "Klasörler oluştu !" mesajını gösterir. Klasör seçmeden pencereyi kapatırsanız "Lütfen Kaynak Klasör Seçimini Yapınız !" uyarısı çıkar.
• Kod hata oluştuğunda devam edecek şekilde yazılmıştır (On Error Resume Next). Geçersiz karakter içeren bir ad varsa o klasör sessizce atlanır.
• Kodda dosya silme veya dışarıya bağlantı kuran bir komut yoktur. Makro yalnızca seçtiğiniz konumda klasör oluşturur.

Kodda L ve N sütunlarını (6. ve 7. düzey) okuyan satırlar da vardır. Ancak örnek veri J sütununa kadar olduğu için bu düzeyler dosyada kullanılmıyor. Ayrıca bu iki düzey, kendinden önceki düzeylerin altına değil, 2. düzey klasörün altına eklenir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. KLASÖR DİZİNLERİ sayfasında 2. satırdan başlayarak kendi klasör adlarınızı ilgili sütunlara yazın. Örnek verileri silebilir veya değiştirebilirsiniz.
3. Alt+F8 tuşlarıyla makro listesini açın, aktar makrosunu seçip çalıştırın.
4. Açılan pencerede klasörlerin oluşturulacağı konumu seçin.
5. Uyarı mesajını gördükten sonra seçtiğiniz konumu kontrol edin.

Oluşturduğunuz klasörlerin adlarını Excel'e geri aktarmak isterseniz Klasörleri Excelde Listeleme dosyasına bakabilirsiniz.