Excel bestand opslaan op 2 locaties onder specifieke naam

[bennyvw]

Aangezien ik geen verstand heb van VBA, zoek ik iemand die mij zou kunnen helpen met een code.
Ik heb een bestand in *.xlsm, die zou ik op 2 locaties willen opslaan, waarvan de locaties gedefinieerd zijn in een sheet "config" onder de veldnaam
B7 die gelijk is aan "D:\Benny\Offerte" en
B8 die gelijk is aan "C:\Users\B\OneDrive\test\Offerte"
en dit onder een gedefinieerde naam die ik gemaakt heb in de sheet "Offerte" in de veldnaam
A15 die gelijk is aan een combinatie van 2 velden =D11&"_"&B13

Dank bij voorbaat

 

[edmoor]

Kijk naar Workbook.SaveCopyAs
https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.savecopyas

 

[bennyvw]

Sorry, misschien heb ik mijn vraag verkeerd geformuleerd.
In het bestand staan meerdere macro's in verschillende tabellen die min of meer op elkaar lijken?
Bekijk bijlage 365198
De bedoeling is dat het bestand ergens anders moet opgeslagen worden dat ik steeds niet alle macro's hoef te veranderen.
Het bestand zou moeten opgeslagen worden op 2 verschillende locaties die gelinkt zijn aan de cellen zoals in dit voorbeeld B2 en B3 en het originele zou moeten behouden worden.
Bekijk bijlage 365199
De bestanden zouden de naam moeten krijgen die gemaakt worden op het tabblad vanwaar de macro gestart wordt en krijgt de naam die gemaakt wordt zoals in voorbeeld maar in xlsm.
Bekijk bijlage 365200

Hopelijk is mijn vraag nu duidelijker
Mvg
Benny

 

[edmoor]

Ik snap je vraag prima en wat ik liet zien is wat je nodig hebt.
Wat je aan documenten of plaatjes plaatste is niet te zien.
Gebruik Ga geavanceerd en dan de paperclip om bijlagen te plaatsen.

 

[bennyvw]

Sorry, voor het ongemak, misschien speelt de ouderdom

Sorry, misschien heb ik mijn vraag verkeerd geformuleerd.
In het bestand staan meerdere macro's in verschillende tabellen die min of meer op elkaar lijken?

De bedoeling is dat het bestand ergens anders moet opgeslagen worden dat ik steeds niet alle macro's hoef te veranderen.
Het bestand zou moeten opgeslagen worden op 2 verschillende locaties die gelinkt zijn aan de cellen zoals in dit voorbeeld B2 en B3 en het originele zou moeten behouden worden.

De bestanden zouden de naam moeten krijgen die gemaakt worden op het tabblad vanwaar de macro gestart wordt en krijgt de naam die gemaakt wordt zoals in voorbeeld maar in xlsm.


Hopelijk is mijn vraag nu duidelijker
Mvg
Benny

 

[edmoor]

Plaats een voorbeeld document in plaats van plaatjes.

 

[Haije]

en laat in dat voorbeeld ook de VBA-code staan

 

[bennyvw]

Bestand

Hopelijk kunnen jullie hier iets mee.

 

[edmoor]

En hoe, waarmee, wanneer sla je het document op?

 

[bennyvw]

Met de knop "excel opslaan in tabblad offerte, er is nu een code aan verbonden , maar de bedoeling is dat ik niet steeds de code moet aanpassen maar dat ik de locaties kan aanpassen in het tabblad config

Sub Offerte_opslaan_Excel()

Dim SaveName As String
SaveName = ActiveSheet.Range("A15").Text
ActiveWorkbook.SaveAs filename:="D:\Benny\Gert_Koek\Offerte" & _
SaveName & ".xlsm"

ActiveWorkbook.SaveAs filename:="C:\Users\B\OneDrive\test\Gert\Offerte" & _
SaveName & ".xlsm"
End Sub

 

[edmoor]

Maak er eens dit van:

Sub Offerte_opslaan_Excel()
    SaveName = Sheets("Offerte").Range("A15").Text
    Map1 = Sheets("Config").Range("B2") & "\" & SaveName
    Map2 = Sheets("Config").Range("B3") & "\" & SaveName
    
    ThisWorkbook.Save
    ThisWorkbook.SaveCopyAs Map1
    ThisWorkbook.SaveCopyAs Map2
End Sub

 

[bennyvw]

Werkt perfect, weer iets bijgeleerd.
Bedankt edmoor.