Create multiple records from a multiselect listbox in a userform

I am using this macro to collate the options selected in my userform listbox (lstName) and copy them to the next blank row on my spreadsheet (train_db)

However, I want the values in some other items in my userform (Ent2 - Ent5) to be replicated for as many multiselect options are selected in the listbox and copied to train_db also.

i.e. If 3 items are selected from lstName then the spreadsheet should be populated as such...

A B C D E
lstNameoption1 Ent2.Value Ent3.Value Ent4.Value Ent5.Value
lstNameoption2 Ent2.Value Ent3.Value Ent4.Value Ent5.Value
lstNameoption3 Ent2.Value Ent3.Value Ent4.Value Ent5.Value

The current code works fine to generate new records in column A for as many lstName options are selected but I am struggling to populate columns B - E with the values from my other items.
The code in red populates the first new row only. Can I put a simple loop on this to populate all rows equal to the number of listbox options selected, maybe?

Please Login or Register  to view this content.

Can you post your workbook so we can see your list of and how your data is laid out

Thank you! This is doing exactly what I wanted.