romilied

Hallo JeanPaul, allereerst bedankt voor je reactie, ik krijg hier een fout melding op, maar ik heb een ander stukje code gevonden die wel werkt. heb hier alleen de letters veranderd en hij werkt. ik weet niet precies hoe die opgebouwd is maar hij doet wat ik wilt Private Sub Worksheet_Change(ByVal Target As Range) Dim tr As Integer 'hier telt hij de waarde van B en C op en maakt B terug leeg If Not Intersect(Range("G2:G" & Range("A" & Rows.Count).End(xlUp).Row), Target) Is Nothing Then tr = Target.Row Range("F" & tr).Value = Range("F" & tr).Value + Range("G" & tr).Value Target.ClearContents End If ' datum laatste aanpassing in D zetten Application.EnableEvents = False With Target If .Column = 3 And Not Target.Address(0, 0) = "G1" And Not IsEmpty(Target) Then .Offset(, 1) = Date End If End With Application.EnableEvents = True End Sub nogmaals bedankt voor je moeite Romilied

Hallo ik heb een vraag waar ik maar niet uit komt. ik heb een code gevonden waar je een getal plus of min invoert en en dat het in een andere cel het getal erbij komt of er af gaat. dit werkt prima, alleen krijg ik het niet voor elkaar om dit voor de hele kolom te doen. De eerste macro moet in de werkblad-code de tweede in ThisWorkbook Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("Blad1").Range("G4").ClearContents End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("G4")) Is Nothing Then Range("F4") = Range("F4") + Range("G4") Range("G4").ClearContents End If End Sub ik zou dit bv willen uitbreiden van F4 t/m F1000 en G4 t/m G1000. ik had eerst de code heel veel keer gkopieerd maar dan krijg je een fout melding. alvast hartelijk bedankt voor uw reacties Romilied