Slet række ud fra bestemt kriterie

Hola
Denne kode virker i det ark du har uploadet. Koden skal ligge som makro i "Ark1".


Private Sub Worksheet_Change(ByVal Target As Range)

If ActiveCell.Row = 1 And ActiveCell.Column = 1 Then
    skal_fjernes = ActiveCell

    maxnr = Application.WorksheetFunction.CountA(Ark2.Range("A:A"))

    For t = 2 To maxnr
        If skal_fjernes = Ark2.Cells(t, 1) Then
            x = MsgBox("Vil du slette " & skal_fjernes & Chr$(13) & Chr$(13) & "Klik OK for at fjerne", vbOKCancel)
            Exit For
        End If
    Next

    If x = 1 Then
        Ark2.Unprotect
        Ark2.Cells(t, 1).EntireRow.Delete
        Ark2.Protect
    End If

End If

End Sub

Hej nielswb

Sådan, det virker perfekt, takker mange gange. Smider du et svar

God weekend.

Naturligvis...

Et svar!!!

God weekend i lige måde :)

Hej nielsswb, din kode virker perfekt i de filer hvor der slettes i kol.A, ark2. Nu viser det sig at den vil ikke slette kol.D i ark2, selv om jeg har rettet det i koden. Vil du prøve at forklare hvad jeg gør forkert? Jeg opretter gerne et spørgsmål med point. på forhånd tak