script aanvullen nieuwe zendingen

[moensk]

Ik heb script dat s'morgens alle gegevens Kopieert van "Data" --> "DC" met voorwaarde dat waarde in "DATA" in kolom AA" = "DC"
Nu zoek ik nog script dat nieuwe rijen die uit de database worden gehaald loop dag, kopieert van "Data" --> "DC" en toevoegt aan de rest, doch rijen mogen er niet dubbel inkomen.
ik kan niet alles opnieuw overschrijven daar er in tabblad handmatig gegevens worden toegevoegd.
de kolom om op te vergelijken en unieke nr is, is kolom C (Opdrachtnummer) in beide tabbladen

klein voorbeeld in bijlage
in tabblad een nieuwe regel klaargezet (Geel) welke niet mag gekopieerd worden en 2 nieuwe welke welke mogen gekopieerd worden (Rood)
tevens ook 1 regel die niet in aanmerking komt omdat kolom "AB" leeg is (blauw)

 

[HSV]

Sub hsv()
 With Sheets("data").Cells(1).CurrentRegion
  .AutoFilter 28, "<>"
  .Offset(1).Copy Sheets("dc").Cells(Rows.Count, 1).End(xlUp).Offset(1)
  .AutoFilter
 End With
Sheets("dc").UsedRange.RemoveDuplicates 3
End Sub

 

[snb]

Al eens naar uitgebreid filter gekeken ?

 

[moensk]

geste en werkt goed