Cari Data Dengan TextBox Tampil Di ListBox

Salam bagi yang belajar VBA Excel secara otodidak..!!! Semoga apa yang saya sajikan pada blog pribadi saya ini membantu anda yang belajar otodidak membuat Aplikasi VBA Excel dengan tampilan UserForm. Perhatikan gambar Gif dibawah..!!! 

Cari Data Dengan TextBox Tampil Di ListBox

Cari data dan data yang di cari akan tampil. Data yang di cari diisi pada TextBox, dan data yang dicari  tampil pada ListBox setelah klik perintah cari.

Menampilkan data yang dicari sangatlah dibutuhkan dalam sebuah aplikasi data. Tujuannya agar pengguna Aplikasi dapat dengan mudah menemukan data tertentu.

Pada Excel memang sudah memiliki filtur mencari data dengan menggunakan fasilitas Find dengan tombol shortcut Ctrl + F.

Cara ini lebih umum digunakan bagi pengguna Excel karena ini merupakan langkah dasar bagi yang mempelajari Excel menemukan data yang ada pada cell tertentu.

Namun dalam pengembangan Excel menjadi sebuah aplikasi yang otomatis di jalankan dengan kesan yang bagus disini kita akan menerapkan beberapa perintah kode Vba Excel sehingga data dapat ditemukan dan di tampilkan melalui listbox.

Bagi anda yang tidak ingin bingung mungkin tidak membutuhkan cara ini. Cara membuat tombol cari data dengan Textbox dan menampilkan data yang di cari di ListBox yang akan admin bagi pada artikel ini bagi pengguna Excel yang suka bingung saja.

Ikuti selangkah demi selangkah agar anda juga dapat membuat perintah cari. Ok..!! Siapkan kopi..!!! agar bisa santai membuat perintah seperti gambar diatas.

Posting ini merupakan kelanjutan dari posting sebelumnya :

1. Tombol Simpan VBA Excel Terdapat File untuk di download sebagai bahan awal percobaan
2. UserForm Muncul Otomatis Ketika Excel Dibuka
3. Range Dinamis
4. Tampilkan Data di ListBox di UserForm VBA Excel
5. Perintah Cari otomatis Melalui TextBox
6. Tampikan Data Dari ListBox Ke Textbox Dengan Double Klik
7. Tombol Hapus UserForm VBA Excel

Langkah-langkah menampilkan data yang di cari pada ListBox :

• Buka File Aplikasi Data (Download di Posting Tombol Simpan VBA Excel), rename Sheet2 menjadi "CARI". Selanjutnya klik Tab Data dan perhatikan pada ribbon Sort & Filter pilih Advaced untuk memfilter data dengan kreteria tertentu. perhatikan gambar dibawah.

• Pada kotak dialog pilih "Copy To another location" isikan List range dan Criteria range dari Sheet "DB". Perhatikan gambar dibawah ini

• Untuk "Copy To" pilih Sheet "CARI" yang merupakan tempat penempatan hasil Filter. dan kita memilih lokasi penempatan data pada "B3". Perhatikan gambar dibawah ini 

• Klik Ok untuk memfilter datanya. lihat hasil filernya dan buatlah Range Dinamis seperti gambar dibawah.

• Tahap selanjutnya buka Visual Basic Excel
• Tambahkan TextBox dengan Name "TxtCariData" dan 2 buah Label masing-masing "LbCariData" dan "LbTampilSemua"
• pada TextBox "TxtCariData" masukkan kode berikut ini dan perhatikan gambar dibawah kode ya.!!

Private Sub TxtCariData_Change()
TxtCariData = UCase(TxtCariData)
Sheets("DB").Range("M2").Value = UserForm1.TxtCariData.Text
End Sub

• Selanjutnya masukkan kode berikut pada "LbCariData", dan perhatikan gambar dibawah kode

Private Sub LbCariData_Click()
Dim Ws As Worksheet: Set Ws = Sheets("DB")
Dim wsrekap As Worksheet: Set wsrekap = Sheets("CARI")
Dim R As Range: Set R = Ws.Range("ListDB")
Dim RFilter As Range: Set RFilter = Ws.Range("M1:M2")
Dim RCari As Range: Set RCari = Ws.Range("M2")
Dim C As Variant
If Ws.FilterMode Then Ws.ShowAllData
If UserForm1.TxtCariData.Text = "" Then
    MsgBox "Maaf...!! Anda Belum Memasukkan Nama Siswa..!!", 16, "Aplikasi Data"
    Exit Sub
End If
        UserForm1.TxtCariData.Text = RCari
        R.AdvancedFilter Action:=xlFilterCopy, _
            CriteriaRange:=RFilter, CopyToRange:=wsrekap.Range("B3:F3"), Unique:=False
ListBox1.RowSource = "REKAPCARI"
End Sub

• Masukkan Kode dibawah ini pada "LbTampilSemua" dan perhatikan gambar dibawah kode

Private Sub LbTampilSemua_Click()
Dim Ws As Worksheet: Set Ws = Sheets("DB")
If Ws.FilterMode Then
Ws.ShowAllData
End If
Call ListDB
TxtCariData = ""
End Sub

• Selesai..!! Uji Aplikasi dengan F5..!! Jika langkah yang anda ikuti sudah sesuai, Aplikasi Data akan jalan sebagaimana yang diharapkan.

Demikian artikel dengan judul Cari Data Dengan TextBox, Tampil di ListBox. Pada artikel ini mungkin terlalu banyak kekurangan dalam penyampaian. 

Jadi pada bagian-bagian yang tidak sempurna dalam penyampaian mohon di raba-raba sendiri saja ya.

Atau anda dapat menyampaikan pertanyaan, saran serta kritikan pada kolom komentar yang tersedia dibawah artikel ini.

Semoga artikel dengan judul Cari Data Dengan TextBox Tampil Di ListBox dapat bermanfaat bagi yang sedang mempelajari cara membuat aplikasi Vba Excel.

Jika artikel ini dirasakan ada manfaat dan berguna mohon dapat dishare ke teman-teman lain melalui media sosial.

Semoga bermanfaat..!!

Berbagi :