How to apply an Index.Match.Match function to all entries in a Listbox on a User Form

Hello All.

I am tracking Inspection Items that get accomplished to Aircraft on a spreadsheet with a User Form.
The User Form is used to pick an Aircraft Tail No., enter flight hours, and landings, also, if an Inspection was accomplished, use Aircraft Tail No., entered flight hours, and landings plus the inspection complied with to enter that information to the aircraft worksheet range. I hope this makes sense, I with try to clarify if you have questions.

I have a Listbox on the User Form that list all the inspections we do to the aircraft, from this list, the user selects inspection that were complied with and adds them to a second Listbox. I have an Index.Match.Match function that works with a single entry in a Combobox but now I would like to apply this Index.Match.Match function to all the items listed in the second Listbox. Can this be done??

Can not upload workbook right now, file size to large.
But here is my code.

The code below is to add items from lbInsp1 Listbox1 to lbInsp2 Listbox2:

Please Login or Register  to view this content.

This code is my Index.Match.Match Function which works from a single entry in a Combobox:

Please Login or Register  to view this content.

I am trying to get the workbook file size down so I can upload it, but no promises.

Thank you much for any help.

Jason R Drozd

Your macro is not a Function. It's just another Sub.

I'm not sure I follow everything, but you could try something like this (not tested).

Please Login or Register  to view this content.

AlphaFrog,

Thank you for getting back with me, I really like that code, seeing that I'm just starting out I didn't think of using a case method (if that is what it is call). But for some reason it didn't work ether. I even tried mod'ing the code but for some reason the entries in the ListBox on my User Form are not going to the sub. I even tried putting it in a variable and doing a For i = 0 to lbInsp2.ListCount - 1 and different If statements after that but before my Call InspUP262:

Please Login or Register  to view this content.

The above code is out of my User Form Private Sub cmdUpDate_Click()

All the code does is stop even without an Error message, so that leads me to believe that the code is good but the data in the ListBox is just not making it to the sub for whatever reason, which is beyond me right now.

I am going to keep working on this and I guess strip my workbook and code down to one aircraft to see if I can get my workbook under the file limit.

Thank you much again for your time and thoughts.

Stupid me, I just had to get rid of the pictures I had on my User Form, so here is my workbook:

The code works except this should be D7 and not E7

Please Login or Register  to view this content.

This entire line is sort of pointless. It matches the value from cell D7 in row 7. You already know it will match column D. Why use a match function to match the known column? Just use vCol = 3

Please Login or Register  to view this content.