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 diatas..!!! 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. 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 posting Cari Data Dengan TextBox, Tampil di ListBox. Semoga bermanfaat..!!