Hallo,
Met onderstaande macro die ik van Rocanio heb gekregen heb een klusje dat heel tijdrovend was sneller kunnen uitvoeren, alleen kunnen er in mijn bestandje lijnen worden toegevoegd of tussengevoegd. Hoe kunnen we ervoor zorgen dat de macro met het hele bereik rekening houd zonder dat in de macor 7 verander in bijvoorbeeld 20, maar dat hij sowieso tot 20 gaat. Onderaan zijn er totalen, dus totdaar mag hij gaan.
Groeten,
Mark
Met onderstaande macro die ik van Rocanio heb gekregen heb een klusje dat heel tijdrovend was sneller kunnen uitvoeren, alleen kunnen er in mijn bestandje lijnen worden toegevoegd of tussengevoegd. Hoe kunnen we ervoor zorgen dat de macro met het hele bereik rekening houd zonder dat in de macor 7 verander in bijvoorbeeld 20, maar dat hij sowieso tot 20 gaat. Onderaan zijn er totalen, dus totdaar mag hij gaan.
Code:
Private Sub Cmd_Add_Click()
Dim iRij, iKol As Integer
For iRij = 5 To 7
For iKol = 1 To 2
Cells(iRij, iKol) = Cells(iRij, iKol) + Cells(iRij, iKol + 2)
Cells(iRij, iKol + 2) = 0
Next
Next
Range("C1").Value = "Boekjaar " & Year(Now)
End Sub
Groeten,
Mark