Opslaan in een zelfgekozen map

[jurgen2904]

Hallo, ik ben nieuw en onervaren hier,


ik heb een macro gemaakt waarbij ik gegevens van een werkblad invul in een 2de reeds opgeslagen werkblad,dit 2 de werkblad wil ik nu opslaan onder een andere naam, de naam is een combinatie van de cellen a1 en a2,in een door mij te kiezen map
hoop dat mij hier iemand op weg kan helpen

thkx

 

[bara]

Zou je aub een kopie van je bestand kunnen bijvoegen.
Ik zoek ook zoiets om data van een excel werkblad weg te schrijven naar een verzamellijst die in een ander bestand staat.

groet

Bart

 

[snb]

Ook dit forum heeft een zoekfunktie. Beide vragen zijn al tig keer langsgekomen.

 

[jurgen2904]

Ik had naruurlijk al in het forum gezocht maar niets gevonden wat echt werkte
zal dan maar verder zoeken

 

[Wigi]

niets gevonden

:shocked:

Elke paar dagen komt dat wel aan de orde.

Net nog de deze gehad: http://www.helpmij.nl/forum/showthread.php?t=469645

 

[Ikke1976]

sPath = "Geef hier het padnaam op"
'standaard pad opgeven.

ThisWorkbook.SaveAs sPath & Range("c2") & " " & Range("C1") _
& " " & Format(Now, "yyyy-mm-dd hh-mm-ss") & ".xls"
'opslaan van document in standaard directory
'documentsnaam = cel C2 en cel C1, vervolgens de datum en tijd.

Misschien heb je er iets aan.

 

[jurgen2904]

heb het het laaste ook geprobeerd, maar lukt niet echt goed
de bedoeling is dat ik een worksheet opsla als volgt
E: cel a1/cel a2/cel a3/ cel a5+cel a6
waarbij cel a1,a2,a3 directories zijn
en de combinatie van de cellen a5 en a6 is de bestandsnaam
mischien dat me toch noch iemand kan verder helpen

 

[Warme bakkertje]

Sub tst()
ThisWorkbook.SaveAs "E:\" & [A1] & "\" & [A2] & "\" & [A3] & "\" & [A5] & [A6] & ".xls"
End Sub