Eerste lege rij in tabel 1 x kopiëren (onderaan tabel)

[MBBS]

Ik zou de eerste lege rij in een tabel 1 maal willen kopiëren onderaan deze rij.
Als rij 20 bv. de eerste lege rij is dan zou ik deze willen kopiëren naar rij 21
20 wordt daarna ingevuld met gegevens uit andere sheet.
Zo is er steeds een lege rij met dezelfde layout beschikbaar om te kopiëren.
Om de eerste lege rij te bepalen hanteer ik gegevens in kolom D

Iemand die me hiermee kan helpen.

 

[OctaFish]

Een lege rij kopiëren? Wat is daar het nut van? Kun je niet niet zo goed een nieuwe rij invoegen op de plek waar je 'm wil hebben?

 

[OctaFish]

Ik gebruik zelf iets als dit:

    tmp = InputBox("Hoeveel rijen wil je invoegen?", "Rijen invoegen", 5)
    Range("$A$1048576").End(xlUp).Select
    iRij = ActiveCell.Row
    If Not IsNull(tmp) Then
            Rows(iRij & ":" & iRij).Select
            Selection.Copy
            Set rng = ActiveCell
        For i = 1 To tmp
            Selection.Copy
            Selection.Insert Shift:=xlDown
        Next i
        Selection.End(xlToLeft).Select
        Application.CutCopyMode = False

Daar zit dus wél een copy in, maar dat is omdat ik geen lege rijen toevoeg maar een lege rij met bestaande formules kopieer. Dat is toch weer wat anders dan een lege rij.

 

[MBBS]

Was niet exact een "lege" rij.
Deze laatste lege rij is voorzien van bepaalde layout en voorwaarden.
Met de nodige aanpassingen was uw code perfect te integreren.
Waarvoor dank !

 

[OctaFish]

Graag gedaan . Mag je de vraag op <Opgelost> zetten.

 

[snb]

Gebruik daarvoor gewoon de tabel (invoegen/tabel) in Excel (in VBA Listobject). Dan kan het zonder VBA.