Menyembunyikan Data Yang Kosong dan Mengembalikan Semua Data dengan Tombol di VBA

Pada kali ini kita akan menggabungkan artikel yang sudah kita bahas sebelumnya yaitu membuat tombol perintah cara Menyembunyikan DataYang Kosong dengan Tombol di VBA dan membuattombol mengembalikan data yang disembunyikan.

Menyembunyikan Data Yang Kosong dan Mengembalikan Semua Data

• Masuk ke Microsoft Visual Basic for Applications window dengan menekan tombol Alt + F11 atau anda klik tab "Developer" lalu klik "Visual Basic". Apabila di Office anda belum tampil tab Developer, silahkan baca "Cara Menampilkan Ribbon Developer"
  
  
  


• Klik Insert kemudian klik Module


• Copy Paste kode berikut di bawah ini dan masukan ke dalam module


Menyembunyikan Data Yang Kosong dan Mengembalikan Semua Data

'https://baladaka.blogspot.com
'============================

Sub Filter_Sembunyikan()
    ActiveSheet.Range("$A$16:$A$93" ).AutoFilter Field:=1, Criteria1:="<>"

End Sub

'Adapun perintah untuk menampilkan data yang disembunyikan : 

Sub Unfilter_Tampilkan()
    ActiveSheet.Range("$A$16:$A$93" ).AutoFilter Field:=1

End Sub



• Selanjutnya kita akan membuat perintah untuk data yang ada agar tidak hilang dan data yang tidak ada agar bisa dihilangkan.
  

  Di mulai dari kolom A16 kita buatkan perintah sebagai berikut :

  =IF(C16>””;"DJ";"")

  Artinya Jika kolom C16 lebih besar dari “” maka DJ jika tidak maka “” lalu anda copy paste rumus tersebut ke bawah sesuai dengan data yang akan dihilangkan. Dan apabila data yang tidak perlu dihilangkan maka kebawahnya anda manualkan saja jangan diberi rumus. Lihat saja contohnya. Atau rumus ini bisa disesuaikan dengan keinginan.

  
• Setelah itu kita membuat sebuah tombol “Hiden Data Kosong” dan tombol "Tampilkan Semua Data" dengan fasilitasi “Text Box”
• Setelah dibuatkan tombol “Hiden Data Kosong” lalu klik kanan pada tombol tersebut lalu klik “Assign Macro….”. lihat gambar dibawah.
  
  
  
• Kemudian masuk ke menu Assign Macro...
  
  
  

  Perintah yang kita buat tadi di module akan tampil di sini, dan dalam hal ini perintah yang kita buat adalah Filter_RAB lalu klik kemudian OK.

• Simpan file tersebut ke dalam type atau Save as type : Excel Macro-Enabled Workbook atau type Excel Binary Workbook

Download VBA Excel - Menyembunyikan Data Yang Kosong dan Mengembalikan Semua Data

Download