Indsætte uge numre

Kopier arket til de følgende 19 ark, så du har 20 ens ark.

Hvis du har 1 i a1 i ark1 indsætter du =Ark1!A1+1 i A1 i ark2, =Ark1!A2+1 i A1 i ark3 osv i ark4,ark5........ark20

Jo det er selvfølgelig en mulig. Men så kan jeg lige så godt ændre tallet manuelt. Jeg troede at der kunne laves en mere automatiseret løsning...

Hvis du, som foreslået af vejmand, indsætter 20 ark,og du har første ugenummer i Ark1,celle D5 (for eksempel), så prøv følgende:

Gruppér Ark2:Ark20. I celle D5 indtaster du:
=PreviousSheet(D5)+1

PreviousSheet er følgende brugerdefinerede funktion der, såvidt jeg ved, stammer fra John Walkenbach:

Function PreviousSheet(TargetCell As Range)
Dim SheetIndex As Integer

'Make sure the formula calculates even if moving sheets around
    Application.Volatile

'Get the index of sheet where the caller formula resides
    SheetIndex = Application.Caller.Parent.Index

'Let user know if the caller is on the first sheet
    If SheetIndex = 1 Then
        PreviousSheet = "No Previous Sheet"
        Exit Function
    End If

'Return the target cell value in the previous workhseet
    PreviousSheet = Sheets(SheetIndex - 1).Range(TargetCell.Address).Value

End Function

Husk at opdele grupperede ark.

Jeg er ikke lige helt med på hvad du mener. Skal koden indtstes i regnearket eller hvordan?

Installér Excel Analysis Tool Pack, der har ugenr.

Eller:

Opret en celle med ugenr., formatet i vba er vist "ww" eller "www"

Indspil en mauel makro, hvor du insætter sidefod,
i sidefod retter du til:
sidefod=ugenummerCellen

mvh finb

Koden skal indsættes i et VBA modul. For at gå til VBA-editoren, tryk på Alt+F11. Her trykker du på Insert og på Module. Indsæt den kopierede kode i det tomme modul. Gå tilbage til regnearket (Alt+F11) og indsæt formel som tidligere anført.

Jeg prøver lige.

Test evt. i tomt ark :-)
Celle A1 = uge nr.
A1 = 0
Kør makro "VisPrintArk" Indtast "Antal uger" eks. 20
Så får du Vis udskrift frem med 1 i A1, luk denne og
du får Vis udskrift frem med 2 i A1, luk denne osv. til 20


Celle A1 = uge nr.
A1 = 0
Kør makro "PrintArk" Indtast "Antal uger" eks. 20
Og der sendes 20 ark til printer med 1 til 20 i A1


Tilret A1 til din celle med uge nr.

Udvidet kode.
Vælg ("Antal uger")
Vælg ("Start med uge nr:")
Stopper makro ved manglende input.
Send til standard printer.

Som dkhanknu beskriver, skal koden indsættes i et VBA modul. For at gå til VBA-editoren, tryk på Alt+F11. Her trykker du på Insert og på Module. Indsæt den kopierede kode i det tomme modul.


Kør makro "PrintArk"
Indtast "Antal uger:" eks. 20
Indtast "Start med uge nr:" eks. 5
Og der sendes 20 ark til printer med 5 til 25 i A1

PUHA!! Jeg troede bare at det var helt simpelt at gøre det. Jeg synes store-morten's udgave er den mest anvendelige. Vil du smide et svar?

Har du lagt koden ind og tilpasset A1 til din "Uge nr." celle?
Ellers send en e-mail med dit skema.

Jep - det spiller bare. Tak