excel hücre değerlerine dayalı klasörler oluşturma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

excel hücre değerlerine dayalı klasörler oluşturma

İleti#1)  POLKAB » 10 Oca 2019 10:38

merhaba,

excel listemde tek sütunda firma unvanları var ben bu firma isimleriyle, her firma için otomatik klasör oluşturmak istiyorum nasıl yapabilirim acaba?
Kullanıcı avatarı
POLKAB
 
Kayıt: 10 Oca 2019 10:30
Meslek: bankacı
Yaş: 41
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: excel hücre değerlerine dayalı klasörler oluşturma

İleti#2)  tasad » 10 Oca 2019 12:13

Örnek dosya eklerseniz yardımcı oluruz.Yinede firma ünvanlarının A kolonunda olduğunu varsayarak aşağıdaki kodları ekledim.
Kod: Tümünü seç
Sub Klasorolustur()
'Klasör Olusturma
Dim dosyayolu As String, KLS As Object, Klasor As Object, dosya As Object, i As Long
For i = 2 To Cells(Rows.Count, 1).End(3).Row
dosyayolu = ThisWorkbook.Path & "\"
Set KLS = CreateObject("scripting.filesystemobject")
Set Klasor = KLS.GetFolder(dosyayolu)
For Each dosya In Klasor.Files
On Error Resume Next
KLS.createfolder (dosyayolu & "\" & Cells(i, 1))
Next dosya
Next i
Set KLS = Nothing: Set Klasor = Nothing: Set dosya = Nothing: dosyayolu = vbNullString
MsgBox "Klasörler oluşturuldu"
End Sub
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 582
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: excel hücre değerlerine dayalı klasörler oluşturma

İleti#3)  tasad » 10 Oca 2019 13:15

Düzeltme;
Firma ünvanlarının A kolonunda olduğunu varsayarak aşağıdaki kodları ekledim.
Kod: Tümünü seç
Sub Klasorolustur()
'Klasör Olusturma
Dim dosyayolu As String, KLS As Object, i As Long
For i = 2 To Cells(Rows.Count, 1).End(3).Row
dosyayolu = ThisWorkbook.Path & "\"
Set KLS = CreateObject("scripting.filesystemobject")
KLS.createfolder (dosyayolu & "\" & Cells(i, 1))
Next i
Set KLS = Nothing: dosyayolu = vbNullString
MsgBox "Klasörler oluşturuldu"
End Sub
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 582
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

Bumerang - Yazarkafe