Excel'de bir veri listesinden birden fazla klasör ve alt klasör oluşturun

Diyelim ki bir çalışma sayfası aralığında personel isimlerinin bir listesi var ve her biri için bilgilerini saklamak amacıyla bireysel klasörler oluşturmayı hedefliyorsunuz. Her bir klasörü manuel olarak oluşturmak zaman alıcı olabilir. Ancak bu süreci hızlandırmak için etkili yöntemler bulunmaktadır. Bu kılavuzda, belirtilen hücre değerlerine göre klasörleri hızlıca oluşturmak için çeşitli yaklaşımlar paylaşacağım.

Hücre değerlerine göre klasörler oluşturun

• MD komutu ve Notepad kullanarak
• Güçlü bir özellik olan Kutools for Excel'i kullanarak
• VBA kodu kullanarak

VBA kodu ile hücre değerlerine göre klasörler ve alt klasörler oluşturun

Hücre değerlerine göre klasörler oluşturun

Bu bölümde, bir hücre değerleri listesine dayalı olarak klasörler oluşturmak için kapsamlı adım adım talimatlar sunarak çeşitli yöntemleri ayrıntılı olarak inceleyeceğiz.

MD komutu ve Notepad kullanarak listeden klasörler oluşturun

Excel'deki bir listeyi MD komutu ve Notepad kullanarak klasörlere dönüştürmek, kolay toplu betikleme ile Excel'in düzen tutma yeteneğini birleştiren akıllıca bir yöntemdir. Bu yöntem, çok sayıda klasörü hızlıca oluşturmak için harika bir yol sunar ve hepsini manuel olarak yapma gereği olmadan işler. İşte bu görevi gerçekleştirmek için adım adım bir kılavuz:

Adım 1: Formül oluşturmak için MD komutunu kullanın

Aşağıdaki formülü ilk hücre değerinizin (örneğin B1) yanındaki boş bir hücreye kopyalayın veya girin ve ardından formülü tüm liste öğelerine uygulamak için doldurma tutamacını aşağı çekin.

="MD "&A1

Adım 2: Formülleri bir Notepad dosyasına kopyalayıp yapıştırın

1. MD komut formülü içeren hücreleri kopyalamak için "Ctrl + C" tuşlarına basın.
2. Notepad'i açın ve komutları yeni bir dosyaya yapıştırmak için "Ctrl + V" tuşlarına basın.
   

Adım 3: Notepad dosyasını .bat dosyası olarak kaydedin

Notepad'teki "Dosya" sekmesinden "Farklı Kaydet" seçeneğine tıklayın, "Farklı Kaydet" iletişim kutusunda birden fazla klasör oluşturmak istediğiniz dizini seçin ve bu dosya için .bat uzantısıyla bir ad verin. Son olarak, "Kaydet" düğmesine tıklayın. Ekran görüntüsüne bakın:

Adım 4: Birden fazla klasör oluşturmak için .bat dosyasına çift tıklayın

1. Notepad dosyasını kapatın ve daha önce .bat dosyasını kaydettiğiniz klasöre gidin.
2. Şimdi sihri izleyin: dosyaya çift tıklayın ve birden fazla klasörün aynı anda oluşturulduğunu göreceksiniz. Aşağıdaki demoyu izleyin:
   

Güçlü bir araç olan Kutools for Excel'i kullanarak listeden klasörler oluşturun

Kuvvetli Kutools for Excel'in "Aralığa Dayalı Klasör Oluştur" özelliği ile artık bir Excel listesinden klasörleri kolayca ve hızlıca oluşturabilirsiniz. Ancak sadece temel klasörlerle sınırlı kalmaz; Kutools ayrıca tek seferde çok seviyeli alt klasörler içeren karmaşık yapılar oluşturmaya da olanak tanır. Birkaç basit adım, Excel'deki verileri düzenli bir klasör sistemine dönüştürebilir ve üretkenliğinizi önemli ölçüde artırabilir.

Kutools for Excel'i yükledikten sonra lütfen "Kutools Plus" > "İçe Aktar / Dışa Aktar" > "Aralığa Dayalı Klasör Oluştur" seçeneğine tıklayarak Aralığa Dayalı Klasör Oluştur iletişim kutusunu açın:

1. Klasör oluşturmak istediğiniz hücre değerlerini seçin;
2. Sonra, düğmesine tıklayarak klasörleri kaydetmek istediğiniz hedef klasörü belirtin;
3. Son olarak, Tamam düğmesine tıklayın.
   

Sonuç:

Kutools, sayfanızdaki listeyi işleyecek ve belirtilen hedef konumda her bir giriş için bir klasör oluşturacaktır. Sonucu görmek için hedef klasöre gidin. Ekran görüntüsüne bakın:

VBA kodu kullanarak listeden klasörler oluşturun

Excel'de VBA kodu kullanmak, bir listeden klasör oluşturmanın sıkıcı görevini hızlı ve otomatikleştirilmiş bir işleme dönüştürebilir. Bu bölüm, klasör oluşturmak için VBA kodunun nasıl uygulanacağını gösterecektir.

Adım 1: VBA modül düzenleyiciyi açın ve kodu kopyalayın

