Ed schreef en vroeg naar een simpele macro:
Heeft u een macro die rijen aan een spreadsheet kan toevoegen (onderaan of bij celaanwijzer), dan kopieert van de vorige rij en de gegevens in de nieuwe rij invoegt? En ten slotte gegevens in bepaalde cellen verwijderen.
Hier is een macro die een rij boven de celpointer invoegt en de inhoud van de vorige rij kopieert. Laten we aannemen dat uw gegevens zich uitstrekken van A tot T, en dat u de inhoud van de cellen H, K en M van de nieuwe rij wilt verwijderen
Ik gebruik het trefwoord ActiveCell om de macro te laten werken in relatie tot de celaanwijzer.
Sub AddRowForEd() ActiveCell.EntireRow.Insert Cells(ActiveCell.Row - 1, 1).Resize(1, 20).Copy _ Destination:=Cells(ActiveCell.Row, 1) Cells(ActiveCell.Row, 8).Clear ' Column H Cells(ActiveCell.Row, 11).Clear ' Column K Cells(ActiveCell.Row, 13).Clear ' Column M End Sub
