Sheet opslaan als .....

[Bertus78]

Ik heb even rondgekeken op de forum, maar ik kom er niet uit.

Wat ik wil is het volgende.

Ik wil een bestand opslaan als naam + weeknummer op de locatie die ik heb aangegeven in een cel.
Ik wil dan dat sheet test2 met de gehele opmaak enz. wordt opgeslagen als een nieuw excel bestand.

Hoe die ik dit in VBA ??

Bekijk bijlage vraag weeknummer.xlsx

 

[VenA]

En dat heb je niet kunnen vinden? Een macro-opname gaf ook geen duidelijkheid?

Sub VenA()
  ar = Cells(4, 4).Resize(3)
  Sheets("test2").Copy
  ActiveWorkbook.SaveAs ar(3, 1) & ar(1, 1) & ar(2, 1), 51
End Sub

 

[Bertus78]

Nou, ik kom er niet uit,
Want wat je nu stuurt heb ik wel gevonden, echter waar staat dan hoe die het moet opslaan.

Ik bedoel daar mee waar staat bijvoorbeeld sheet blad1 cel D6 om op te slaan?

 

[VenA]

In ar(3,1) Kan je je eenvoudig vinden als je iets van debuggen weet. In de VB-Editor locals aanzetten en dan kan je dmv <F8> door de code lopen en zien welke variabele welke waarde krijgt.

 

[Bertus78]

Oke, bedankt. ik ga mij daar even in verdiepen.

:thumb: