Kedeligt manuelt arbejde

Ja det kan nok lade sig gøre via VBA (makroer). Har i andet system koden til at generere alle dage i et hvilket som helst år.

- Alle dag -
- Eksl. weekend
- - helligdage
eller??

og så velkommen til Eksperten..

og i filnavnet skal du altid have datoen vendt på usa-måde, så det er år/md/dag - så kommer den i rækkefølge.

Med dag/md/år vil 1. feb komme lige efter 1. jan, og 2. jan vil først komme efter 1. dec.

Nej jeg har slet ingen systemer til at lave det. Sidste år sad min chef og gjorde det nemlig - og nu har jeg fået tjansen i år, så jeg tænkte der måtte være en lettere måde. (Ja selvfølgelig til det med datoerne, min fejl) :)

er det det samme ark, der skal kopieres ud i datoer? Og hvad var det med weekend?

Ja det er samme ark som skal kopieres ud i alle årets dage (365 stk). Det ark som er "masteren" skal altså kopieres i 365 stk som hedder som ovenstående. Det eneste som skal ændre sig når de kopieres er navnet på filen og datoen som står inde i filen.

Indsæt følgende kode i et VBA modul

Function opgDato()
    opgDato = Mid(ActiveWorkbook.Name, 16, 10)
End Function
Sub Gem2012()
    Dim dato As Date
    Dim placering As String
    Dim i, d, m, y As Integer
    dato = "01-01-2012"
    placering = "C:\Documents and Settings\Administrator\Skrivebord\Kasseopgørelser\"
    For i = 1 To 365
        dato = DateAdd("d", 1, dato)
        d = Left(dato, 2)
        m = Mid(dato, 4, 2)
        y = Right(dato, 4)
        ActiveWorkbook.SaveAs placering & "Kasseopgørelse " & y & "-" & m & "-" & d & ".xls"
    Next
End Sub

Vær opmærksom på følgende!

I den celle i dit ark hvor den aktuelle dato skal stå skal du indtaste formlen =opgDato()
Funktionen er blevet oprettet med ovenstående kode, og bemærk at det ikke vil virke hvis du omdøber filnavnet!

Linien der starter med placering = "C:\...\" skal du ændre til den fulde sti til den mappe hvori kasseopgørelserne skal placeres. Det er VIGTIGT at du afslutter med \

"Master" arket gemmer du med følgende filnavn "Kasseopgørelse 2012-01-01.xls" i den mappe du gerne vil have kasseopgørelserne i.

Koden er lavet til et ark i Excel 97-2003 format.

Mange tak. Hvordan gør jeg så når jeg skal lave kasseopgørelse for næste år igen (2013?), når filnavnet skulle være "Kasseopgørelse 2012-01-01?"

Næste år ændrer du følgende linie i koden
dato = "01-01-2012"
til
dato = "01-01-2013"
og gemmer filen som "Kasseopgørelse 2013-01-01", før du kører makroen!

Kan dette også bruges til excel 2007 eller skal jeg finde de gamle cd'er frem? :)

Koden kan sagtens bruges i Excel 2007 (det er den version jeg har testet ovenstående i). Så skal du blot gemme masteren i 2007 format (.xlsx) og ændre der i koden hvor der står ".xls" til ".xlsx"

Har lige tilladt mig at skrive den en smule om, så den rent faktisk skriver datoen i regnearket - og arket gemmes uden makroer (hvis det gemmes som .xlsx med makroer kommer der en sikkerhedsadvarsel hver gang dokumentet åbnes).


Sub Gem2012()
    Dim dato As Date
    Dim placering, filename As String
    Dim i, d, m, y As Integer
    dato = "31-12-2011"
    placering = "c:\mappe"
    Workbooks.Open ("c:\master.xlsx")
    For i = 1 To 365
        dato = DateAdd("d", 1, dato)
        Worksheets("Ark1").Range("A1").Value = dato
        d = Left(dato, 2)
        m = Mid(dato, 4, 2)
        y = Right(dato, 4)
        filename = "Kasseopgørelse " & y & "-" & m & "-" & d & ".xlsx"
        ActiveWorkbook.SaveCopyAs placering & filename
    Next
End Sub


Kopier koden ind i et nyt VBA modul og erstat c:\mappe\ med stien hvor opgørelserne skal gemmes og erstat c:\master.xlsx med stien på "originalen/masteren".

Erstat desuden Ark1 med navnet arket (inde i regnearket) samt A1 med cellen som datoen skal skrives i.

Tal pænt og husk formålet er at hjælpe spørgeren (også selvom de ikke altid er så gode til at lytte).

Mange tak for hjælpen forresten.