Çözüldü Hücre Değerine Göre Tek Klasör Oluşturma

[ozuberk]

Merhaba arkadaşlar B sütununda (isimler formül ile alınıyor) yazan rakamlara göre klasör oluşturmak istiyorum. Klasör oluşturulması hakkında örnek buldum ama birden fazla isim olunca hata alıyorum. Hata almadan oluşturacağım kodu olan var mı?

 

[ozuberk]

Cevabı buldum.

Sub Klasor_Olustur()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
'Set Rng = Selection
Set Rng = Range("B1:B100")
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub