Gegeven uit een ander blad verwijderen

[jefkeh]

Nieuw gegeven in een werkblad copieren naar een ander werkblad


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.

Voor dit heb ik een oplossing ontvangen van Cobbe en VenA die perfect werken.

"Private Sub Worksheet_Activate()

With Sheets("Blad1")
For Each cl In .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row)
Set a = Range("A:A").Find(cl)
If a Is Nothing Then
With ActiveSheet
.Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) = cl
.Range("B" & Range("A" & Rows.Count).End(xlUp).Row) = cl.Offset(, 1)
End With
End If
Next
End With
End Sub"


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

Nu had ik daar nog een bijbehorende vraag over.
Als ik nu in blad1 een naam wegdoe, kan ik deze dan ook laten verwijderen in blad2.
Alvast bedankt.
Gr.

 

[Timshel]

Wat is de toegevoegde waarde van een tweede werkblad met exact dezelfde gegevens als op het eerste werkblad?

 

[VenA]

Hoe doe je een naam weg?

Als je de hele rij verwijdert zal dit het het wel doen.

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

 

[HSV]

Ook mogelijk.

Private Sub Worksheet_Activate()
Sheets(array("blad1", me.name)).FillAcrossSheets Sheets("blad1").usedrange  ',-4104 is inhoud+opmaak, 2 is alleen inhoud, -4122 is opmaak.
Application.Goto [a1]
End Sub

 

[jefkeh]

Blad2 gebruik ik om uit te printen, de gegevens zijn dezelfde, maar bovenaan staan er iets andere gegevens dan op blad1

Bedankt voor de snelle reactie en een oplossing, ga ze straks uitproberen.
Gr.