Membuat vlookup Isian Sederhana dengan macro

Membuat vlookup Isian Sederhana dengan macro
maksud dari artikel ini adalah, membuat isian sederhana dengan macro sebagai ganti vlookup, jadi setelah kode diketik akan muncul data kemudian data diinput pada sheet yang lain, jadi ini guna menghindari kesalahan ketik
sebenarnya dengan vlookup formula yang ditanam pada cell juga sudah bisa,namun akan jadi masalah bila cellnya ada ribuan dengan formula sebajibun akan menjadi leleeeeeeeeeeeet banget

INI MUNGKIN GAMBARAN DARI ARTIKEL KALI INI

langkahnya

Buat table seperti yang terlihat pada gambar dibawah ini dan beri nama SHEET ini dengan nama " database"

buat pula table yang sama namun headernya saja,isinya dikosongin sperti gambar,dan beri nama " isian "

sekarang kita masuk ke menu DEVELOPER>VISUAL BASIC, kemudia setelah tampil halaman VBnya pilih INSERT>USERFORM, lihat gambar
ATAU GA ADA SALAHNYA KE POSTINGAN INI DULU BIAR GA BINGUNG   Cara membuat MAINMENU dan HIDE Workbook dengan VBA Macro

klik 2 kali pada userform masukkan kode ini
----------------------------------
Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
    Cancel = True
    MsgBox "PAKE TUTUP YAH"
End If
End Sub
----------------------------------------
kembali ke userform
edit sedemikian rupa hingga seperti gambar
----------------------------------------
ini dia partikelnya

masukkan label SEBANYAK 6BIJI
masukkan Textbox SEBANYAK 5BIJI
pada properties beri nama masing masing
1. Textkode
2. Textnama
3. Textspec
4. Textjumlah
5. textsatuan
masukkan commandbutton SEBANYAK 3 BIJI
a1. nama terserah, Caption = cmdCARI, klik 2 kali masukkan kode ini
-----------------
Private Sub cmdCARI_Click()
    'ambil code yang ada pada Textkode
    CODE = Me.Textkode.Value

    'cari code pada database data
    With Worksheets("database").Range("a5:a10000")
        Set A = .Find(CODE, LookIn:=xlValues)

        'jika ditemukan, maka lihat barisnya.
        'selnajutnya pindahkan nama barang dari data ke textbox2.
        'jika tidak ditemukan, munculkan pesan.
        If Not A Is Nothing Then
            baris = A.Row
            Me.Textnama.Value = Worksheets("database").Cells(baris, 2).Value 'mengambil data baris ke2 dari sheer "database
            Me.Textspec.Value = Worksheets("database").Cells(baris, 3).Value
            Me.Textjumlah.Value = Worksheets("database").Cells(baris, 4).Value
            Me.Textsatuan.Value = Worksheets("database").Cells(baris, 5).Value
        Else
            MsgBox "Maaf, nama barang tidak ditemukan.."
        End If
    End With

End Sub
---------------------------------

kembali ke VB
a2. Nama terserah anda, Caption = TAMBAH , klik 2 kali masukan kode
---------------------------------
Private Sub TAMBAH_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("isian")

'menemukan baris kosong pada database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'check untuk sebuah kode
If Trim(Me.Textnama.Value) = "" Then
Me.Textnama.SetFocus
MsgBox "Masukan Nama Barang"
Exit Sub
End If

'copy data ke database
ws.Cells(iRow, 1).Value = Me.Textkode.Value
ws.Cells(iRow, 2).Value = Me.Textnama.Value
ws.Cells(iRow, 3).Value = Me.Textspec.Value
ws.Cells(iRow, 4).Value = Me.Textjumlah.Value
ws.Cells(iRow, 5).Value = Me.Textsatuan.Value
'clear data
Me.Textkode.Value = ""
Me.Textnama.Value = ""
Me.Textspec.Value = ""
Me.Textjumlah.Value = ""
Me.Textsatuan.Value = ""
Me.Textnama.SetFocus
End Sub
------------------------------------
kembali ke VB
a3. Nama Terserah , caption = TUTUP, klik 2 kali lalu masukkan kode ini
-------------------------------------
Private Sub TUTUP_Click()
    Unload Me
End Sub
-------------------------

Sumber : http://www.parengan.com