Map maken

Status
Niet open voor verdere reacties.
Volgens de gegevens in het document wordt deze dan opgeslagen als:
Code: 
D:\Drenth\Administratie-2021.xlsm
Dat is niet wat je wilt?
 
Nee. Ik zou graag willen fat het nieuwe bestand wordt opgeslagen in de submap overeenkomstig de cel J4.
Dus D:\Drenth\2021\Administratie-2021.xlsm
 
Dan neem je dat toch op die manier in de code op?
Code: 
Sub BestandOpslaan()
    ActiveWorkbook.Save
    ActiveWorkbook.SaveAs Range("J2") & "\" & Range("J4") & "\" & Range("J3") & "-" & Range("J4") & ".xlsm"
End Sub

NB:
Als je direct op een vorig bericht reageert hoef je niet de quote knop te gebruiken.
Gebruik dan de blauwe knop: +Reageer op bericht.
 
Laatst bewerkt:
Beste Edmoor,

Dank voor je reactie.
Geweldig!
Is een code van mij van tientallen regels behoorlijk gereduceerd.
Heb over het hoofd gezien dat er nog een backslash tussen moet.

Alles in orde nu.
Nogmaals heel erg bedankt. Volgens mij ben je een tovenaar. Hahaha.

mvg,
 
Laatst bewerkt door een moderator:
Niet alleen een backslash maar ook de betreffende waarde.
 
Zet in J2:

D:\Drenth\&\Administratie-&.xlsm

Code: 
Sub M_snb()
    ActiveWorkbook.Save
    ActiveWorkbook.SaveCopyAs replace(Range("J2"),"&",year(date))
End Sub
 
Beste snb,

Dank voor je reactie. Het probleem is opgelost.

mvg,
 
Laatst bewerkt door een moderator:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan