Klasör oluşturma

[1903emre34@gmail.com]

Merhaba,

B2 hücresine; dosyanın ismi yazıp, "A" sütuna, yazdığımız dosyanın altında yer almasını sağlayacak şekilde nasıl kod oluşturabiliriz, manuel yapılmıştır,

 

[Ömer]

Merhaba,

İstediğiniz bu mu?

Sub Alt_Klasor()

    Dim i As Byte, d As Object, yol As String, dosya
    
    Set d = CreateObject("Scripting.FileSystemObject")
    
    For i = 2 To 13
        If Cells(i, "B") <> "" Then
            yol = ThisWorkbook.Path & "\" & Format(Cells(i, "A"), _
                "mmmm yyyy") & "\" & Cells(i, "B")
            dosya = d.FolderExists(yol)
            If dosya = False Then
                d.CreateFolder yol
            End If
        End If
    Next i
    
End Sub

.

 

[1903emre34@gmail.com]

İlginiz için teşekkürler, hata verdi

 

[Ömer]

Eklediğiniz örnek üzerinden ben denedim, hata almadım.

Siz farklı bir dosyada mı denediniz.
Hangi satırda hata verdi? Hata kodu nedir?

Örneğinizdeki gibi, kodları uyguladığınız excel dosyası ile tarih klasörlerinin olduğu ana klasör aynı yerde mi?

.

 

[1903emre34@gmail.com]

Video güncellendi

 

[Ömer]

Resimden yaptığınız işlemler anlaşılmıyor.

Klasörü .rar dosyasında çıkardınız mı?

.

 

[1903emre34@gmail.com]

Evet, çıkardım.

 

[Ömer]

Eklediğim .rar dosyasını masa üstüne çıkartın. Masa üstüne gelen xxx klasörüne girip "Klasör oluşturma" adlı excel dosyasını açın ve butona basıp sonuçları gözlemleyin.

.