VBA - slet rækker i Excel

Hvordan læser jeg fra to ark?

Hvordan igennemløber jeg en kolonne?

Hvordan sletter jeg en række?

Kan du forklare lidt mere?
I hvilke kolonne har du sagsnummer?
Hvilke rækker skal slettes i andet ark?

De to ark indeholder følgende:

Ark1 indeholder 4 kolonner:
A              B            C            D
Sags nr.    Adresse      Post nr.        Yderligere oplysninger

Ark2 indeholder 1 kolonne:
A
Sags nr.

Ud fra Ark2s sags nr. skal tilsvarende sags nr. slettes i Ark1 (hele rækken skal slettes).

Prøv med

Sub SletRaekke()
    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")
                If x.Value = a Then
                    x.EntireRow.Delete shift:=xlip
                End If
            Next x
    Next c
End Sub

Sorry xlip skal være xlUp

Super. Det virker som det skal:-)

Er du sød lige at forklare, hvordan koden virker (gerne linie for linie)?

Den første linie læser alle cellerne i Ark2, kolonne A en ad gangen.
Linie 2 sikrer, at makroen stopper, hvis cellen i ark2 er tom. Den går altså ud fra, at der ikke er tomme celler i listen over sager, der skal slettes.
Den tredje linie "husker" det, der står i cellen, hvis den ikke er tom.
Den næste linie tager så fat i cellerne i Ark1, kolonne A og gennemgår disse en ad gangrn.
De næste tre linier sammenligner hver celle i A-kolonnen i Ark1 med den "huskede" værdi. Hvis disse værdier er ens (værdien i ark1 findes også i ark2) slettes hele rækken.
Den næste linie fortsætter til den næste celle i Ark1, indtil alle celler er sammenlignet med den første værdi fra ark2. Den sidste linie spinger så til den næste celle i ark2, og hele processen gentages indtil der ikke er flere udfyldte linier i ark2.

Håber at det var forståeligt.

Endnu en gang mange tak for hjælpen:-)

Velbekomme :-)