Data Vergelijken en Updaten excel 2003

[ROSO]

Beste vrienden,

Ik heb jullie hulp nodig, ik hoop dat jullie mij kunnen helpen.

Ik heb een database in Excel 2003 met tabbladen.

1. menu - 2. lijst1- 3.lijst2 - 4. lijst3 - 5. nieuwelijst - 6. Afgehandeld.
Lijst 1,2,3 hebben data waar uit gewerkt wordt. om de 2 weken komt een nieuwelijst.

Ik zou graag het volgen willen doen;

- Data uit "Lijst1" vergelijken met data uit "Nieuwelijst".
Indien er data in "lijst1" voorkomt en niet in het "nieuwelijst" , moet deze data naar
blad "Afgehandeld" gekopieerd worden en gewist worden in "Lijst1".

- Indien er data in "nieuwelijst" voorkomt en niet in "lijst1" moet deze (nieuwe) data naar
"lijst1" gekopieerd worden.


Namen kunnen div keren in terug komen maar elke keer met een UNIEKE nr . (kolom E(va rij 2))
Deze handeling zou ik graag dmv een vba code willen doen vanaf blad 1 (menu)

De kolom indeling zijn gelijk A t/m P (behalve in het nieuwe lijst (indien nodig kan een kolom toegevoegd worden)).
Voor duidelijkheid voeg ik ook een excel 2003 bestand bij.

Ik hoop dat jullie mij kunnen helpen, het gaat om ca 4000 tot 5000 regels.

Ik heb de volgende code gevonden. Maar ik er niet uit.
Code vergelijkt moet alles vergelijken op rij 5 (Uniek nr.)

For i = 1 To 2
    sq = Sheets("lijst1").UsedRange
    st = Sheets("Nieuwelijst").UsedRange
    
    sq(1, 5) = ""
    st(1, 5) = ""
    For j = 1 To UBound(sq)
      For jj = 1 To UBound(st)
        If sq(j, 5) = st(jj, 5) Then
          If i = 1 Then sq(j, 5) = ""
          If i = 2 Then st(jj, 5) = ""
          Exit For
        End If
     Next
  Next
  If i = 2 Then sq = st
  Sheets(Choose(i, "Afgehandeld", "Lijst1")).Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(sq), UBound(sq, 1)) = sq
  Sheets(Choose(i, "Afgehandeld", "Lijst1")).Columns(5).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  Next

 

[ROSO]

Niemand die mij kan helpen????????

 

[ROSO]

Een ieder bedankt die mee gedacht heeft maar intussen heb ik het kunnen oplossen.

Waar een wil is, is ook een weg