Gem Som filnavn=2datoer
Jeg har lavet en fil til at lave vagtplaner med.Brugerne er tilbøjelige til at bruge den mappe der foreslås i 'Gem' dialogen, det har bevirket at jeg har brugt nogen tid på at lede efter 'forsvundne' filer. Da der tidligere har været en del problemer med at få vores vagtplaner gemt de rigtige steder og med navne der giver mening har jeg tænkt mig at lave et menupunkt der vælger 'Gem som' med samme mappe som originalen er åbnet fra og med et filnavn valgt ud fra 2 datoer i et af arkene.
Disse datoer findes i arket 'Ansatte' i cellerne X2 og Y2.
Jeg har fundet og redigeret følgende makro. Den virker sgu!
Jeg ville bare gerne have at skilletegnene i datoerne var punktummer i stedet for delestreger og at datoerne var formateret som ååå.mmm.dd, det er de i de celler de hentes fra.
Altså, i stedet for Vagtplan_19-11-2007-16-12-2007.xls skulle det gerne blive Vagtplan_2007.11.19-2007.12.16.xls.
Kan det lade sig gøre?
Her er koden der gemmer som:
----------------------------------------------------------------------------------------------
Sub GemSom()
Application.Dialogs(xlDialogSaveAs).Show "Vagtplan_" & sheets("Ansatte").Range("X2") & "-"& Sheets("Ansatte").Range("Y2") & ".xls"
End Sub
----------------------------------------------------------------------------------------------
