Variabele data overschrijven naar ander werkblad

[VinTour]

Dag allemaal,

Ik heb een vraag over Excel en de eventuele mogelijkheid om data van één werkblad over te brengen naar de volgende vrije regel in een ander werkblad. Ik heb een voorbeeld bijgevoegd.
Wat ik wil is dat de data die ik in het werkblad “Opvolgblad” invul terecht komt op het werkblad “REGISTER 2020” in de corresponderende kolommen. Nu is dit natuurlijk geen probleem als je maar één patiënt hebt, maar aangezien wij op een jaar meer dan 500 mensen in de database moeten krijgen wordt het voor mij nogal moeilijk om dit op te lossen.
Ik wil dus het werkblad “Opvolgblad” hergebruiken voor elke nieuwe patiënt, maar de data die dan naar het blad “Register 2020” wordt overgeschreven moet blijven staan. Ik weet niet of dit op één of andere manier mogelijk is, en mijn kennis van Excel is te beperkt om dit uit te zoeken.

Voor alle duidelijkheid: als ik voor de eerste keer het “opvolgblad” invul moet mijn data op lijn 3 komen te staan (nu genaamd: PATIËNT TEST A). Als ik dan de volgende keer het blad invul moet dit op lijn 4 komen te staan (nu genaamd: PATIËNT TEST B).
Ik weet ook niet of dit dé manier is om voor elkaar te krijgen wat ik wil. Anders zijn alle suggesties welkom.

Alvast bedankt voor het meedenken.

 

[mvdvlist]

In plaats van het opvolgblad kun je misschien beter een formulier gebruiken middels VBA...

 

[HSV]

Verklein de tabel tot het aantal rijen dat je hebt.

Onderstaande code mag je naar eigen inzicht invullen in de array tot het aantal kolommen van je tabel (even tellen dus).
Hier heb ik er alvast 4 voor je gedaan (alleen de eerste klopt maar).
Wat in het rood staat zijn door mij verkeerde cellen ingegeven in de array.
Voor jou een mooi klusje om de juiste cellen in de array aan te maken.

Sub hsv()
Dim Lobj As ListObject
  With Sheets("opvolgblad")
    Set Lobj = Sheets("register 2020").ListObjects(1)
    Lobj.ListRows.Add.Range = Array(Lobj.ListRows.Count + 1,[COLOR=#ff0000] .[f4], .[f5], .[f6][/COLOR])
  End With
End Sub

 

[VinTour]

Bedankt voor de code. Ik zal er eens mee aan het werk gaan. Daar ben ik sowieso wel even zoet mee.

Groeten