Cari data dengan Tombol Buton

          Form pencarian data

Membuat Form Pencarian data dengan tombol Command Buton
Dengan properties yang dipersiapkan adalah

Name : UserForm1 dan 
Label Palin atas  dengan Caption  Tampilkan data”

Tambahkan tool-tool dengan properties sebagai berikut :
CommandButton1  dengan Caption : cari
CommandButton2  dengan Caption : Cancel
Texbox1 , Texbox2 dan Combobox1

Label 1  dengan Caption Kode Produk
Label 2  dengan Caption Nama Produk
Label 3  dengan Caption Harga Satuan

Kode pada CommandButton1 adalah

Private Sub CommandButton1_Click()
cari = ComboBox1.Value
With Worksheets("Sheet1").Range("b6:b58")
Set c = .Find(cari, LookIn:=xlValues)
If Not c Is Nothing Then
baris = c.Row
TextBox1.Value = Worksheets("Sheet1").Cells(baris, 3).Value
TextBox2.Value = Worksheets("Sheet1").Cells(baris, 4).Value
Else
MsgBox "MAAF data TIDAK DITEMUAKAN"
End If
End With
End Sub

Kode pada CommandButton2 adalah

Private Sub CommandButton2_Click()
Unload Me
End Sub

Modul untuk memanggil userform

Sub tambahdata()
UserTampil.Show
End Sub

Kode untuk mengisi list pada Combobox

Private Sub UserForm_Initialize()
ComboBox1.List = Sheets("Sheet1").Range("b6:b200").Value
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.
Untuk file yang sudah jadi sebagai bahan latihan bisa sobat download pada link dibawah ini




 Form Cari Tombol Buton