VBA code in een range zetten

[regf]

Hoi heb als bijlage het voorbeeld.
ik wil graag als er in de rij bruto wat verandert bij de rij datum een datumstempel.
dat lukt wel voor 1 cel maar niet voor meerdere cellen, hoe pak ik dat aan???
BVD Reg

 

[Niels28]

Private Sub worksheet_change(ByVal Target As Range)

If Not Intersect(Target, Range("B3:J30")) Is Nothing Then
 If (Target.Row + 2) Mod 5 = 0 Then Target.Offset(-2).Value = Now
End If

End Sub

Niels

 

[Cobbe]

Of nog een andere oplossing.

 

[regf]

top bedankt, ik heb voor optie 1 gekozen.