Sebaiknya script tersebut diubah total (dibuang lalu buat baru malah lebih
baik).
Untuk data yang sedikit, script itu kelihatan bagus.
Untuk data yang banyak, Anda bisa menunggu seharian hanya untuk delete
rows, yang seharusnya bisa hanya 1 atau 2 detik saja.
Tapi itu sih cuman katanya Kid saja ding... ndak usah dianggap serius
banget... wkwkwkwk...
Kalo cara manual yang waras untuk hapus banyak baris berdasar kriteria itu
kan gak mungkin cek baris-per-baris pakai matanya user ?
Ada cara manual yang gak pakai ketajaman mata si user gak ?
Coba deh cari cara manualnya dulu...
Fiturnya Excel kan banyak, gak cuman VBA.
VBA itu untuk mengotomasi proses yang dilakukan secara optimum memanfaatkan
fitur Excel, bukan otomasi cara manual klakliknya si user metanin satu per
satu...
Nah.. kalau sudah punya cara manual yang jitu dengan fitur Excel yang ada,
barulah disusun VBA-nya. Kalo bingung, posting deh ke milis beserta urutan
langkah yang dikerjakan secara manual pakai berbagai fitur Excel tadi.
Itu kan kasusnya baru filter berdasar 1 kolom kriteria (mau isinya 1 kolom
kriteria itu dari A1-A30 atau A1-A900000, juga sama saja tetap 1 kolom
kriteria).
Kalau ada lebih dari 1 kolom kriteria dan per kolom kriteria ada banyak
item, dan kombinasi kolom-kolom kriterianya juga banyak, lalu IF nya di VBA
mau dipasang jadi berapa lembar module ?
lah... makin kelihatan rada gak warasnya kalo pakai cara yang ada sekarang
tersebut kan...
ayok... dicoba dicari cara hapus yang lebih baik dengan berbagai fitur
Excel.
Regards,
Kid
On Fri, Aug 23, 2019 at 8:44 AM Stephen Saputro stephensapu...@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> 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 nanga...@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com> 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 stephensapu...@gmail..com
>> <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
>>
>>
>>
>
