delete code

[dennisli]

Good morning, everyone
I have two ranges containing ID, Sheet1!A1:A1000 and Sheet2!A1:A20.
If any ID in Sheet2!A1:A20 is found in Sheet1!A1:A1000, then the row containing that ID in Sheet2 would be deleted.
Thanks lot.
Dennis

 

[VoG]

Try

Sub DelA()
Dim i As Long
With Sheets("Sheet2")
    For i = 20 To i Step -1
        If IsNumeric(Application.Match(.Range("A" & i).Value, Sheets("Sheet1").Columns("A"), 0)) Then .Rows(i).Delete
    Next i
End With
End Sub

 

[njimack]

Sub Del_Rows()
Dim Rng As Range
Dim i As Long
Application.ScreenUpdating = False
Set Rng = Sheets("Sheet1").Range("A1:A1000")
With Sheets("Sheet2")
    For i = 20 To 1 Step -1
        If WorksheetFunction.CountIf(Rng, .Cells(i, 1)) > 0 Then .Cells(i, 1).EntireRow.Delete
    Next i
End With
Application.ScreenUpdating = True

 

[dennisli]

appreciate and have a good day.