Meedere getallen in 1 formule aanpassen

[Emelkert]

Hallo,

Voor een urenoverzicht ben ik bezig met een macro om zo snel het jaartal en het uur overzicht aan te passen.
Het jaartal heb ik al aangepast.

Range("F27") = Range("F27") - 1

Nu moet ik voor het uren overzicht de formule aanpassen, maar ik kom er niet uit.



De formule in zijn geheel:

    Range("I24").Select
    ActiveCell.FormulaR1C1 = _
"='2016'!R[24]C+'2016'!R[24]C[10]+'2016'!R[24]C[20]+'2016'!R[24]C[30]+'2016'!R[24]C[40]+'2016'!R[24]C[50]+'2016'!R[77]C+'2016'!R[77]C[10]+'2016'!R[77]C[20]+'2016'!R[77]C[30]+'2016'!R[77]C[40]+'2016'!R[77]C[50]"

Nu t lastige: Ik ben op zoek naar een macro die in deze formule alle jaartallen met 1 kan verhogen.

='[B]2016[/B]'!R[24]C

Word

='[B]2017[/B]'!R[24]C

Ik maak ook een macro die in de formule een jaartal omlaag doet, maar dat is gewoon het omgekeerde van deze macro.
Alvast bedankt :thumb:

 

[Cobbe]

Dat kan toch makkelijk met Zoeken - Vervangen 2016 --> 2017

 

[Emelkert]

Dat kan toch makkelijk met Zoeken - Vervangen 2016 --> 2017

Het is een begin, enorm bedankt. Nu wil ik alleen dat dit continu door kan gaan.
Ik ga de macro onder een knop verwerken. Elke keer dat ik op die knop druk, moet alles 1 getal opgehoogd worden. Dit keer op keer.
Kan je er een +1 en een -1 functie in verwerken?

 

[Emelkert]

kan ik t jaartal van de formule niet laten vergelijken met de waarde van een andere cel?

='2016'!R[24]C

Dat in deze code de formule eerst gaat kijken wat de waarde is in cel F27 (in mijn geval) en vervolgens die waarde invult op de plaats waar nu 2016 staat?

 

[Cobbe]

Je kan deze een testen met het jaartal in A1 van blad 2016:

With Sheets(Range("A1").Value)
 Range("I24") = WorksheetFunction.Sum(.Range("I48"), .Range("S48"), .Range("AC48"), .Range("AM48"), .Range("AW48"), .Range("BG48"), .Range("I101"), .Range("S101"), .Range("AC101"), .Range("AM101"), .Range("AW101"), .Range("BG101"))
End With

 

[Emelkert]

Toevallig net op een andere manier opgelost Cobbe.
Heb een 2de jaartal erbij gemaakt. De marco verhoogt of verlaagt eerst het 1ste jaartal en gaat dan naar alle jaartallen zoeken die gelijk zijn aan het 2de jaartal. Dat vervangt ie allemaal door het eerste jaartal.

Range("F27") = Range("F27") + 1
    Cells.Replace What:=Range("H29"), Replacement:=Range("F27"), LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False