VBA form with VBA combo box, Not showing a Scroll Bar

[OneChief]

Hello everyone.
Glad to be out of lock down

I have taken on someone else's project which is all over the place in regards to code, spreadsheets, functionality, etc. etc. Not one thing is done the same way and has no continuity.

I will do my best to show a few of the features and functionality to get to the end game of solving my problem.
This is my problem - No Scroll Bar and list is way too long showing all products.

The program starts like this with all combo/selection boxes are not visible and are validated according to what has been selected.
The "Door Material" boxes work fine and have scroll bars accordingly.

When it comes to the "Panel selection" none of these boxes have a scroll bar. Most of them don't need one, but there are some instances where it is required as shown in first image.

In VBA - The form looks like this;

As you can see the Comboboxes i need to look at are hidden somewhere, I cant find them. But I can select them when I highlight the "Frame2"
This is the Combobox of my concern (Cb3P2)

In the Code, there is so much going on. Some controls and items are controlled in the code some are controlled in spreadsheets.
Most of these ComboBoxes are controlled in the code.

What should I be searching for in the code to fault find where i can make these changes?

thank you

Side note: Novice in VBA

 

[johnnyL]

I believe ColumnCount of 1 = no scroll bar, try increasing that value.

 

[OneChief]

I believe ColumnCount of 1 = no scroll bar, try increasing that value.

G'day mate.
I believe the ColumnCount is to do with what column is to be shown in the box.
Like FName. LName.
If I wanted the Last Name shown in box I would put a 2

Thank you for the suggestion though. I tried it anyway

 

[NoSparks]

The controlling property for that is "list rows" which has a default value of 8 and that is what's showing in design mode.
I'd look at the loading of the list for that combo and see if list rows is being set to something different at the same time.
Perhaps the UserForm_Initialize sub.

 

[NoSparks]

Is it reasonable to think that no news is good news and the situation is rectified now ?

 

[OneChief]

The controlling property for that is "list rows" which has a default value of 8 and that is what's showing in design mode.
I'd look at the loading of the list for that combo and see if list rows is being set to something different at the same time.
Perhaps the UserForm_Initialize sub.

I have searched thru all the code in regards to above.
Unfortunately no result.

Thank you

 

[OneChief]

Is it reasonable to think that no news is good news and the situation is rectified now ?

G'Day mate.

Still unresolved.

 

[OneChief]

I'll put some code which I think is relevant to the functions I am looking for.
(I know this is very difficult and I am not hopeful of a solution given you guys and gals are not in front of the PC.)

Private Function Fill_Panel_Droplist(lvdrop As ComboBox, lvstart As String, lvWidth As Integer)
On Error GoTo Resumerror:
Dim lvlabel As String
If lvstart > "" Then
If lvdrop.ListCount > 0 Then
Do While lvdrop.ListCount > 0
lvdrop.RemoveItem (0)
Loop
End If
Sheet4.Range(lvstart).Select
Do While ActiveCell.Value > ""
If ActiveCell.Offset(0, 3).Value = "Y" Then
lvdrop.AddItem (ActiveCell.Offset(0, 0).Value)
End If
ActiveCell.Offset(1, 0).Select 'next cell down
Loop
End If
On Error Resume Next
Exit Function
Resumerror:
SaveBackup
MsgBox ("Error has occured in SELECT STYLE, Backup saved")
On Error Resume Next

End Function

The "SelectedPanelID = 3" is what I am looking for and the combo box that corresponds to it. (Strange thing is selected ID - 10 gives me a scroll bar.)
Another section of code -

Controls.Item("Label39").Top = 180
Controls.Item("Label39").Caption = "Select Panel Colour"
'Controls.Item("Cb3P").ListWidth = Sheet4.Range("CU21").Value
'Controls.Item("Cb3P").ListRows = Sheet4.Range("CS21").Value
Controls.Item("Cb3P").Enabled = True
Controls.Item("Cb3P").Left = 7
Controls.Item("Cb3P").Top = 192
Range("DG32").FormulaR1C1 = "=R[-5]C"

Controls.Item("Cb3P2").Enabled = False
Else
If Sheet4.Range("K4").Value > 1 Then
If SelectedPanelGroup = "Polytec" Then
lvMaterialId = Return_MaterialID(Controls.Item("Cb3P2").Text, Sheet4.Range("BL119").Value) 'door material
Range(Range("BP119")).Value = lvMaterialId
ElseIf SelectedPanelID = 3 Then
lvMaterialId = Return_MaterialID(Controls.Item("Cb3P2").Text, Sheet4.Range("BL118").Value) 'door material
Range(Range("BP118")).Value = lvMaterialId
ElseIf SelectedPanelID = 5 Then
lvMaterialId = Return_MaterialID(Controls.Item("Cb3P2").Text, Sheet4.Range("BL118").Value) 'door material
Range(Range("BP118")).Value = lvMaterialId
ElseIf SelectedPanelID = 10 Then
lvMaterialId = Return_MaterialID(Controls.Item("Cb3P2").Text, Sheet4.Range("BL118").Value) 'door material
Range(Range("BP118")).Value = lvMaterialId
End If
'lvMaterialId = Return_MaterialID(Controls.Item("Cb3P2").Text, Sheet4.Range("BL118").Value) 'door material
'Range(Range("BP118")).Value = lvMaterialId
Else
If Sheet4.Range("CS80").Value > "" Then
Sheet4.Range(Sheet4.Range("CS80").Value).Value = Controls.Item("Cb3P2").Value
End If
End If
Controls.Item("Cb3P2").Enabled = False
AddInfo_Panels


I'm not sure if this helps with searching for things to help.

But thanks anyway.

 

[NoSparks]

With what you've shown, the commented out

'Controls.Item("Cb3P").ListRows = Sheet4.Range("CS21").Value

would make me think the number of rows to show in the Cb3P2 dropdown would be set the same way.
I would search for ListRows within the Current Project and see if anything shows up for Cb3P2
If you don't find anything I then have no idea, sorry.