Dear Rekan2 semuanya,
Barusan saya coba2 script di bawah ini, dan berhasil... Hanya saja saya minta
masukan dari teman2 perihal script saya di bawah ini, apa lagi yang perlu
di tambahkan.
-----------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
On Error Resume Next
Dim lastrow
Dim C As Range
lastrow = ThisWorkbook.Sheets(1).Range("A65356").End(xlUp).Row
For i = lastrow To 2 Step -1
For Each C In Sheets(2).Range("A1:A50")
If ThisWorkbook.Sheets(1).Cells(i, 1) = C.Value Then
ThisWorkbook.Sheets(1).Rows(i).EntireRow.Delete
End If
Next C
Next i
End Sub
-----------------------------------------------------------------------------------------
Terima kasih
On Thu, Aug 22, 2019 at 1:33 PM Stephen Saputro stephensapu...@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> 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
>
>
>
