I'll take a look. I don't understand why I am getting an error when I try to load the form.
I'm busy at the moment but will get back to you as soon as possible.
Avoid duplicated selection(s) across 15 comboboxes populated by a single range.
- Wozzie
- Thread is marked as Resolved.
Please note that on 14th December 2023 users will experience an expected outage whilst we make upgrades to our network. We anticipate this process may take a couple of hours and so we apologise in advance for any inconvenience.
-
-
-
I'll take a look later
-
Your comboboxes are not in numeric order. as they are in the original workbook. I think being in frames as well is causing the error on loading. Does it load for you.
The form is also way too big unless the user has impaired vision. Ir's very difficult to work with. I have quite a large monitor and it only shows part on the screen, and is very difficult to work with in the VB Editor. Also, those huge letters obscure the controls.
-
Your comboboxes are not in numeric order. as they are in the original workbook. I think being in frames as well is causing the error on loading. Does it load for you.
The form is also way too big unless the user has impaired vision. Ir's very difficult to work with. I have quite a large monitor and it only shows part on the screen, and is very difficult to work with in the VB Editor. Also, those huge letters obscure the controls.
I don't understand Roy, the file opens ok for me (original and the link above), the link shows how it looks on my 21.5" mac. And I when I built the framed userform I spent a long time ensuring comboboxes where in the correct order and the tags lined up with textbox numbers!
-
-
I created a new UserForm to replace yours. The controls are housed in a MultiPage control and I've adjusted the code to work with that.
I have also added a Class Control to handle the ComboBox change event to save having to enter it for each combobox.
It seems to work OK, but you test it. I'll check back tomorrow.
Please note that I have made the UserForm a more manageable size, and I think using bright colours in a UserForm should really be avoided.
-
When I checked it looked to me that the ComboBoxes and other controls weren't in numeric sequence. I have to go out now but I'll check back tomorrow.
-
Looking at your image it seems to be the Frame Caption's font that is blown up
-
-
Actually, I was getting an error and couldn't see why. Going back to it now it jumped out at me.
Replace the code with this and it should work
CodeSub NoDupe() With Me If ValueSelected(.MultiPage1.Pages(.MultiPage1.Value).ActiveControl.Value, Me) Then MsgBox "You have already selected this item!", vbCritical, "Selection Not Valid" .MultiPage1.Pages(.MultiPage1.Value).ActiveControl.ListIndex = -1 Exit Sub End If End With EnterSelection End Sub -
Pleased to help
Participate now!
Don’t have an account yet? Register yourself now and be a part of our community!