Opgelost Weekkalender maken

[Senso]

Ik heb 1 sheet gemaakt van wk 14 2024 in C2 staat de begindatum 31/03/24
Nu wil ik een vervolg van de basis (niet ingevuld tandarts, pasen e.d.) op vervolgsheets.
dus WK14-24 > WK15-24 etc. etc. Kan dit automatisch?

Voorbeeld volgt. De datum in C2 op een nieuwe sheet kan ik wel handmatig ingeven als dat nodig is.

 

[popipipo]

Door kopiëren naar beneden?

 

[emields]

Je gaat toch niet voor elke week een blad maken?

 

[Senso]

Door kopiëren naar beneden?

Dat is exact wat ik niet wil.

 

[popipipo]

wat dan wel?

 

[emields]

da's staatsgeheim.

 

[popipipo]

die lekken toch altijd?

 

[emields]

ja, maar de lekken komen niet van senso

 

[Senso]

Ik leg het aan de Eerste Kamer voor.

Nu wil ik een vervolg van de basis (niet ingevuld tandarts, pasen e.d.) op vervolgsheets.

Het is al gelukt met een vba-code.

Sub CopySheetMultipleTimes()
    Dim i As Integer
    Dim p As Integer
    On Error GoTo out
    i = InputBox("How many copies do you what?", "Making Copies")
    p = 0
    Do
        ActiveSheet.Copy After:=Sheets(Sheets.Count)
        p = p + 1
    Loop Until p = i
Exit Sub
out:
    MsgBox "copy was cancelled"
    Application.ScreenUpdating = True
End Sub

 

[popipipo]

En dat zelf gelukt binnen 3 kwartier!!!!
Dan vraag ik me toch of waarom je de vraag hebt geplaatst.

 

[Senso]

Nu wil ik een vervolg van de basis (niet ingevuld tandarts, pasen e.d.) op vervolgsheets.
dus WK14-24 > WK15-24 etc. etc. Kan dit automatisch?

En dat zelf gelukt binnen 3 kwartier!!!!

Hoe kom je daar bij? Ben al wel vier uur bezig. Kijk naar wat simpel en het beste is. Zoiets moet zich ontwikkelen en dan plaats ik een vraag om verder te kunnen. Het is een proces. Hier komt men wellicht met andere of nieuwe ideeën. Natuurlijk zoek ik verder op Google. Daar zag ik de VBA-code.

 

[emields]

Erg automatisch ziet dat er nog niet uit moet ik zeggen.

Probeer deze eens.

 

[Senso]

Zo kan ik mij wel redden. Bedankt voor de hulp.