Opslaan

[yamaha1]

Hallo allemaal

Kan mij iemand helpen met mijn probleem.
Ben een uitgaven lijst aan het maken.
Nu heb ik op blad 1 archiefmap staan als men daar op drukt slaat hij alles op, op blad 2
Als men nu op blad 1 weer iets nieuws invoert, en op het archiefmap drukt schrijft hij alles over op blad 2
Is het mogelijk i.p.v. overschrijven dat hij het bij elkaar optelt.

Heb er een voorbeeld bij gedaan

 

[HSV]

Sub hsv()
Dim sh As Worksheet, cl As Range
Set sh = Sheets("Blad1")
With Sheets("Blad2")
   .Range("A1:D1") = sh.Range("A1:D1").Value
   .Range("A2:A8") = sh.Range("A2:A8").Value
For Each cl In sh.Range("B2:D8")
  If cl > 0 Then
     .Range(cl.Address) = .Range(cl.Address) + cl
   End If
  Next cl
 End With
End Sub

 

[yamaha1]

Bedankt voor de snelle reactie het werkt :thumb: