macro om meerdere cellen te selecteren

[Renee123]

Ik moet in kolom H de 73e cel selecteren en daarna telkens de 168e cel verder. Oftewel: H73, H241, H409 etc etc en daarbij is de laatste H20065. In al die 120 cellen wil ik dezelfde formule toegepast hebben, namelijk de som van de getallen in de 4 kolommen links van de betreffende cel. Dus voor cel H409 wordt het dan: "=som(D409:G409).

Ik denk dat jullie wel snappen dat ik niet zo'n zin heb om alles te gaan specificeren, dus dat deze manier niet ideaal is:

Range("H73").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-4]:RC[-1])"
Range("H241").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-4]:RC[-1])"
Range("H409").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-4]:RC[-1])"
etc

Dus ik zat meer aan zoiets te denken:

Range("H73:H20065").Select
For Each cell In Selection
            
    cell.FormulaR1C1 = "=SUM(RC[-4]:RC[-1])"
    cell = cell + 168
Next cell

Alleen pakt ie dan elke volgende cel vanaf H73. Dus wat doe ik verkeerd? :|

Of is er een andere handigere manier om die formule toe te passen op elke 168e cel vanaf H73?

 

[Wigi]

Sub f()
    For i = 73 To 20065 Step 168
        Cells(i, "H").Formula = "=SUM(RC[-4]:RC[-1])"
    Next
End Sub

 

[Renee123]

Super! Dat is precies wat ik zocht.