1. Excel'de "ALT + F11" tuşlarını basılı tutun, bu işlem "Microsoft Visual Basic for Applications" penceresini açar.
2. "Ekle" > "Modül" seçeneğine tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
   VBA kodu: Hücre değerlerinden oluşan bir listeye göre klasörler oluşturun

   Sub CreateFoldersFromSelection()
   'Updateby Extendoffice
       Dim FolderPath As String
       Dim Cell As Range
       Dim SelectedRange As Range
       Dim FolderName As String
       On Error Resume Next
       Set SelectedRange = Application.InputBox("Select the range with folder names", "Kutools for Excel", Type:=8)
       If SelectedRange Is Nothing Then Exit Sub
       On Error GoTo 0
       
       With Application.FileDialog(msoFileDialogFolderPicker)
           .Title = "Select the destination Folder"
           .AllowMultiSelect = False
           If .Show <> -1 Then Exit Sub
           FolderPath = .SelectedItems(1) & "\"
       End With
       
       For Each Cell In SelectedRange
           FolderName = FolderPath & Cell.Value
           If Cell.Value <> "" And Not FolderExists(FolderName) Then
               MkDir FolderName
           End If
       Next Cell
   End Sub
   
   Function FolderExists(ByVal Path As String) As Boolean
       On Error Resume Next
       FolderExists = (GetAttr(Path) And vbDirectory) = vbDirectory
       On Error GoTo 0
   End Function
   

Adım 2: Kodu çalıştırın

1. Bu kodu yapıştırdıktan sonra, lütfen bu kodu çalıştırmak için F5 tuşuna basın. Açılan kutuda, klasör oluşturmak istediğiniz hücre değerlerini seçin. Ardından Tamam'a tıklayın.
   
2. Ardından, açılan "Hedef Klasörü Seç" penceresinde, oluşturulan klasörleri çıktı almak için hedef yolunu belirtin. Ve sonra, Tamam düğmesine tıklayın, ekran görüntüsüne bakın:
   

Sonuç:

VBA kodunu çalıştırdıktan sonra, sonucu görmek için hedef dizine gidin. Orada, Excel listenizden her bir öğeye karşılık gelen yeni oluşturulan klasörleri bulacaksınız. Ekran görüntüsüne bakın:

VBA kodu ile hücre değerlerine göre klasörler ve alt klasörler oluşturun

Bazen sadece klasörler değil, aynı zamanda onların ilgili alt klasörlerini de oluşturmanız gereken durumlarla karşılaşabilirsiniz ve bunların hepsi Excel hücrelerindeki verilere dayanmaktadır. Bu görevi gerçekleştirmek için burada size bir VBA kodu tanıtacağım.

Adım 1: Veriyi hazırlayın

Öncelikle, aşağıdaki ekran görüntüsünde gösterildiği gibi verileri girmelisiniz, ana klasör adlarını ilk sütuna ve alt klasör adlarını ikinci sütuna yerleştirin.

Adım 2: VBA modül düzenleyiciyi açın ve kodu kopyalayın

1. Excel'de "ALT + F11" tuşlarını basılı tutun, bu işlem "Microsoft Visual Basic for Applications" penceresini açar.
2. "Ekle" > "Modül" seçeneğine tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
   VBA kodu: Hücre değerlerine göre klasörler ve alt klasörler oluşturun

   Sub CreateFoldersAndSubfoldersWithUserInput()
   'Updateby Extendoffice
       Dim Rng As Range
       Dim Cell As Range
       Dim basePath As String
       Dim fldrPicker As FileDialog
       Dim FolderPath As String, subfolderPath As String
       On Error Resume Next
       Set Rng = Application.InputBox("Select the range of cells (two columns: one is folder column, another s subfolder column):", "Kutools for Excel", Type:=8)
       If Rng Is Nothing Then Exit Sub
       On Error GoTo 0
       Set fldrPicker = Application.FileDialog(msoFileDialogFolderPicker)
       With fldrPicker
           .Title = "Select the Base Folder Path"
           .AllowMultiSelect = False
           If .Show <> -1 Then Exit Sub
           basePath = .SelectedItems(1)
       End With
       If Right(basePath, 1) <> "\" Then basePath = basePath & "\"
       For Each Cell In Rng.Columns(1).Cells
           If Not Cell.Value = "" Then
               FolderPath = basePath & Cell.Value
               If Not FolderExists(FolderPath) Then MkDir FolderPath
               If Not Cell.Offset(0, 1).Value = "" Then
                   subfolderPath = FolderPath & "\" & Cell.Offset(0, 1).Value
                   If Not FolderExists(subfolderPath) Then MkDir subfolderPath
               End If
           End If
       Next Cell
   End Sub
   
   Function FolderExists(FolderPath As String) As Boolean
       On Error Resume Next
       FolderExists = (GetAttr(FolderPath) And vbDirectory) = vbDirectory
       On Error GoTo 0
   End Function
   

Adım 3: Kodu çalıştırın

1. Bu kodu yapıştırdıktan sonra, lütfen bu kodu çalıştırmak için F5 tuşuna basın. Açılan kutuda, klasör oluşturmak istediğiniz hücre değerlerini seçin. Ardından Tamam'a tıklayın.
   
2. Açılan pencerede, oluşturulan klasörleri çıktı almak için hedef yolunu belirtin. Ve sonra, Tamam düğmesine tıklayın, ekran görüntüsüne bakın:
   

Sonuç:

VBA kodunu çalıştırdıktan sonra, sonucu görmek için hedef dizine gidin. Hücre değerlerine göre belirlenen klasörler ve ilgili alt klasörlerin başarıyla oluşturulduğunu aşağıdaki ekran görüntüsünde gösterildiği gibi göreceksiniz:

İlgili Makaleler: