Makro ile klasör oluşturma

[sratacc]

selamlar arkadaşlar.
forumda ve google de araştırmama karşın istediğim gibi bir kod bulamadım ya da rastlayamadım.

B sütununda bulunan değerlerin isimlerine göre D:\ASD\2012 klasörü altına otomatik dosya oluşturulmasını istiyorum.

örn: b sütununda bulunan ali veli selami verilerine göre D:\ASD\2012\ altında, ali , veli ,selami adında klasörlerin oluşması.

şimdiden çok teşekkür ediyorum arkadaşlar.

 

[Milady Meriç]

Selam dostum;

Public Sub meric()
Dim milady As Range
Dim billgates As String
For Each milady In [B][COLOR="Red"]Range("a1:a3")[/COLOR][/B]
trabzon61 = milady.Value
MkDir "[COLOR="Blue"][B]c:\[/B][/COLOR]"& trabzon61
Next
End Sub

Kırmızı ile yazdığım hücre aralığı: Bu aralıkta bulunan isimlere göre klasör yaratılır.

mavi ile belirttiğim dosya yolu: klasörlerinizin yaratılacağı dizin.


Kolay gelsin.

 

[sratacc]

Selam dostum;

Public Sub meric()
Dim milady As Range
Dim billgates As String
For Each milady In [B][COLOR="Red"]Range("a1:a3")[/COLOR][/B]
trabzon61 = milady.Value
MkDir "[COLOR="Blue"][B]c:\[/B][/COLOR]"& trabzon61
Next
End Sub

Kırmızı ile yazdığım hücre aralığı: Bu aralıkta bulunan isimlere göre klasör yaratılır.

mavi ile belirttiğim dosya yolu: klasörlerinizin yaratılacağı dizin.


Kolay gelsin.

hocam cevabınız için teşekkür ederim.
Public Sub meric()
Dim milady As Range
Dim billgates As String
For Each milady In Range("b680:b890")
trabzon61 = milady.Value
MkDir "D:\\CTD\2013\"& trabzon61
Next
End Sub

şeklinde kod girdim ancak hata veriyor çalıştıramadım malesef

 

[Milady Meriç]

hocam cevabınız için teşekkür ederim.
Public Sub meric()
Dim milady As Range
Dim billgates As String
For Each milady In Range("b680:b890")
trabzon61 = milady.Value
MkDir "D:\\CTD\2013\"& trabzon61
Next
End Sub

şeklinde kod girdim ancak hata veriyor çalıştıramadım malesef

Klasör için belirlediğiniz dosya yolunda D:\\ yerine D:\ yazarak dener misiniz?

 

[sratacc]

Klasör için belirlediğiniz dosya yolunda D:\\ yerine D:\ yazarak dener misiniz?

Dediğiniz gibi yaptım ancak değişen birşey olmadı.
aldığım hata
run time error '75'
path/file access error

 

[Milady Meriç]

Dediğiniz gibi yaptım ancak değişen birşey olmadı.
aldığım hata
run time error '75'
path/file access error

Eğer hücrelerde yazan değerler ile aynı isimde klasör bulunuyorsa bu hatayı verir.

Aşağıdaki kodu dener misiniz?

Public Sub meric()
Dim milady As Range
On Error Resume Next
For Each milady In Range("B680:B890")
trabzon61 = milady.Value
MkDir "D:\CTD\2013\" & trabzon61
Next
End Sub

 

[sratacc]

Klasör için belirlediğiniz dosya yolunda D:\\ yerine D:\ yazarak dener misiniz?

hocam ekli dosyaya makro kodunu ekledim ancak birde siz bakarsanız sevinirim.

 

[sratacc]

Eğer hücrelerde yazan değerler ile aynı isimde klasör bulunuyorsa bu hatayı verir.

Aşağıdaki kodu dener misiniz?

Public Sub meric()
Dim milady As Range
On Error Resume Next
For Each milady In Range("B680:B890")
trabzon61 = milady.Value
MkDir "D:\CTD\2013\" & trabzon61
Next
End Sub

hocam ellerinize sağlık kod çalıştı ve beni büyük bir dertten kurtardı çok teşekkür ederim ilginize.

 

[Milady Meriç]

hocam ellerinize sağlık kod çalıştı ve beni büyük bir dertten kurtardı çok teşekkür ederim ilginize.

Rica ederim dostum.