Toplam 8 sonuçtan 1 ile 8 arasındakiler gösteriliyor.

Konu: Klasör oluşturma

  1. #1
    Üye
    Üyelik tarihi
    Dec 2011
    Nereden
    SAMSUN
    Versiyon
    OFFİCE 2010
    Mesajlar
    82

    Klasör oluşturma

    Merhaba

    Sayfa1'de C2:C10 aralığında oluşturulacak olan klasör isimleri var. C2 hücresinde yazan isme göre oluşturulan klasörün içine D2:D100, C3 hücresinde yazan isme göre oluşturulan klasörün içine E2:E100,................. aralığında yazan isme göre klasörler (alt klasör) açılabilir mi? Bu klasörler, excel dosyasının bulunduğu klasörün içinde olacak.

    Teşekkürler...
    Konu İSTİKLAL tarafından (01.08.2017 Saat 17:07 ) değiştirilmiştir.

  2. #2
    Üye
    Üyelik tarihi
    Dec 2011
    Nereden
    SAMSUN
    Versiyon
    OFFİCE 2010
    Mesajlar
    82
    Konu güncel...

  3. #3
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    891
    Merhaba
    Aşağıdaki kod işinizi görür sanırım.
    Kod:
    Sub klasor()
    yol = ThisWorkbook.Path
    For i = 2 To 10
        MkDir yol & "\" & Cells(i, "C")
    Next i
    For i = 2 To 10
        For j = 2 To 100
            MkDir yol & "\" & Cells(i, "C") & "\" & Cells(j, Cells(i, "C").Column + i - 1)
        Next j
    Next i
    End Sub

  4. #4
    Üye
    Üyelik tarihi
    Dec 2011
    Nereden
    SAMSUN
    Versiyon
    OFFİCE 2010
    Mesajlar
    82
    Serkan Bey, merhaba.

    Öncelikli olarak ilginiz için teşekkür ederim. Kod sadece C sütununda var olan isimlere göre klasörleri oluşturuyor. Ancak bu klasörlerin içine alt klasörleri oluşturmuyor. Herhalde alt klasörlerin oluşturulacağı ana klasörleri bulamıyor. Ve aşağıda yazdığım hata cümlesini veriyor.
    Tekrar teşekkürler...

    Run-time error'75'
    Path/File access error

  5. #5
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    891
    Merhaba örnek sayfa görüntüsünü gönderebilir misiniz.
    Linkteki programı kullanabilirsiniz.
    http://www.hesaptablosu.com/showthre...light=xltohtml

  6. #6
    Üye
    Üyelik tarihi
    Dec 2011
    Nereden
    SAMSUN
    Versiyon
    OFFİCE 2010
    Mesajlar
    82
    Serkan Bey, merhaba.
    Sayfadaki renklendirmeler bilgilendirme amaçlıdır. Kısaca açıklamalarıda belirttim. Tekrar teşekkürler.

    Gönderen XL Ver.: bilinmiyor / OS Ver.:
    +ABCDEFGHIJKLM
    1klasörC2C3C4C5C6C7C8C9C10altklasörlerin olduğu sütunlar D-L arası
    2altklasörü d2:d100 arası isimleraaaamxqeeeezzzsatır aralıkları 2-100 arası
    3altklasörü e2:e100 arası isimlerbbbbnverrr
    4altklasörü f2:f100 arası isimleCCCCCCrbr
    5Diğerleri de aynı şekildeDDDDtn5
    6FFj7
    7uı
    8ıp
    9oh
    10pf
    11l
    12m
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    XLtoHTML v1.1 / OfficeTürkiye - 2010©

  7. #7
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    891
    Merhaba
    Boş hücrelerden dolayı hata vermiş, güncellenmiş kodu aşağıda bulabilirsiniz.
    Kod:
    Sub klasor()yol = ThisWorkbook.Path
    For i = 2 To 10
        If Cells(i, "C") <> "" Then MkDir yol & "\" & Cells(i, "C")
    Next i
    For i = 2 To 10
        For j = 2 To 100
            If Cells(i, "C") <> "" And Cells(j, Cells(i, "C").Column + i - 1) <> "" Then MkDir yol & "\" & Cells(i, "C") & "\" & Cells(j, Cells(i, "C").Column + i - 1)
        Next j
    Next i
    End Sub

  8. #8
    Üye
    Üyelik tarihi
    Dec 2011
    Nereden
    SAMSUN
    Versiyon
    OFFİCE 2010
    Mesajlar
    82
    Serkan Bey, harika oluş. Elinize sağlık.
    Tekrar çok teşekkürler...

Konu Bilgisi

Users Browsing this Thread

Şu anda 1 üyemiz bu konuya göz atıyor. (0 kayıtlı üye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •