sammenligne tal og indsætte celler hvis tal ikke er ens

Hvordan er data i de 2 ark organiseret - en enkelt række pr. projekt - eller?

ja, præcis. En række hvor der er et unikt projektnummer. Herudover er der navn på projekt, ansvarlig for projekt osv. Det er en del af de andre celler jeg gerne vil have kopieret over i det andet ark HVIS der er kommet et nyt projektnummer til.

Model - inden kodning:
Ark 2 gennemløbes - for hvert projektNr undersøges om det tilsvarende findes på ark 1. Hvis dette IKKE er tilfældet - kopieres rækken fra Ark 2 i forlængelse af de eksisterende rækker på Ark 1.

Er det sådan?

ja, lige præcis. Det var vist ikke den nemmeste og klareste beskrivelse jeg havde tryllet frem - du siger det kort og præcist!

I løbet af dagen regner jeg med at få tid til en "stump VBA-kode"

Udkast 1:

Rem Koden anbringes i ThisWorkbook
Rem ==============================

Dim ark1, ark2
Sub opdaterProjektData()
Rem kan erstattes af Sub Activeworkbook_activate() ' udføres når filen åbnes

Dim ark2Rækker
Rem behandling af ajf.data i ark2
    Set ark1 = ActiveWorkbook.Sheets("Ark1")    'ProjektSamling
    Set ark2 = ActiveWorkbook.Sheets("Ark2")    'Ajourføring
   
    ark2Rækker = findAntalRækker(ark2)
   
    For ræk = 1 To ark2Rækker
        projektNr = ark2.Cells(ræk, 1)
        If findesProjektNrIark1(projektNr) = False Then
            indsætProjektData ræk
        End If
    Next ræk
End Sub
Private Function findAntalRækker(ark)
    With ark
        findAntalRækker = Cells(Rows.Count, 1) _
          .End(xlUp).Offset(1, 0).Row - 1
    End With
End Function
Private Function findesProjektNrIark1(projektNr)
    With ark1.Range("A1:A65000")
        Set c = .Find(projektNr, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            findesProjektNrIark1 = True
        Else
            findesProjektNrIark1 = False
        End If
    End With
End Function
Private Sub indsætProjektData(ræk)
    ark2.Select
    ark2.Rows(ræk).Select
    Selection.Copy
   
    ark1.Select
    ark1NæsteRække = findAntalRækker(ark1) + 1
    ark1.Cells(ark1NæsteRække, 1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Noget nyt?

hej supertekst.
Undskyld det sene svar. Når jeg afvikler makroen skirver den: Subscript out of range.
Jeg har lavet 3 kollonner i både ark 1 og 2. Jeg har så bare 2 rækker mindre i ark 2 end i ark 1.
Jeg tror måske fejlen ligger i den måde jeg har lagt din kode ind - kna du specifere præcis hvor i Visual Basic viewet (Alt+F11) at jeg skal lægge kodestykkerne ind?

Ok - koden i min model er som der står nævnt:

Udkast 1:

Rem Koden anbringes i ThisWorkbook <---
Rem ==============================

Du er velkommen til at sende dine filer til: pb@supertekst-it.dk - eller jeg kan sende mine filer.

Måske er årsagen, at dine arknavn IKKE er som følger:

    Set ark1 = ActiveWorkbook.Sheets("Ark1")    'ProjektSamling
    Set ark2 = ActiveWorkbook.Sheets("Ark2")    'Ajourføring

Noget nyt?

hej igen,
det driller fortsat. Kunne du prøve at sende mig dine filer? (skal nok være lidt hurtigere med tilbagemelding).
madstfri@yahoo.co.uk
God wewekend

hej, undskyld forglemmelsen, jeg omgik problemet og har ikke brug for løsningen. Men skriv et svar og jeg deler gladeligt ud af point som tak for indsatsen.
Mvh

Ok - selv tak