Monday, December 21, 2015

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 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..!!




35 komentar

bagaimana filter listview dengan menggunakan script VBA excel 2007,
setelah data ketemu kemudian kemudian di edit dan disimpan,
pliiisss.... kasih script untuk pencarian, edit dan script untuk menyimpan hasil edit,

Terlebih dahulu saya mohon maaf.. Karena Untuk ListView Saya Sudah Coba Tp Gagal Melulu.. karena belajar otididak.. biasa pake listbox jha... untuk script pencarian, edit data, update data/Menyimpah hasil Edit sudah ada post.. Coba ditelusuri pada katagory VBA Excel... Trimkasih Sudah Berkunjung...

terimakasih mas aplikasinya, saya mohon ijin untuk saya kembangkan guna kepeluan pribadi, semoga tetep jaya

Trimkasih Bpk Mosleh Mosleh Yang Sudah Mau Berkunjung... Semoga Isi Blog Ini Bermanfaat Untuk Semua... Amiin..!!

File nya dirancang dari awal.... pada Posting Tombol Simpan

Salam mas.
Mau nanya. Klw misalkan kita mau ngesave data ke file yang lainnya itu bisa ga.? Misalkan di file excel yang satu kita hanya membuat form aja terus di file yang lainnya untuk database nya. Klw bisa sekalian sama contohnya. Heheheh.
Wassalam

File Excel 1 hanya untuk form isian.. sementara datanya akan tesimpan pada File Excel 2.. bisa mas...!! ntar kapan2 saya share caranya..

salam mas,
maap mas saya mau nanya,bisa gk kalau misalkan tombol pencarian nya itu menggunakan nama,jadi pas kita masukin nama,boxlist yang di form nya itu terisi

Kreteria cari data bisa pake apa saja mas... bagusnya cari data lebih leluasa dengan dua kreteria bisa baca disini.
Cari Data/Filter Data Dengan 2 Kreteria Tampil Di Listbox

ochhh ya mas,,,saya udah baca artikel nya,,maap mas saya mau nanya lagi,,kalau udah ketemu data nya itu bisa di edit sama di save gak

Iyeah Mas Aipsukabumi.. tergantung perintah yang mas terapkan pada aplikasi yang sedang dibikin... Untuk edit data hasil pencarian mas dapat membaca bagian dibawah ini:
1. Tampikan Data Dari ListBox Ke Textbox Dengan Double Klik
2. Edit Data Melalui UserForm VBA Excel

coba saja dirancang mas..!! bila ada kendala..!! silahkan Kirim aplikasinya ke email saya "senbakusen@gmail.com...!! dengan penjelesan kendala yang dihadapi....
InsyaAllah bila luang waktu saya coba bantu untuk melengkapi semampu saya..

permisi master mau tanya saya ingin bikin sperti contoh diatas "Cari Data Dengan TextBox Tampil Di ListBox" tp masalahnya saya sudah punya file sendiri, saya sdh coba cara di atas jg sudah tp belum bsa terpecahkan.
contoh file : https://www.dropbox.com/s/rmp3vjny4qynowb/Sampel.1.xlsb?dl=0

permasalahannya saat saya mencari hanya nomor yg bisa di cari, sy ingin "nama barang" yg bisa dicari.
mohon bantuanya master.

Mohon Maaf Cud'S..!!!
Mohon Menghungi Master Yang Punya File.!! Beliau Adalah Master VBA Excel Profesional..
Facebook Beliau :
Agung Full Version
Website Beliau :
afe.belajarexcel.org
Mohon bisa dimaklumi..!! terimkasih atas kunjungannya..!!

mas saya mau tanya kalau aplikasi di atas dibuatkan pencarian dengan type tgl gmna caranya?? mohon bantuannya, semoga sllu bermanfaat ilmunya,aamiin

Sama saja buk...!!! Sesuaikan saja letak Range, TextBox, dan Kreteria yang di filter...!!
Bila ingin dibantu.. bisa kirimkan file aplikasi ibuk ke email saya : senbakusen@gmail.com
akan saya coba bantu sebisa saya..

mas mau nanya saya kok eror ya
errornya disini :
R.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=RFilter, CopyToRange:=wsrekap.Range("B3:F3"), Unique:=False
tolong pencerahannya mas

Klo tu errornya.. biasanya dikarenakan pada Advance Filternya kurang tepat.. bisa jadi creterianya tidak cocok dengan data...

FILTER CARI DATA YG OM PAKE ITU KATA DIAWAL YA OM,,,
KLO FILTERNYA MAU DI RUBAH BISA GA
KIRA" FILTERNYA MENGANDUNG KATA
CONTOHNYA BILA SAYA KETIK "MAS" MAKA SEMUA DATA YG MENGANDUNG KATA MAS TAMPIL DI LISTBOX


MAKASIH OM

ListBox1.RowSource = "REKAPCARI"

REKAPCARI itu apa ya ?

Oim Bae. Hal itu bisa juga dilakukan dengan cara yang sama

"REKAPCARI" Range Dinamis yang ada pada sheet Rekap untuk ditampilkan pada LIstBox1

Siang min..
Ko saya gak bisa jalan y saat du run nama yg di cari gak muncul malah dbug

Kirim file ke email saya.. ntar malam saya liat apa yang salah.!! senbakusen@gmail.com

haloo mas, mau nanya , kalo udah di visible wokrbooknya,, munculin vb nya lagi gimana ya? sama excelnya.

Terima kasih

Silahkan melihat dan mempelajari pada posting dengan link berikut ini
http://www.senbakusen.com/2017/07/cara-menyembunyikan-dan-memunculkan.html

Sore min..
saya udah coba nih program cari data nya
tapi pencariannya ga muncul
yang ada tampilan di listboxnya malah kosong
mohon bantuannya ya min

kebetulan kasus saya juga sama, mohon pencerahannya master.

maaf mas sy sudah coba tapi saat tombol dicari ada infalid character pada "R.AdvancedFilter Action:=xlFilterCopy,_
CriteriaRange:=RFilter, CopyToRange:=wsrekap.Range("B3:F3"), Unique:=False"
Solusinya gimana ni boss

Jika sedang membangung App silahkan kirimkan file ke email senbakusen.com

ada yang tidak sesuai antara kode dengan penempatan datanya

sudah dikirim pak? mohon bantuannya, maklum newbie dan pensaran

Terimakasih atas Ilmunya pak, Problem Solved,,
Semoga Semakin Bermanfaat, Amiennnn

Bleom lagi dilihat.. udah Solved.. Mantap..!!!

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon