macro voor weekvooruit

[123biertje]

Beste

Mijn vraag is : Hoe kan ik een datum een week vooruit/achteruit zetten via een macro.

Henk Br.

Bekijk bijlage weekvooruit_achteruit.xlsx

 

[edmoor]

Zoiets achter de knopjes:

Sub Button2_Klikken()
    Range("C5") = Range("C5") + 7
End Sub

Sub Button3_Klikken()
    Range("C5") = Range("C5") - 7
End Sub

 

[123biertje]

Beste Edmoor

Bedankt, werkt goed, maar is het ook mogelijk dat de formule in de cel van de veranderde datum blijft staan.

Bvd Henk Br.

 

[edmoor]

Probeer dit eens:

Dim kliks As Integer

Sub Button2_Klikken()
    If kliks = 0 Then kliks = 1
    kliks = kliks + 1
    Range("C5").Formula = "=(DATE(C1,E1,1)-WEEKDAY(DATE(C1,E1,1),3)-7)+" & kliks * 7
End Sub

Sub Button3_Klikken()
    kliks = kliks - 1
    Range("C5").Formula = "=(DATE(C1,E1,1)-WEEKDAY(DATE(C1,E1,1),3)-7)-" & kliks * 7
End Sub

 

[123biertje]

Beste Edmoor

Uw eerste reactie was precies wat ik bedoelde, maar dan wou ik graag als ik een andere maand/jaar selecteer,
"c5" weer de geselecteerde maand/jaar aangeeft,
ik hoop dat ik het goed heb uitgelegd,

Mvg Henk Br.

 

[edmoor]

Dan moet je dus als het jaar of de maand wijzigt de variabele kliks weer op 0 zetten en de formule weer terug zetten.

Dim kliks As Integer

Sub Button2_Klikken()
    kliks = kliks + 1
    Range("C5").Formula = "=(DATE(C1,E1,1)-WEEKDAY(DATE(C1,E1,1),3)-7)+" & kliks * 7
End Sub

Sub Button3_Klikken()
    kliks = kliks - 1
    Range("C5").Formula = "=(DATE(C1,E1,1)-WEEKDAY(DATE(C1,E1,1),3)-7)-" & kliks * 7
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
        Case "$C$1", "$E$1"
            kliks = 0
            Application.EnableEvents = False
            Range("C5").Formula = "=DATE(C1,E1,1)-WEEKDAY(DATE(C1,E1,1),3)-7"
            Application.EnableEvents = True
    End Select
End Sub

 

[123biertje]

Beste Edmoor

Ik ga dit even bekijken, bedankt voor je reactie, sorry dat ik iets laat reageer