We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub cmdReceiveItem_Click() Dim varItm As Variant Dim varReceieveAmount As Integer For Each varItm In Me.lstParts.ItemsSelected MsgBox Me.lstParts.ItemData(varItm)'Works fine for each item selected 'MsgBox Me.lstParts.Column(2) 'This just returns the last item selected varReceieveAmount = InputBox("How many items are you receiving for" & Chr(13) & "Part - " & Me.lstParts.Column(2) & " - " & Me.lstParts.Column(3) & "") ' This obviously has the same issue with only having data for the last item selected in listbox Next End Sub
Join the community of 500,000 technology professionals and ask your questions.