UNTUK PENCARIAN / VLOOKUP MENGGUNAKAN MACRO VBA

 

Mencari dan memasukan data Berdasarkan data yang di cari ( lookup )

Private Sub POST1_Click()

Set WS = Sheet5
KODE = Me.BARCODE1.Value
With WS.Range("BARCODE")
Set b = .Find(KODE, lookat:=xlWhole)
If Not b Is Nothing Then
    Baris = b.Row
    WS.Cells(Baris, 14).Value = TBIN1.Value
    WS.Cells(Baris, 15).Value = W1.Value
    WS.Cells(Baris, 16).Value = N1.Value

End Sub