Lege rij toevoegen om de 5 regels

Status
Niet open voor verdere reacties.
1

1965Peter

Gebruiker
Lid geworden
20 jun 2016
Berichten
197
Hallo,

Hoe kan ik een lege rij toevoegen om de 5 regels, t/m laatste waarde in kolom A.

Dus regel 6 krijgt een lege rij, regel 12, regel 18
 
Linker muisknop in combinatie met <Ctrl> toets?

of
Code: 
Sub VenA()
Dim r As Range
  For j = 6 To Cells(Rows.Count, 1).End(xlUp).Row Step 5
    If r Is Nothing Then Set r = Cells(j, 1) Else Set r = Union(r, Cells(j, 1))
  Next j
  If Not r Is Nothing Then r.EntireRow.Insert
End Sub
 
Laatst bewerkt:
Maar precies 100% overbodig.
Met een korrekt opgebouwde dynamische tabel valt op allerlei manieren te sorteren.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan