[belajar-excel] Delete row lebih dari satu kriteria [1 Attachment]

[Stephen Saputro stephensapu...@gmail.com [belajar-excel]]

Dear Rekan-rekan semuanya,

Mohon kiranya dapat di bantu kasus saya. scrpt di bawah saya buat untuk
menghapus row dengan 1 kriteria yang di input di sheet2 A1. Pertanyaan
saya, bagaimana script untuk menghapus row dengan banyak kriteria ?
kriteria2 tersebut saya rencananya taruh di sheet2 A1-A30.
-----------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim lastrow

lastrow = ThisWorkbook.Sheets(1).Range("A65356").End(xlUp).Row

For i = lastrow To 2 Step -1

    If ThisWorkbook.Sheets(1).Cells(i, 1) = Sheets(2).Cells(1, 1).Value Then
        ThisWorkbook.Sheets(1).Rows(i).EntireRow.Delete
    End If

Next i
End Sub

-----------------------------------------------------------------------------------------------

Terima kasih

Delete row lebih dari satu kriteria.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12