wie kan mij helpen
ik wil graag meerdere legenregels invoegen in een blad1 zodat ik meerdere regels van een ander blad kan kopieren naar blad 1
blad 1 is al reeds gevult vandaar eerst lege regels invoegen
1 regel lukt met de navolgende code:
Sheets("Blad1").Select
Rows("12:12").Insert Shift:=xlDown ' Lege regel invoegen
Sheets("EntraSec").Select
Range("a113:d113").Copy ' Regel kopieren
Sheets("Blad1").Select
Range("a12:d12").PasteSpecial ' Regel plakken
Range("D12").Select
Maar hoe kan ik dit doen met 8 regels?
ik wil graag meerdere legenregels invoegen in een blad1 zodat ik meerdere regels van een ander blad kan kopieren naar blad 1
blad 1 is al reeds gevult vandaar eerst lege regels invoegen
1 regel lukt met de navolgende code:
Sheets("Blad1").Select
Rows("12:12").Insert Shift:=xlDown ' Lege regel invoegen
Sheets("EntraSec").Select
Range("a113:d113").Copy ' Regel kopieren
Sheets("Blad1").Select
Range("a12:d12").PasteSpecial ' Regel plakken
Range("D12").Select
Maar hoe kan ik dit doen met 8 regels?