Ga naar inhoud

Huidige week kopiëren


JTvD
 Delen

Aanbevolen berichten

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

 

 

 

 

 

 

Link naar reactie
Delen op andere sites



@ 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

 

aangepast door bakerman
Link naar reactie
Delen op andere sites

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

Link naar reactie
Delen op andere sites


 Delen

×
×
  • Nieuwe aanmaken...