Çözüldü Klasör İçerisine İsimlere Göre Dosya Oluşturma

[gicimi]

Merhaba;

Ekteki dosyada belirtilen (B Sütunundaki) 410 satır adında ayrı ayrı klasöre başlıkları ile birlikte çalışma kitabı oluşturmak istiyorum. Konu hakkında yardımcı olabilir misiniz. Teşekkürler.

 

[Zeki Gürsoy]

D:\TestFolder olarak bir klasör oluşturun ve deneyin...

Sub Test()
    Dim Wb As Workbook, DestWb As String, DestDir As String, i As Integer
  
    Const ROOT_FOLDER As String = "D:\TestFolder\"
  
    Worksheets("Sheet1").Copy
  
    Set Wb = ActiveWorkbook
  
    For i = 2 To Cells(Rows.Count, "b").End(3).Row
      
        DestDir = ROOT_FOLDER & Cells(i, "b")
      
        DestWb = DestDir & "\" & Cells(i, "b") & ".xlsx"
      
        If Dir(DestDir, vbDirectory) = "" Then MkDir DestDir
      
        If Dir(DestWb) = "" Then Wb.SaveCopyAs DestWb
      
    Next
  
    Wb.Close False
  
End Sub

 

[tugkan]

Merhaba,
Aşağıdaki dosyayı inceleyiniz.

 

[gicimi]

Teşekkür ederim. @Zeki Gürsoy

 

[Namık BOLAT]

Merhaba,
Aşağıdaki dosyayı inceleyiniz.


Sayın tugkan merhabalar;
Buna benzer bir sorum olacak. Elimizde içerinde çok sayıda fotoğraf olan bir klasör var. Bu fotoğrafların hepsine ayrı ayrı fotoğrafın adıyla klasör açmamız gerekiyor. Bu konuda yardımcı olabilirmisiniz acaba ?


Ekli dosyayı görüntüle 201476

 

[tugkan]

Merhaba,
Ekteki dosyayı kullanarak önce fotoğrafların dosya isimlerinin listesini oluşturun, daha sonra o listeyi kullanarak yukarıdaki klasör oluşturma dosyasıyla istediğiniz klasörleri oluşturabilirsiniz.
Not: Ekteki dosyayı fotoğrafların bulunduğu ana dizine kopyalamanız gerekir.

 

[Namık BOLAT]

Merhaba,
Ekteki dosyayı kullanarak önce fotoğrafların dosya isimlerinin listesini oluşturun, daha sonra o listeyi kullanarak yukarıdaki klasör oluşturma dosyasıyla istediğiniz klasörleri oluşturabilirsiniz.
Not: Ekteki dosyayı fotoğrafların bulunduğu ana dizine kopyalamanız gerekir.

Klasör oluşturuldu diyor ama maalesef hiç bir şey olmuyor.

 

[tugkan]

Klasör oluşturuldu diyor ama maalesef hiç bir şey olmuyor.

Sayın @Namık BOLAT 3 numaralı mesajdaki dosyayı indirdim. Herhangi bir sıkıntı olmadı. Yazdığınız klasör isimlerinde sıkıntı olabilir. Dosyayı indirdikten sonra değişiklik yapmadan orjinal haliyle çalıştırıp deneyin.

 

[goldenspace]

Merhaba,
Aşağıdaki dosyayı inceleyiniz.

Ekli dosyayı görüntüle 201476

elinize sağlık

 

[KuTuKa]

Öncelikle çok güzel düşünülmüş bir çalışma
ekteki dosyanın şunu yapmasını istiyorum dosya numaralarını yıl olarak yazdım. İçindekinler kısmı 2021 den 2036 ya kadar içindekinler kısmını yazacak.

Ek ödemeler içine Fazla Mesai ve Agiden Kaynaklı Ek Ödemeler diye bir klasör açacak ve onun içindede Fazla Mesai ve Agi Diye 2 dosya daha olacak

Eğer yapılırsa altdosya 3 alt dosya 10 a kadar uzanırsa arşivleme yönünden süper bir çalışma olacak

Buna yardımcı olacak bir arkadaş olabilir mi ?