Hallo Heid,

Welkom op Oplossing.be 

Kan je deze code in een VBA-module plakken en uitvoeren.

Sub RijenBijmaken()

For A = 2 To (1800 * 4) Step 4

    Range("A" & A).Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
Next
   
End Sub

Ik ga er van uit dat je eerste rij op A1 begint. Maakt niet zo veel uit, mogelijk moet je de eerste 4 rijen handmatig aanpassen.

groeten,

SoftAid              

Hallo Heid, geen probleem..

Excel kan opdrachten uitvoeren via Macro's, dit noemen wij VBA.
Deze macros bieden vele mogelijkheden, daarom..
indien je in de werkbalk van Excel geen Tab Ontwikkelaars ziet staan, klik dan op het Menu-item (helemaal LinksBoven in je beeld) en kies daar voor "Opties voor Excel". In het tabblad Populair kan je een vinkje zetten voor "Tabblad ontwikkelaars op het lint weergeven".
Klik op OK.
Op het lint kies je nu "Ontwikkelaars", en dan klik je op  "Visual Basics".
Links zie je enkele VBA-Projecten met hun naam. Kies het project dat overeenkomt met jou Werkmap.
Rechtsklik op het project en kies voor Invoegen, Module.
Open deze (lege) module en kopieer en plak de code in mijn vorig bericht in de Module.

Klik daarna op Uitvoeren, en op Macro Starten.

Terug op je werkblad zouden nu alle extra rijen moeten ingevoerd zijn.

---

---

Als je "Hulp op afstand" wilt dan nemen we je PC even over om deze acties door te voeren.

• Download het tooltje TeamViewerQS (KLIK) en start het.
• Je ziet een ID xxx xxx xxx   en een WachtWoord xxxx
• Stuur het ID en het WW per gewone mail naar SoftAid@oplossing.be
• Laat het venstertje van TeamViewer open staan.

Voorbeeld van het TeamViewerQS venster met het Uw ID: xxx xxx xxx   en het Wachtwoord: xxxx


SoftAid              

Hallo Heid, zeker is dit mogelijk.

wil je een macro om toe te passen na de vorige macro, of wil je rijen bijmaken én terzelfder tijd data kopiëren naar de nieuwe rijen op je origineel blad?

SoftAid              

U vraagt, wij draaien 

Vervang de volledige code in VBA door deze:

Sub rijenEnData()
Dim A As Integer
For A = 2 To (1800 * 4) Step 4
    Rows(A).Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Selection.EntireRow.Insert
    Rows(A - 1).Select
    Selection.Copy
    Rows(A).Select
    Selection.PasteSpecial Paste:=xlPasteAll
    Rows(A + 1).Select
    Selection.PasteSpecial Paste:=xlPasteAll
    Rows(A + 2).Select
    Selection.PasteSpecial Paste:=xlPasteAll
    Next
End Sub
SoftAid              

Hallo Heid,

dat viel nogal mee, hoor... 
Magie is het niet, en de codee kon nog vereenvoudigd worden.
Maar voor eenmalig gebruik laat ik het maar liever zo, dan kan iedereen het lezen en begrijpen (en er later iets anders mee doen )

Groeten,

SoftAid              

En zónder macro???
Zet helemaal rechts van je tabel in de eerste lege kolom op de eerste gevulde regel een 1 en op de tweede regel een 2. Selecteer beide cellen en dubbelklik op de vulgreep. Alle regels hebben nu een regelnummer gekregen. Kopieer het hele blok met gegevens (inclusief die regelnummers). Ga op cel A1 staan en druk op Ctrl + pijltoets-naar-beneden. Ga op de eerste lege regel onder de tabel staan (in kolom A dus) en druk op Ctrl + v (plakken). Herhaal dezee stap nog 2 keer waarmee je dus 4 blokken met dezelfde gegevens hebt. Sorteer nu je nieuwe tabel op de kolom met de regelnummers en aanschouw het resultaat. Misschien alleen die laatst toegevoegde kolom nog ff deleten...  ;-)