na rij : 7 rijen invoegen

[grema]

in een bestand van rij 45 tot 1324 telkens na 1 rij ----- 7 rijen invoegen met 1 beweging == Macro ???

kan dit ??

 

[Ginger]

Grema, Deze routine zou het werk voor je moeten doen...

Sub VoegRegelsIn()
Dim i As Long

    Application.ScreenUpdating = False
    
    For i = 46 To (8 * 1324) Step 8
        Rows(i).Resize(7).Insert shift:=xlDown
    Next i

    Application.ScreenUpdating = True
    
End Sub

Test 't aub wel ff op een copie van je 'echte' sheet! (code is overigens wel getest!)

Groet, Leo

 

[grema]

leo,


fijn --- deze code werkt gewoon prachtig.

dank


grema