Dear Saputro,
kalau banyak kriteria dapat menggunakan dan, atau
kriteria 1 dan kerteria 2
kreteria 1 atau kriteria 2
If kriteria 1 and kriteria 2 Then
If kriteria 1 or kriteria 2 Then
Kira-kira begitulah ....
Regard
NangAgus
On 8/21/2019 11:30, Stephen Saputro stephensapu...@gmail.com
[belajar-excel] wrote:
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