Nieuw gegeven in een werkblad copieren naar een ander werkblad

[jefkeh]

Hoi,
Ik heb 2 werkbladen met hierop dezelfde gegevens.
Blad1 is het blad waar ik alle nieuwe gegevens op invul, blad2 is een copy
Kan ik via een macro het volgende doen:
Als ik op blad1 nieuwe namen invul dat deze macro gaat kijken of deze naam al op blad2 staat, zoniet moet deze gecopieert worden naar blad2, staat deze er wel gebeurt er niets.
Als ge ziet in mijn bestand, staat Piet in blad1 en niet op blad2, dan zouden de gegevens van Piet naar blad2 moeten gecopieert worden.
Hopelijk is dit een beetje duidelijk.
Alvast bedankt.

 

[Cobbe]

Als je blad2 opent gebeurt wat je graag wil.

 

[VenA]

Een beetje summier voorbeeldje. Als de positie van de namen niet uit maakt kan je deze 1 op 1 overnemen uit 'Blad1'

Private Sub Worksheet_Activate()
  ar = Sheets("Blad1").Cells(1).CurrentRegion
  Cells(1).Resize(UBound(ar), UBound(ar, 2)) = ar
End Sub

 

[jefkeh]

Hoi,
Bedankt Cobbe en VenA voor de oplossing.
Die van Cobbe heb ik al toegepast en werkt perfect, die ander moet ik nog doen maar die zal ook wel ok zijn.
Nogmaals bedankt voor de hulp.
Gr.