Macro die mappen aanmaakt

[davylenders123]

Ik heb een macro die mappen aanmaakt op de locatie die in c1 is ingeven.
De mappen die worden aangemaakt op de locatie van c1 staan in kolom A vanaf rij 2.
Dit werkt ook.

Maar nu zou ik willen dat ik meerder locaties ineens kan ingeven in kolom c en dat deze dan ineens allemaal de mappen krijgen die in kolom A vanaf 2 staan krijgen.

Wat moet ik dan aanpassen aan de code hieronder.

Sub MakeDirs()
Dim MyRange As String
MyRange = Range("C1")
Dim vFolderList As Variant, i As Long
vFolderList = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Value
On Error Resume Next
For i = 1 To UBound(vFolderList, 1)
    MkDir MyRange & vFolderList(i, 1)  'amend the directory as required (it must exist)
Next
End Sub

Bekijk bijlage mappen aanmaken1.xls

 

[edmoor]

De locatie in C1 is al fout...

 

[davylenders123]

Sorry foutje erin.
Hier nu wel met juiste link.
Met de knop wordt nu enkel op locatie van c1 aangemaakt en zou graag hebben dat alles wat in kolom c komt te staan
wordt aangemaakt. (Voorbeeld zijn er maar 3 maar moeten er een 70 tal worden)

Bekijk bijlage 301581

 

[edmoor]

Wat heeft kolom A er nog mee te maken dan?

 

[davylenders123]

In kolom a komen de mappen te staan die aangemaakt moeten worden op de locatie die in kolom c staan.


Vb hier worden volgende mappen aangemaakt als je macro laat lopen.
C:\Users\Jan Peeters\ziekenbriefjes\
2012
2013
2014
2015
2016
2017

 

[snb]

Je kunt beter bestanden een onderscheiden naam geven dan tig verschillende directories.

En gebruik vooral geen VBA-code die je niet 100% begrijpt.