mappen aanmaken

Status
Niet open voor verdere reacties.

Oude leerling

Gebruiker
Lid geworden
30 aug 2010
Berichten
554
Geacht forum,

Ik heb een directorie
Code:
 "C:\Users\Public\Documents\Facturen" & " " & (Range("E1").Value + 1)

Hierin is E1 het jaartal (oud)

In deze map wil ik voor iedere klant weer een aparte map aanmaken
Mijn klantnamen staan in kolom A

Is dit in een code te vatten

Jaap
 
Met zoiets Jaap.
Code:
Sub hsv()
Dim sn, i As Long
sn = Cells(1).CurrentRegion.Columns(1)
 For i = 1 To UBound(sn)
   CreateObject("shell.application").Namespace("C:\Users\Public\Documents\Facturen" & " " & Range("E1").Value + 1).newfolder sn(i, 1)
 Next i
End Sub
 
Harry,
Als het mag , toch nog een vraag over jou mooie code.

Als ik nu de klantnamen in kolom G zet , wat dan?

Ik heb Columns(1) al gewijzigd in Columns(7) maar dat werkt niet

Jaap
 
Jaap,

Als je netjes in cel A1 begint, en het is een aaneengesloten bereik t/m of voorbij kolom 7 moet dat geen probleem zijn.
Maar ik denk dat bij jou bovenstaand niet het geval is.

Plaats anders een bestand hoe het eruit ziet.
 
Harry,

De namen stonden netjes onder elkaar in kolom A maar omdat daar nu wat anders moet staan heb ik ze verplaatst
naar kolom G
Dus de namen waar ik mapjes van wil hebben staan in G1 tot G----- aantal is nog niet bekend.

Ik hoop dat je hier genoeg aan heb anders moet ik toch maar een voorbeeldbestandje in elkaar knutselen.
Jaap
 
Als er links en rechts niets naast staat.
Code:
sn = Cells(1,7).CurrentRegion
 
Harry ,
Dat is de oplossing Alles werkt weer
Kan je eventueel nog wat uitleg geven wat de code doet en hoe hij werkt.
Dat ontbreekt mij en daarom kom ik er niet zelf uit
Bedankt en de vriendelijke groet van Jaap
 
Jaap,

Ik heb er even een bestandje bij gedaan.
Op twee bladen staat wat uitleg.
 

Bijlagen

  • Jaap.xlsx
    8,8 KB · Weergaven: 17
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan