Cara Hapus Data Yang Sedang Difilter Dengan VBA Excel

Ms. Excel memiliki kelebihan Macro yang dapat mempermudah pekerjaan seseorang. Jika kalian biasanya memfilter data dan kemudian memilah lagi data yang ingin kalian hapus berdasarkan hasil filter secara manual, maka kali ini web Matematika Akuntansi akan berbagi ilmu tentang cara melakukan hal tersebut hanya dengan satu kali klick tombol saja.

Untuk bisa melakukan hal di atas, kita harus menggunakan script VBA Method Filter dan Delete Row. Berikut ini adalah scriptnya :

Sub HapusFilterData()

        Sheets(1).Select    

    Application.DisplayAlerts = False

        Sheets(1).Range("A2").CurrentRegion.AutoFilter Field:=1, Criteria1:="URGENT"

        Sheets(1).UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Delete

        Sheets(1).ShowAllData

    Application.DisplayAlerts = True

End Sub

Langkukanlah langkah - langkah berikut agar kalian bisa menghapus data filter yang kalian inginkan hanya dengan mengklick satu kali tombol saja :

1. Buka Aplikasi Ms. Excel dan buka file yang akan digunakan;

2. Buat tombol dari Shape dengan cara pilih menu Insert → Shapes (Pilih bentuk Shape sesuai keinginan kalian);

3. Pilih menu Developer → View Code di jendela Ms. Excel;

4. Setelah jendela VBA Excel terbuka, pilih menu Insert → Module di jendela VBA Excel;

5. Masukan script coding di atas ke dalam jendela Module VBA Excel;

6. Kemudian kembali ke jendela Ms. Excel yang ada Shapenya;

7. klick kanan pada Shape yang telah kalian buat di point 2 dan pilih Assign Macro;

8. Setelah jendela Assign Macro Terbuka, pilih nama macro HapusFilterData yang sesuai dengan script VBA yang telah kalian masukan di point 5 di atas dan kemudia klick OK di jendela Assign Macro;

9. Dan terakhir klick Shape yang telah kalian buat, maka data yang kalian inginkan akan terhapus tanpa harus melakukan filter secara manual.

Maka hasilnya menjadi :

Dengan menggunakan script VBA di atas kalian bisa dengan cepat melakukan pekerjaan yang berkaitan dengan filter dan hapus data.

Demikian artikel kali ini.

Mohon maaf apabila ada salah-salah kata.
Apabila ada yang ingin ditanyakan atau disampaikan, silahkan untuk menulis pada kolom komentar di bawah.

Referensi :

• https://docs.microsoft.com

Salam,

Muhamad Pajar Sidik

President Director of (matematikaakuntansi.blogspot.com)
Email : fajarmoehamad@gmail.com
IG : @mupasid

BEANBAG TRIANGLE SIZE LARGE TERMASUK ISI , SIAP PAKAI😊

Jika ingin bertanya secara privat, Silahkan hubungi no 085709994443 dan untuk berkomentar silahkan klick link di bawah ini 👇