Datum en weeknummer 365 dagen

[beginnerexcel]

In bijgevoegde bijlage is een blad gemaakt dat voor het gehele jaar dient (365 / 366 dagen)
Bovenin staat week nummer en datum vermeld
Om dit nu 365 / 366 dagen te laten doorlopen en te printen achteraf wat is de beste manier.
Allemaal tabbladen maken en handmatig doornummeren van datum en weeknummer of is er een ander oplossing voor?

Alvast dank

 

[peter59]

Zeg ik iets geks als ik er geen touw aan kan vastknopen?
Printen achteraf, doorlopen, tabbladen, handmatig doornummeren?

 

[beginnerexcel]

De bijlage is dag 1 van het jaar.
er dienen nog 364 bijlages te worden gemaakt met opvolgende datum tm 31-12-2026

Deze wordt dan uitgeprint en in boekvorm gebundeld.

Hoe kan weeknummer en datum het beste worden verwerkt.
Elke keer datum en weeknummer aanpassen of is er een formule voorhanden die het kan.

 

[edmoor]

Wat bedoel je met bijlages?
Bedoel je werkbladen?

 

[beginnerexcel]

ja.
blad 1 is nu gemaakt, dienen er nu 364 werkbladen bijgemaakt te worden handmatig om de weeknummers en datum te laten doorgaan tot 31-12-2026 of kan dit middels een formule

 

[cow18]

je kan een macrootje laten lopen die je 1e blad 365 keer kopieert en daarbij dag en weeknummer aanpast. Al lijkt me het wel een beetje gek. Je gaat dit toch zo niet bijhouden ? Maak er 1 formulier van en dan ga je de gegevens gaan opslaan in een grotere tabel, zodat je daarmee kan gaan stoeien ...

 

[edmoor]

Met een macro is dat inderdaad simpel.
Maar 1 formulier en een tabel is een beter idee.

 

[AHulpje]

Macro:

Sub PrintBoek()
    datum = DateSerial(2026, 1, 1)
    For i = 1 To 365
        Range("B1") = "Week " & WorksheetFunction.IsoWeekNum(datum)
        Range("C1") = datum
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        datum = datum + 1
    Next
End Sub

 

[edmoor]

Ze heb je inderdaad een "boekvorm" waarin je alles handmatig kan invullen.
Uiteraard heb je dan die data niet in Excel.

 

[beginnerexcel]

dank voor marco uitleg.
Info wordt handmatig verwerkt in boek.

Bericht automatisch samengevoegd: Vandaag om 13:47

is er binnen de macro ook nog een tekst voor dubbelzijdig printen?

 

[RogerS]

Niet direct. Zijn 365 losse printopdrachten in de voorgestelde macro.

Oplossing zou kunnen zijn om een 2e tabblad te maken. En ze dan per 2 stuks dubbelzijdig te printen.

 

[AHulpje]

Zo dus (niet getest, kost me te veel papier), zie bijlage:

Sub PrintBoek()
    datum = DateSerial(2026, 1, 1)
    For i = 1 To 365 Step 2
        Sheets("Blad1").Range("C1") = datum
        Sheets(Array("Blad1", "Blad2")).PrintOut
        datum = datum + 2
    Next
End Sub

Wel even printer op dubbelzijdig afdrukken zetten.

 

[beginnerexcel]

thanks scheelt de helft aan papier

 

[emields]

of zo?

 

[popipipo]

Wil de 365 pagina's tegelijk printen of doe je elke week 7 bladen of misschien nog een andere frequentie?

365 bladen ergens neerleggen lijkt mij erg slordig en dat iemand een verkeerde pagina pakt is ook ruimschoots aanwezig.