Dear Pak Agus, Terima kasih untuk masukannya, kalau misalkan yang di hapus ada ratusan ribu row bagaimana ya Pak ? Saya coba seript terakhir yang saya kirim untuk ratusan ribu row malah gak bisa.hehehe, kalau hanya ratusan row masih bisa script di jalan kan.
Mohon bantuan nya ya On Thu, Aug 22, 2019 at 8:53 PM Agus [email protected] [belajar-excel] < [email protected]> wrote: > > > 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 [email protected] > [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 > > > >
