Each Item Selected in listbox

I have a listbox that I want to cycle through.  When i cycle through I want to have the user input a value in an inputbox and perform an action.  

My question is that in order to do this I need data from an unbound column in the listbox.  Here is my code sor far:
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

Open in new window

Lasers07Asked:
Who is Participating?
 
Lasers07Connect With a Mentor Author Commented:
ahh... nevermind.  I figured it out.

MsgBox Me.lstParts.Column(2, varItm)
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.