Huidige week kopiëren

[JTvD]

Is er een mogelijkheid om de huidige week van een jaarplanner over te kopiëren naar een andere tab.

BV we leven 12-10-2020

weeknummer is 42

Hierachter staat een jaarplanner (zo heet de tab ook)  

Op een ander tab  met de naam "weekplanner" moet de huidige week heen gekopieerd worden via een button.

 

Vanzelfsprekend moet dit natuurlijk volgende week voor week 43 enz enz

 

 

 

 

 

 

[JTvD]

Hen je aan de bijgevoegde bestand genoeg om een opzetje te maken?

Jaarplanner.xlsx

[emielDS]

bedoel je zoiets? alhoewel ik het nut ervan niet inzie.

week verplaatsen.xlsm

[bakerman]

@ emielDS

 

Is het niet veiliger om met een variabel aantal rijnummers te werken. Je weet helaas niet hoe de volledige jaarplanner eruit ziet.

 

Sub week()
    nr = Application.WeekNum(Now())
    nr2 = Application.WeekNum(Now()) + 1
    rij = Application.Match(nr, [a:a], 0)
    rij2 = Application.Match(nr2, [a:a], 0)
    With Sheets("weekplanning")
        Range("a" & rij).Resize(rij2 - rij, 8).Copy .[a1]
    End With
End Sub

 

13 oktober 2020 aangepast door bakerman

[JTvD]

Hallo

 

Het nut ervan is dat we uit deze jaarplanner de week er op door moeten sturen naar derden ook printen we dit uit zodat een ieder kan zien waar hij/zij  weet waar hij staat.

Echter kan deze planning per da veranderen vanwege de werkzaamheden gaan hebben we weer een melding naar derden en een nieuwe print nodig.

Dit halen we dan uit de weekoverzicht om het overzichtelijk te houden.

 

Ik ga deze 2 opties uitproberen