Userform listbox row selection fails

[Hilarys]

I have a UserForm which includes two ListBoxes on one page of a MultiPage. The two ListBoxes are identical apart from the ControlSource and the position on the form. In one of the ListBoxes, a mouse click on a populated row highlights the row and writes the bound column data to the ControlSource, i.e. as expected. In the other ListBoxe, a mouse click causes the bound column data to flash in the ControlSource, but it then disappears, and no highlighting occurs, so row selection is impossible. What am I doing wrong?

 

[Hilarys]

OK, thanks. I'll proceed with the beige version. More in due course.

 

[RoryA]

It might be worth just amending that code to:

mystring = "Display!CG2:CI" & cmy + 10
msincs.MultiPage1.Pages(4).Controls("ctomsexist").List = Application.Range(mystring).value
mystring = "Display!CM2:CO" & cmn + 10
msincs.MultiPage1.Pages(4).Controls("ctomscand").List = Application.Range(mystring).Value

and see if the issue still persists.

 

[Hilarys]

It might be worth just amending that code to:

mystring = "Display!CG2:CI" & cmy + 10
msincs.MultiPage1.Pages(4).Controls("ctomsexist").List = Application.Range(mystring).value
mystring = "Display!CM2:CO" & cmn + 10
msincs.MultiPage1.Pages(4).Controls("ctomscand").List = Application.Range(mystring).Value

and see if the issue still persists.

I'm afraid the issue does persist. I tried the code above in the order shown and also in line 3,4,1,2 order, but it's the same ListBox (which is displayed above the other ListBox on the form) that fails; it's nothing to do with the order of the code.

 

[Hilarys]

I think I'd have to see a representative workbook then. Something must be resetting the listbox, from what you describe.

OK, I've built a beige version that misbehaves in the same manner. I also deleted the offending ListBox and re-created it and the problem persists. How do I ship the workbook?

 

[RoryA]

Do you have access to a file sharing platform like Onedrive or Dropbox where you can upload it and share a link?

 

[Hilarys]

Here's a link.

OneDrive

1drv.ms

There's a start button on worksheet "StandingData". If you pick page "Make/ Break a recipe's Links", and then choose "Crab and vermicelli salad" from the ComboBox, you should find that items in the lower ListBox are selectable whereas they're not selectable in the upper ListBox. If you switch to "Make /Break Ingredient's links" and choose "Cromer crabs" it all works as we'd like.
Thanks!

 

[RoryA]

You have two controls with ControlData!A12 as the controlsource - the problem listbox and the asmods listbox. You need to change one of them.

 

[Hilarys]

Thank you for your attention and patience. Sorry I'm such an idiot...

 

[RoryA]

Glad we could help. And don't worry - it's easily done!