VBA: Excel document opslaan in door cel bepaalde map

[Rhaywith]

Hallo iedereen,

Op het moment ben ik druk bezig met het maken van een order programma, dit voor het maken van orders.
Het probleem dat zich nu voordoet is dat er 100 verschillende klanten hierin voorkomen, voor elke klant is een map waarin zijn order terecht komen die gemaakt zijn met het excel programma.
Op het moment slaat de macro het document op een vaste locatie op. Nu is mijn vraag is het mogelijk afhankelijk van een waarde in een cel een map te kiezen waarin het document moet worden opgeslagen.

Voorbeeld:
Mappen:
JAN
KLAAS
PIET

Cel waarde in programma=Jan, waardoor dus map jan moet gekozen worden om het bestand in op te slaan.

Dit is de macro die ik tot dusverre heb, deze slaat het document op in een vaste map met een naam gerlateerd aan een cell:
Sub Macro1()
x = MsgBox("Checklist is afgerond, wilt u deze opslaan?", vbYesNoCancel, "Checklist ")
If x = vbNo Then
x = MsgBox("Checklist is niet opgeslagen", vbOKOnly, "Checklist ")
Exit Sub
ElseIf x = vbCancel Then
Exit Sub
ElseIf x = vbYes Then
x = MsgBox("Checklist is opgeslagen", vbOKOnly, "Checklist ")

End If

Bestandsnaam = "E:\TEST 123\" & Range("Q3").Value
ActiveSheet.SaveAs Filename:=Bestandsnaam

End Sub

Ik hoop dat jullie me uit de brand kunnen helpen.

Met vriendelijke groet,

Rob

 

[jffry101]

Misschien kijk ik te simpel, maar is dit niet een oplossing?

Bestandsnaam = "E:\" & Range("Q2").Value & "\" & Range("Q3").Value

Hierin neem ik aan dat in Q2 de naam staat, en in Q3 het ordernummer o.i.d.

Succes, Jeffrey

 

[HSV]

Als de mapnaam in cel A1 staat.

bv.

Bestandsnaam = "E:\TEST 123\" [COLOR=#FF0000]& range("a1").value & "\"[/COLOR] & Range("Q3").Value

aub. gebruik maken van codetags met het "#" teken.

edit: iets later dan Jeffrey.

 

[Rhaywith]

Bedankt

Jeetje dit is echt ongelooflijk, ik heb dit echt zovaak geprobeerd. Het probleem wat ik nu zie is dat ik gewoon de laaste & vergeten ben -_-.

Bedankt :d