Excel listesindeki verilerle klasöre isim verme

[gizzemkoc]

iyi çalışmalar,

tam olarak anlatabilir miyim bilmiyorum ama acaba excelde kayıtlı bir listeden klasörler oluşturmak mümkün müdür?

örneğin elimde şirketin çalıştığı firmaların listesi var ve ben her bir müşteri için ayrı bir klasör oluşturmak ve verilerimi saklamak istiyorum. ancak firma sayısı çok fazla olduğundan tek tek giriş yapmak fazlasıyla zamanımı alıyor. bu konuda yardımcı olabilir misiniz??

 

[mancubus]

aktif olunan sayfadaki A2:A150 aralığındaki hücre değerlerine göre klasör oluşturur.

Sub FirmaKlasörüOluştur()
  
    Dim Rng As Range, Cll As Range
    Dim Firmalar As String, AnaKlasör As String, AltKlasör As String
    Dim KlasörVar
    
    AnaKlasör = "C:\Users\XXXX\Dosyalar\Firmalar" 'anaklasör ismi buraya
    KlasörVar = Dir(AnaKlasör, vbDirectory)
    If KlasörVar = "" Then
        MkDir (AnaKlasör)
    End If
    
    Firmalar = "A2:A150" 'gerçek listeye göre aralık düzeltilecek
    Set Rng = ActiveSheet.Range(Firmalar)
    For Each Cll In Rng
        If Len(Trim(Cll.Value)) > 0 Then
            AltKlasör = AnaKlasör & "\" & Cll.Value
            KlasörVar = Dir(AltKlasör, vbDirectory)
            If KlasörVar = "" Then
                MkDir (AltKlasör)
            End If
        End If
    Next Cll
    
End Sub

 

[gizzemkoc]

Çok teşekkür ederim. tam olarak aradığım şeydi

 

[mancubus]

rica ederim.