Opgelost eerstvolgende lege regel vinden en de regel erboven kopiëren

[Cartucci]

Via een macro vind ik de eerstvolgende lege regel onder aan een lijst in een werkblad.

Nu moeten na het vinden van deze regel, de formules uit de regel erboven gekopieerd worden naar de nieuwe regel.

Omdat de nieuwe regel telkens op een ander regelnummer kan voorkomen, weet ik niet goed hoe dat te doen. Kan iemand mij hierbij verder helpen?

De macro die ik gebruik om de nieuwe regel te vinden is:

Sub Vind_Eerstvolgende_Lege_Regel()

'selecteert de eerstvolgende lege regel in het werkblad
'negeert tussenliggende lege regels

Range("A" & Rows.Count).End(xlUp).Offset(1).Select


End Sub

 

[AHulpje]

Dit is de gevonden lege rij:

    MsgBox Range("A" & Rows.Count).End(xlUp).Offset(1).Row

 

[Cartucci]

Dit geeft slechts het regelnummer van de gevonden regel in een message box en nog geen antwoord op mijn vraag. Maar mogelijk reageer ik te vroeg...

 

[AHulpje]

Nou vooruit:

Sub Vind_Eerstvolgende_Lege_Regel()
    'selecteert de eerstvolgende lege regel in het werkblad
    'negeert tussenliggende lege regels
    rij = Range("A" & Rows.Count).End(xlUp).Row
    Rows(rij).Copy Rows(rij + 1)
End Sub

 

[emields]

Het is de gewoonte om bij een vraag een voorbeeldbestandje te plaatsen, als je dat niet doet moet je rekenen op een doodbrave ziel om toch een antwoord te krijgen.

 

[emields]

Of gebruik een tabel

PS. Er staan nog verschillende van uw vorige vragen open, Wat moet daarmee gebeuren?