Berpaalde tabbladen opslaan als nieuw bestand

[monty1a]

Hallo allemaal,

 

Ik word steeds handiger met VBA, maar ik heb toch wat hulp nodig.

Mijn vraag:

 

mijn bestand (7216.201 Standaardlijst – mengformulier.xlsm) staat op: C://7216.201/opdr/1. kousformulier
Het eerste (werk)nummer (7216.00) veranderd per werk

 

Ik heb 2 tabbladen (“afrekening” en “meer-minderwerk”) die ik dmv VBA wil kopiëren en opslaan naar een andere map bijv.
C://7216.201/opdr/2. financieel
met de naam “werkbegroting”

 

Hoe kan ik dit het beste doen?

 

Alvast bedankt

[Carambel]

Hoi Monty

Misschien volledige map opslaan als "Werkbegroting" en overbodige tabbladen verwijderen

Grtz

Marc

[bakerman]

Beide tabbladen in 1 bestand, in 2 aparte bestanden ?

Opslaan als Pdf (geen wijzigingen meer mogelijk) of als XL-bestand (kunnen nog aanpassingen in aangebracht worden) ?

Volledig directorypad wordt handmatig aangemaakt, of moet via code gecontroleerd en aangemaakt worden ?

 

[monty1a]

De 2 bladen moeten in 1 nieuw bestand komen (de koppeling/formules moeten behouden blijven).

Dus moet gewoon een xl bestand blijven... dus alleen een kopie van die 2 bladen opslaan als nieuw bestand op een andere locatie.

En alles graag geautomatiseerd via VBA/macro.

 

[alpha]

Twee opmerkingen vooraf:

1. Als het werknummer steeds wijzigt (zoals je schrijft), dan kun je geen macro gebruiken die algemeen bruikbaar is (tenzij er met de wijziging steeds rekening wordt gehouden).

2. Pas op met punten in de naam van bestanden, dat kan tot fouten aanleiding geven (dat is afhankelijk van wat er na een punt komt, Windows en Excel verwachten na de punt een extensie).

Ervan uitgaande dat je de directory waarin het nieuwe bestand moet komen, juist heb weergegeven (ga dat na !), voer - als het bestand "7216.201 Standaardlijst – mengformulier.xlsm" geopend is - deze macro uit:

Sub macro1()
Dim myarraysh, Newwb As Workbook
myarraysh = Array("Afrekening", "Meer-minderwerk")
Sheets(myarraysh).Copy
Set Newwb = ActiveWorkbook
With Newwb
.SaveAs "C://Intel/2 Financieel/Werkbegroting"
.Close
End With
End Sub

 

31 december 2016 aangepast door alpha