Autofilter menggunakan vb makro di excel berdasarkan nilai cell

Pa kabar semua? semoga sehat selalu.
maaf nie, saya baru muncul di blog kesayangan ini setelah beberapa bulan tidak memberi postingan terbaru. Memang dalam hal ngeblog ada beberapa faktor untuk bisa selalu aktif yaitu mood nya. heheheh
Baiklah untuk kali ini saya mau membagi ilmu excel yang mungkin Anda semua pernah melakukannya dan pernah mencoba tetapi gagal. Kegagalan justru menjadi langkah awal untuk lebih baik dalam melakukan riset maupun percobaan, inilah yang saya alami dalam melakukan filter data berdasarkan nilai suatu cell.
Saya screen shot gambar tabel yang akan di filter di bawah ini:

scren shoot excel

nah, gambar di atas bisa di jelaskan bahwa terdapat tabel yang akan di filter berdasarkan nilai cell di f2. Biasanya orang yang awam menggunakan filter di menu data selanjutnya pilih ikon filter itu sah-sah saja. Tapi dalam kasus ini saya memberikan trik untuk memfilter berdasarkan nilai suatu sell.

langkah pertama setelah tabel di atas di buat yaitu klik menu Developer, selanjutnya klik view code nanti muncul vb makro yang mana di situ tempat untuk mengisi program vb makro.

Langkah kedua, Copykan kode di bawah ini :

Sub ToggleAutoFilter()
ActiveSheet.Range(“d5:d20“).AutoFilter
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
‘Determine if F2 has been changed
If Target.Address = “$F$2” Then
‘Determine if F2 contains a value
If Target.Value <> “” Then
‘If TRUE, Autofilter Column F based on value in F2, Criteria “>=”
ActiveSheet.Range(“d5:d20″).AutoFilter _
Field:=1, Criteria1:=”=” & Range(“F2“)
‘If FALSE, turn off AutoFilter
Else: ActiveSheet.Range(“d5:d20”).AutoFilter
End If
End If
End Sub

pada teks yang berwarna merah bisa anda ganti sesuai dengan tabel yang anda ketikan di excel.

jika sudah ter copy maka Anda sudah bisa melakukan filter data berdasarkan nilai cell di microsoft excel.

semoga bermanfaat, terima kasih.

 

Posted on 4 November 2016, in Pengetahuan Umum, Tips dan Trik, Tutorial and tagged , , . Bookmark the permalink. Tinggalkan komentar.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: