I have the code below which I am having trouble with. I am trying to load data from a Order_Table to an Order_Form using vlookup. I am using vlookup vba and copy and paster. Vlookup is contingent on order number input. I have attached the file.
Sub Load_Order()
Dim rng As Range
Dim temp As Variant
Dim i As Long
Dim a As Long
Dim rng_dest As Range
Dim Order_Number As String
Order_Number = Order_Form.cell("C_5")
'Order_Number = InputBox("Enter Order Number :")
If IsEmpty(Range("C5").Value) = True Then
MsgBox "Cell C5 is empty"
Else
Order_Form.cell("C5") = Application.WorksheetFunction.VLookup(Order_Number, ORDER_TABLE.Range("B6:B9"), 1, False)
' Date
Worksheets("ORDER_TABLE").Range("C6").Copy
Worksheets("ORDER_FORM").Range("B8" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End If
End Sub
ORDER # ITEM DESCRIPTION QTY
101 9987 White T-Shirt 5
102 4286 Red T-Shirt 7
103 2938 Green T-Shirt 8
104 9257 Yellow T-Shirt 3
Order# 101
ORDER # ITEM DESCRIPTION QTY
Bookmarks