JeanPaul28

zonder te testen op een voorbeeld van jou, verander deze code eens

 

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("F4:G1000")) Is Nothing Then
 Application.EnableEvents = False
  Target.Value = Target.Value + Target.Offset(0, 1).Value
   Target.Offset(0, 1).ClearContents
   Application.EnableEvents = True
End If
End Sub
 

Plaats eens een excel voorbeeld met uitleg wat je wil bereiken , een voorbeeld zegt soms meer dan 1000 woorden

met een function zou dat kunnen

Kan dit dienen

Voorbeeld December(jp).xlsm

Je voorbeeld is niet duidelijk ,ik snap niet wat je wil bereiken