Werkblad kopieren naar een ander bestand

[HammerJohn]

Ik heb een uren lijst van partimers, deze word gemaakt door een vrijwilliger.
Ik wil aan het eind van de week deze lijst met een macro in een andere werkboek plaatsen...
ik heb beide bestanden toe gevoegd.... iederblad heeft een weeknummer
is dit mogelijk

 

[VenA]

Als je zaken wil automatiseren in Excel kan je beginnen met het opnemen van een macro. Met een paar aanpassingen kan je de code geheel naar jouw hand zetten. Twee bestandje van ± 10 kb kan je net zo goed rechtstreeks plaatsen. (Lang niet iedereen gebruikt winrar of heeft zin om eerst de bestanden uit te pakken)

Probeer het zo eens. Wel nog even het pad aanpassen.

Sub VenA()
Dim i As Integer
  i = Sheets.Count
  Workbooks.Open "C:\Temp\Urenpartime.xlsm"
  Sheets("Weeklijst").Copy , Workbooks("Weeklijsten.xlsm").Sheets(i)
  ActiveSheet.Name = [C3]
  Windows("Urenpartime.xlsm").Close
End Sub