Excel opslaan

[cees002]

Ik werk met verschillende mensen die excel lijsten invullen en opslaan.
Dit gaat regelmatig fout omdat men de verkeerde map kiest waarin op te slaan.
Kan ik in Excel een soort verwijzing maken dat als men druk op "opslaan als" men gelijk in de juiste map terecht komt.
Dit zou veel fouten oplossen van lijsten die nu in verkeerde mappen terecht komen omdat men de foute map kiest.

 

[rohuijgen]

Hi Cees,

ik heb toevallig gisteren het zelfde gedaan....alleen moet ik wel zeggen dat dit voor de mac is.....

Sub BewaarAls()
Dim folderPath As String
Dim RootFolder As String
Dim BESTANDSNAAM As String

'Hiermee geef ik het bestand een naam op basis van een celwaarde.
'Dus als de waarde in cel M14 "1234" is dan wordt de bestandsnaam: "Factuur 1234"
Range("M14").Select
BESTANDSNAAM = "Factuur " & ActiveCell.Value

'Hier wordt het bestand opgeslagen als: Unitled\Users\administrator\Dropbox\Commerciality\Administratie\Facturen\2013\Factuur 1234.xlsm
ActiveWorkbook.SAVEAS "Untitled:Users:administratorropbox:Commerciality:Administratie:Facturen:2013:" & BESTANDSNAAM, FileFormat:=53

End Sub

Hoop dat dit je helpt

Ik heb de code vervolgens aan een plaatje gekoppeld waar ze alleen maar op hoeven te drukken. Mocht je de gegevens dan willen printen, klik dan op de rechtermuisknop, afbeelding opmaken en object afdrukken uitvinken.

Succes.