Cari Data Dengan TextBox Tampil Di ListBox dengan excel vba excel

Cari Data Dengan TextBox Tampil Di ListBox dengan excel vba excel

Cari Data Dengan TextBox Tampil Di ListBox dengan excel vba excel

Cari Data Dengan TextBox Tampil Di ListBox dengan excel vba excel

 

 

 

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. Untuk yang belum tau cara simpan data pada tutorial sebelumnya cek disini ya

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.

excel vba

 

Baca Juga  Belajar Microsoft Excel: Mendapatkan Data Duplikat Dengan Conditional Formating

 

excel vba

 

 

 

 

 

 

 

 

 

=OFFSET9CARI!$B$3;0;0;counta(cari!$f:$f);5)

  • 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 “LbTampilSemu
  • a” 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..!!

Tinggalkan Komentar

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Need Help? Chat with us