I didn't want to post that much code.
Private Sub ProductList_Click()
'This macro runs when an item in the list is clicked
Application.ScreenUpdating = True
'Declare Relevent Values
Dim CurrentProduct As String
Dim ProductID As String
Dim UnitPrice As Currency
'Grab Product Name from Product Listbox selection
CurrentProduct = ItemList.Value
'Lookup Product ID based on Product Description and change label
ProductID = Application.WorksheetFunction.VLookup(CurrentProduct, Range("ItemList"), 2, False)
'Lookup Unit Price based on Product Description and change label
UnitPrice = Application.WorksheetFunction.VLookup(CurrentProduct, Range("ItemList"), 3, False)
End Sub
Private Sub AddtoPO_Click()
'Declare Relevent Values
Dim CurrentProduct As String
Dim ProductID As String
Dim UnitPrice As Currency
Dim UOM As String
Dim Qty As Integer
Dim LineItemTotal As Integer
Dim POrowstart As Integer
'information regarding which row to start PO on
LineItemTotal = Range("LineItemTotal").Value
POrowstart = 19
'get product selection information from the "Product Selection" Userform
CurrentProduct = ItemList.Value
'Lookup related product information from the ProductListing Range
ProductID = Application.WorksheetFunction.VLookup(CurrentProduct, Range("ItemList"), 2, False)
UnitPrice = Application.WorksheetFunction.VLookup(CurrentProduct, Range("ItemList"), 3, False)
UOM = Application.WorksheetFunction.VLookup(CurrentProduct, Range("ItemList"), 4, False)
'Populate next line item with product selection
Range("D" & POrowstart + LineItemTotal).Value = CurrentProduct
Range("B" & POrowstart + LineItemTotal).Value = ProductID
Range("H" & POrowstart + LineItemTotal).Value = Quantity
Range("I" & POrowstart + LineItemTotal).Value = UOM
Range("J" & POrowstart + LineItemTotal).Value = UnitPrice
End Sub
Private Sub FinishPOButton_Click()
Unload Me
End Sub