Dublet handlinger

Denne makro sletter rækker i ark 1 på grundlag af data i ark2. I situationen skal man forestille sig at man har en liste, fx en vareliste, i ark1. Den består af et antal kolonner, hvor kolonne A indeholder et varenummer. Ark2 indeholder så en oversigt over varenumre, der er udgåede, eller af anden grund skal slettes fra listen i Ark1. Denne makro sammenligner de to a-kolonner, og rækker i Ark1, der også findes i Ark2 slettes.

Måske kan du selv modificerede den, så den kopierer i stedet for at slette, ellers kan jeg se på det senere hvis du ikke har fået hjælp fra andre

Sub SletRaekke()
    Dim a As Variant
    For Each c In Sheets(2).Range("a:a").Cells
        If c.Value = "" Then Exit Sub
            a = c.Value
            For Each x In Sheets(1).Range("a:a").cells
                If x.Value = a Then
                    x.EntireRow.Delete shift:=xlUp
                End If
            Next x
    Next c
End Sub

Hejsa og tak for svar

Jeg kigger lige på det og vender retur med point når det er..

Hejsa..
Kan se at jeg ikke har fået lukket denne... Er du sød at smide et svar?

Beklager at der er gået så lang tid.. :O/