macro om vorderingen op te slaan

[bijkerk233]

heey,

ik zoek een macro die als ik op een knop druk een de uitkomst van de formule van cel O19 kopieert naar cel A42, als ik dan nog een keer op de knop drukt moet dezelfde uitkomst naar Cel A43 gekopieerd worden enz enz.

dit om de vordering van mijn opdracht bij te kunnen houden

kan iemand mij hiermee helpen?

gr kevin

 

[Niels28]

Ga er vanuit dat er na A42 niks meer staat.

Sub vordering()
Dim irow As Integer
irow = Cells(Rows.Count, 1).End(xlUp).Row + 1
If Range("a42").Value = "" Then irow = 42
Cells(irow, 1).Value = Range("o19").Value
End Sub

Het kan ook automatisch zonder knop bij het aanpasssen van bepaalde cellen.
Zet dan de volgende code dan niet in een module maar achter het werkblad.
Afhankelijk van welke cellen er in je formule gebruikt worden moet je de bereiken aanpassen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim irow As Integer
If Not Intersect(Target, Range("O17")) Is Nothing Or Not Intersect(Target, Range("O18")) Is Nothing Then
'if Not Intersect(Target, Range("O10:O18")) Is Nothing Then 'bereik over meerdere cellen
irow = Cells(Rows.Count, 1).End(xlUp).Row + 1
If Range("a42").Value = "" Then irow = 42
Cells(irow, 1).Value = Range("o19").Value
End If
End Sub

Niels

 

[bijkerk233]

en bedankt ben enorm geholpen