emielDS

Waarom is alle informatie verspreid over 3 bladen, het is toch beter 1 blad te gebruiken en met een draaitabel kan je er alle gewenste informatie uithalen.

vergeet niet het bestand op te slaan als xlsm (bestand met ingeschakelde macro's
 
Ik heb er nog een andere ander bestand met een andere mogelijkheid bijgeplaatst.
Dagtaak-2 (1).xlsm dagtaak (1).xlsm

bekijk dit eens. 
 
Hou er wel rekening mee dat excel een Rekenblad is en geen Tekenblad. al die figuurtjes maken uw bestand ontzettend groot en traag.
uurtjes2 (1).xlsm

zoals het er nu staat is 14/6 dag 1
als je een andere waarde in Q2 stelt zoekt hij op basis van de datum in B10 de hoeveelste dag we nu zijn en plaatst hij daar de waarde achter.
vandaag zijn we 18/6 zodus vult hij de waarde in na dag 5
Als je de datum in B10 veranderd naar 18/6 zal hij bij het opnieuw invullen van Q2 of Q14 de waarde invullen achter dag1.
De code is zodanig opgesteld dat je nog meer gelijkaardige celblokken kan bijmaken.

In excel is er zeer veel mogelijk, maar niets zonder voorbeeldbestand.

kopieer de volledige code
ga in uw bestand naar het blad waar je de code wil.
klik onderaan op het tabblad en kies programmacode weergeven
plak in het venster de code en sluit af op het kruisje
nu zou het moeten werken
let wel op dat de waarden in dezelfde cel staan.
ik heb in de code die hierbij is de uitleg bijgesteld wat ze juist doet.
test datum (4) (1).xlsm

het werkt niet metformules (uitgezonderd voor het bepalen van de week)
 
de code staat achter blad 1 ( blad1 rechterklik programmacode weergeven)
als er nog vragen zijn stel ze maar.

Kan deze oplossing u bekoren
Kopie van Punten.xlsx

of deze met een fout afhandeling.
Factuur betaling (3).xlsm

Of in 1 formule
voorbeeld formule.xlsx

Of zo
Vraag over tijd en datum automatisch (1).xlsm

een voorbeeldbestandje zal teveel gevraagd zijn zeker?
optellen.xlsx

ik denk dat ts eerder dit verwacht, met de korting reeds uitgerekend.
huurprijs.xlsm
 
P.S. We hebben inderdaad meer aan een voorbeeldbestand dan aan een tekening.

Met deze code kun je alle tabbladen opvragen en zichtbaar maken, ook die diep verborgen zitten.
maak een nieuw blad aan, "blad1" en stel er een nieuwe knop in "knop1" of verander de tekst Sub Knop1_Klikken() naar de naam van het tabblad.
 
Sub Knop1_Klikken() x = 1 For Each sh In Worksheets Sheets("blad1").Cells(x, 4) = sh.Name sh.Visible = True x = x + 1 Next sh End Sub