macro om te kopieeren naar de volgende regel

[Nicu]

Ik zou heel graag een aantal cellen die ik kopieer automatisch in een volgende rij willen plaatsen op een andere sheet. Ik heb al wel een macro gemaakt waardoor ik de cellen kan kopieren en op de juiste plek plak, maar ik wil dan bereiken dat op een vast tijdstip d.m.v. Application.OnTime elke dag de volgende kopie op een nieuwe regel geplaatst wordt. Dus onder hetgeen van de vorige dag. Hoe moet ik deze macro verder aanvullen?

Groet,

Josh

 

[edmoor]

Vervang je macro door deze:

Sub MacroKopie()
    Dim LastRow As Long
    
    With Sheets("Blad2")
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
        .Cells(LastRow, 1) = Sheets("Blad1").Range("E7")
        .Cells(LastRow, 2) = Sheets("Blad1").Range("G13")
        .Cells(LastRow, 3) = Sheets("Blad1").Range("I13")
    End With
End Sub

 

[Nicu]

Top! Dit was precies wat ik bedoelde, dank je.
Ik was heel blij met de oplossing van de datum, dat ik niet de formule zou kopieren maar echt de datum, maar ik snap nu niet hoe jij dit opgelost hebt. Het werkt in ieder geval zeer goed
Nu nog instellen met de tijd wanneer deze macro uitgevoerd moet worden, maar dat gaat volgens mij wel lukken.