Excel VBA verwijderen van rijen

[paustdd]

Hoi,

ik heb hier een excel document waar 2 tabbladen inzitten.
in het eerste tabblad zitten gegevens die dagelijks worden ingevoerd na verwerking worden deze dmv van vba verplaatst naar het 2de tabblad.
Doch is het soms mogelijk dat deze gegevens zowel in het eerste tabblad alsook 2de tabblad voorkomen.
Wanneer dit zicht voordoet dan zou er via VBA een vergelijking moeten komen, alle items die worden opgenomen hebben een uniek id.
Dus indien in het 2de tabblad bv ID 100 bestaat en ID 100 bestaat ook in het eerste tabblad dan dient de rij met ID 100 in het eerste tabblad worden te verwijderd.


Iemand een Idéé

Groeten
Mist

 

[Cheetahke]

Ja, vooraleer de verplaatsing gebeurt, eerst elk item laten controleren of het bestaat in het 2e werkblad dmv find en eventueel een find.next in te voegen.
Wanneer gebeurt de verplaatsing? Dmv een knop op het werkblad? Of voor afsluiten van het werkboek?

 

[VenA]

Ik zou de ingebouwde functie 'RemoveDuplicates' gebruiken.

Sub VenA()
ar = Sheets(1).Cells(1).CurrentRegion
With Sheets(2)
    .Cells(Cells(1).CurrentRegion.Rows.Count, 1).Offset(1).Resize(UBound(ar), UBound(ar, 2)) = ar
    .Cells(1).CurrentRegion.RemoveDuplicates Columns:=1, Header:=xlNo
End With
End Sub

Met een paar aannames:
- in het eerste blad staat de import;
- in het tweede blad is kolom A de 'sleutelkolom';
- de gegevens in A1 beginnen en aaneengesloten zijn.