Vba map op basis van de cel waarde

[Kirana2014]

Beste,

Graag jullie hulp in excel macro hoe kan ik een map in elke directory maken op basis van de celwaarde
Als een map (bv Januari) al bestaat moet er melding komen

Directory =

A1 = C:\data\Name1
A2 = C:\data\Name2
A3 = C:\data\Name3
A4 = C:\data\Name4
A5 = C:\data\Name5

De map moet worden aangemaakt in iedere directory de waarde in
cel B1 = Januari

De resultaat

C:\data\Name1\Januari
C:\data\Name2\Januari
C:\data\Name3\Januari
C:\data\Name4\Januari
C:\data\Name5\Januari

Alvast bedankt

 

[emields]

vergeten een voorbeeld bestand te plaatsen?

 

[Kirana2014]

Ik heb Zo juist het bestand ge-upload

 

[HSV]

Onderstaande is een bestaande directory?

[COLOR=#333333]C:\data\Name1[/COLOR]

Maakt ook niet uit; zo zal het altijd wel gaan.

Sub hsv()
Dim sv, i As Long
sv = Cells(1).CurrentRegion
  For i = 1 To UBound(sv)
   CreateObject("shell.application").Namespace("c:").NewFolder Split(sv(i, 1), "\", 2)(1) & "\" & sv(1, 2)
  Next i
End Sub

Incl. de MsgBox.

Sub hsv()
Dim sv, i As Long
sv = Cells(1).CurrentRegion
  For i = 1 To UBound(sv)
    If Dir(sv(i, 1) & "\" & sv(1, 2), 16) = "" Then
      CreateObject("shell.application").Namespace("c:").NewFolder Split(sv(i, 1), "\", 2)(1) & "\" & sv(1, 2)
     Else
      MsgBox "januari aanwezig"
    End If
  Next i
End Sub

 

[VenA]

Ik ga mij alvast voorbereiden op de volgende vraag; Hoe krijg ik data uit verschillende bestanden in 1 overzicht?

 

[HSV]

Weinig voorbereiding voor nodig, ik weet het antwoord al.

 

[Kirana2014]

HSV erg bedankt

Wel done

 

[JEC.]

Nog een optie

Sub j_v()
jv = Cells(1).CurrentRegion
  For i = 1 To UBound(jv)
    c00 = jv(i, 1) & "\" & jv(1, 2)
    If Dir(c00, 16) = "" Then MkDir c00
  Next i
End Sub

 

[HSV]

@JVeer, die optie kan mits alle bovenliggende mappen aanwezig zijn natuurlijk.

 

[JEC.]

Dat wel inderdaad. Maar daar zul je snel achter komen:d

 

[snb]

Zet alle gegevens als database in 1 werkblad.
Gebruik het tweede werkblad voor draaitabellen, slicers en grafieken.