invoervelden naar eerste lege regel verplaatsen

[nmeijer]

Goedemiddag,

Ik ben op zoek naar een macro die de gegevens die in een aantal velden worden ingevoerd kopieert naar een ander tabblad. Op dat tabblad moeten de gegevens een eigen regel krijgen. Hoe zorg ik er voor dat excel de eerste lege regel kiest en de cellen in de juiste volgorde plaatst?

Zie het bijgesloten voorbeeld.

Bij voorbaat dank,

Bekijk bijlage Voorbeeld.xlsx

 

[Roncancio]

In bijgevoegd bestand zit de macro die de gegevens overzet.

Met vriendelijke groet,


Roncancio

 

[nmeijer]

Dankje, er gaat alleen ergens iets mis, hij opent zichzelf nog een keer ipv de gegevens te kopieren.

Enig idee wat dat kan zijn?

Bvd,

 

[Roncancio]

Wat bedoel je precies, want bij mij schrijft de code de gegevens weg en maak naderhand het schema weer leeg.

Met vriendelijke groet,


Roncancio

 

[nmeijer]

Ik heb alles even opgeslagen nu gaat dat goed.
Hij geeft echter een error op de derde regel:

 Set rRng = Blad2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

run-time error '424':
Object required.

Wat houd dat in?

Bvd,

 

[Roncancio]

Verander die regel dan maar in:

    Set rRng = Worksheets("Opslag").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

Met vriendelijke groet,


Roncancio

 

[nmeijer]

Dankje, hij werkt.