Hunuloeloe
Gebruiker
- Lid geworden
- 12 sep 2016
- Berichten
- 311
Beste helpers,
De volgende code zorgt ervoor dat een dagproductie opgeslagen wordt in een andere map:
Nu kreeg ik van de logistiek manager als vraag of het mogelijk is om de dagplanning niet op te slaan als apart bestand maar als tabblad van een maandproductie.
Het resultaat moet dan zijn dat als ik exporteer bijv 1-12-2016 dat de code er automatisch voor zorgt dat de dagplanning van 1-12 onderdeel wordt van een nieuw bestand (dagproductie december)
Het doel hiervan is dat we kunnen zien wat de productie was van die maand (dus er wordt ook nog een totaaloverzicht gemaakt die dit berekend)
Ik hoop dat jullie me verder kunnen helpen en bij gebrek aan info hoor ik het wel
De volgende code zorgt ervoor dat een dagproductie opgeslagen wordt in een andere map:
Code:
Sub Kopie_Dagplanning_Expeditie()
Application.DisplayAlerts = False
c00 = "D:\Anthony\Dagproductie\"
Sheets("Dagplanning Expeditie").Copy
ActiveWorkbook.SaveAs c00 & "Dagplanning " & Format([B1], "yyyy-mm-dd") & ".xlsx", 51
ActiveWindow.Close
Application.DisplayAlerts = True
Range("B1").ClearContents
With Sheets("Dagplanning Expeditie")
.Range("C8:L59").ClearContents
End With
End Sub
Het resultaat moet dan zijn dat als ik exporteer bijv 1-12-2016 dat de code er automatisch voor zorgt dat de dagplanning van 1-12 onderdeel wordt van een nieuw bestand (dagproductie december)
Het doel hiervan is dat we kunnen zien wat de productie was van die maand (dus er wordt ook nog een totaaloverzicht gemaakt die dit berekend)
Ik hoop dat jullie me verder kunnen helpen en bij gebrek aan info hoor ik het wel