Cari Data dgn Combobox

Selamat berinovasi sobat Belajar Office dan tetap bersemangat untuk beraktivitas kembali. Pada kesempatan ini admin akan membahas cara membuat

Form Pencarian data pada Excel VBA sederhana  dilengkapi dengan koding simpel dulu sehingga lebih mudah untuk dipahami
dengan menggunakan Combobox sebagai Control pencarian

Dengan mengetik kode pada combobox maka data otomatis akan tampil pada texbox 

Prosedur yang digunakan adalah

Private Sub ComboBox1_Change()

yang mana saat ComboBox di klik kode otomatis akan berjalan

Langkah-langkahnya sangat mudah yaitu sebagai berikut :
Buka MS Excel buatlah dua buah sheet : Sheet1 dan Sheet2

Buat userform baru yang simpel dulu dengan tampilan seperti contoh gambar diatas

Dengan properti

Name : UserForm1 dan 
Label Paling atas  dengan Caption  Form Tampilkan Data”
Tambahkan tool-tool dengan properties sebagai berikut :

CommandButton1  dengan Caption : Cancel

Label 1  dengan Caption Kode Produk
Label 2  dengan Caption Nama Produk
Label 3  dengan Caption Harga Satuan
Texbox1  dan Texbox2 dan Combobox1

Selanjutnya untuk koding Cancel (untuk menutup form jika data tidak jadi di input)
Koding untuk combobox1 adalah

Private Sub ComboBox1_Change()
Set CC = Sheets("Sheet1")
On Error Resume Next 'meski error lanjut terus
Set KunciLook = CC.Range("b6", CC.Range("b6").End(xlDown))
Set c = KunciLook.Find(ComboBox1.Value, LookIn:=xlValues, MatchCase:=False)
TextBox1.Value = c.Offset(0, 1).Value
TextBox2.Value = c.Offset(0, 2).Value
TextBox3.Value = c.Offset(0, 3).Value
End Sub

Doubel Klik pada Tool CommandButton1 atau tombol Cancel ketikan kodingnnya seperti dibawah ini

Private Sub CommandButton2_Click()
Unload Me
End Sub

Kemudia untuk mengisi otomatis kode combobox  dengan list kolom yang sudah ditentukan dengan kode
Private Sub UserForm_Initialize()
Berikut pastekan code lengkapnya berikut di userform1

Private Sub UserForm_Initialize()
ComboBox1.List = Sheets("Sheet1").Range("b6:b200").Value
End Sub

Selanjutnya kita buat tombol pada sheet1 untuk menampilkan atau memanggil userform input data yang telah kita buat dengan sebuah gambar atau shape yang akan menuju modulyang akan memanggil userform1

Buatlah sebuah modul pada property vba dengan cara
Klik ALT + F11 Kemudian Insert Modul dan pastekan kode berikut

Sub Panggil ()
Userform1. Show
End sub

Save As File Excel dengan format Excel Macro-Enabeled Workbook supaya hasil yang VBA macro tidak hilang
Demikian postingan singkat kali ini semoga bermanfaat
Selesai.