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 12: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 12:30
Meslek: bankacı
Yaş: 40
İ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 14: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
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 27
İleti: 372
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

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

İleti#3)  tasad » 10 Oca 2019 15: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
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 27
İleti: 372
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 4 misafir

Bumerang - Yazarkafe