Mengisi Nama Barang dan Harga Otomatis Melalui Combobox Kode

Inilah cara Mengisi Nama Barang dan Harga Otomatis Melalui Combobox yang berisi list kode barang. Pengaplikasian materi ini memang banyak terjadi misalnya ketika Anda melihat di kasir orang akan entri kode barang maka data barang termasuk nama dan harga akan otomatis tampil pada textbox. Nah hal ini bisa diaplikasikan melalui VBA dengan syarat Anda tentu harus memiliki database untuk pemanggilan kode tersebut.

Berikut tampilan sederhana pemanggilan data nama barang dan harga melalui combobox coba perhatikan gambar dibawah ini

Ketika Anda mengetikkan kode A002 maka secara otomatis nama barang yang berada pada textbox1 dan harga barang pada textbox2 tampil sesuai dengan database yang telah Anda buat pengkodeannya. Bagaimana cara membuat hal tersebut?

Langkah pertama silakan Anda buat terlebih dahulu database barangnya pada sheet1 misalnya seperti berikut ini

Jika data sudah dibuat maka sekarang kita buat userform yang dilengkapi dengan combobox, dan 2 buah textbox dan saya sudah pernah menyampaikan bagaimana cara membuat textbox serta combobox pada posting sebelumnya jika Anda lupa silakan cari di pencarian blog ini.

Untuk yang malas mencari materi textbox dan combobox saya kasih ajah neh link nya

Cara Membuat textbox pada Userform

Bagi Anda pemula untuku belajar membuat combobox silakan lihat cara membuat combobox bagi pemula

Langkah berikutnya setelah Anda mendesain atau membuat 1 buah combobox dan 2 buah textbox kemudian kita akan membuat prosedure untuk perubahan combobox yaitu combobox_change. Silakan ketikkan atau copy paste coding combobox_change berikut

Private Sub ComboBox1_Change()
Set Data = Sheets("Sheet1")
Set IDbarang = Data.Range("A2:A5")
Set Rekam = IDbarang.Find(ComboBox1.Value, LookIn:=xlValues, _
        MatchCase:=False)
If ComboBox1 = "" Then
    TextBox1.Value = ""
    TextBox2.Value = ""
    Else
    TextBox1.Value = Rekam.Offset(0, 1).Value
    TextBox2.Value = Rekam.Offset(0, 2).Value
    TextBox2.Value = Format(TextBox2.Value, "#,##")
End If
End Sub

Sedikit penjelasan coding
Set Data = Sheets("Sheet1")
Artinya : data diambil pada sheet1

Set IDbarang = Data.Range("A2:A5")
Artinya : Kita setting IDBarang yang diambil datanya dari range A2:A5 yang berada pada data / sheets1

TextBox2.Value = Format(TextBox2.Value, "#,##")
Artinya : Format tulisan pada textbox2 adalah berupa curency.

Setelah itu tambahkan prosedure Initialize pada userform yaitu dengan coding

Private Sub UserForm_Initialize()
ComboBox1.List = Range("Sheet1!A2:A5").Value
End Sub

Hal ini berfungsi agar combobox hanya menampilkan list yang ada pada range A2:A5 yang berada pada worksheet1.

Mari kita coba silakan ketikkan atau Anda bisa klik segitiga pada combobox dan pilih atau ketikkan kode barang nya maka secara otomatis nama barang dan harga barang muncul sesuai dengan database yang ada pada sheet1.

 Demikian tutorial singkat untuk mengisi nama barang dan harga secara otomatis melalui combobox semoga bermanfaat dan selamat mencoba.

Tweet