RobBroekhuis
Technical User
Hi all,
I asked this question once before, about a year ago, but never found a solution, so I apologize for the slow stutter ;-)
I have an on-sheet combo box from the controls toolbox. The combo box contents get dynamically generated by some code that I'll put at the end of this post. Works like a charm, except that sometimes the combobox takes on a very odd appearance:
instead of
Even in the first version, all the list items are there, but somehow they appear inside the little Spin-Control-like sub-control. The strange version seems to appear when the listdown icon is first clicked; clicking it again makes the proper version appear. If you have any suggestions (even just a referral to a more appropriate forum), please chime in.
Thanks
Rob
Rob
![[flowerface] [flowerface] [flowerface]](/data/assets/smilies/flowerface.gif)
I asked this question once before, about a year ago, but never found a solution, so I apologize for the slow stutter ;-)
I have an on-sheet combo box from the controls toolbox. The combo box contents get dynamically generated by some code that I'll put at the end of this post. Works like a charm, except that sometimes the combobox takes on a very odd appearance:


Even in the first version, all the list items are there, but somehow they appear inside the little Spin-Control-like sub-control. The strange version seems to appear when the listdown icon is first clicked; clicking it again makes the proper version appear. If you have any suggestions (even just a referral to a more appropriate forum), please chime in.
Thanks
Rob
Code:
Private Sub PromisedFilter_gotfocus()
Dim PromLst(30) As String, PromCount As Integer, cell As Range, p As Integer
Dim s As String, s1 As String, i As Integer, nrow As Integer, LastRow As Integer
MakingList = True
Application.EnableEvents = False
PromisedFilter.Clear
PromisedFilter.AddItem "(all)"
...code here to generate array PromLst from sheet contents...
For i = 1 To PromCount
If PromLst(i) <> "Promised" Then PromisedFilter.AddItem PromLst(i)
Next i
Application.ScreenUpdating = False
Sheets("seeds").Activate
Application.ScreenUpdating = True
PromisedFilter.DropDown
MakingList = False
Application.EnableEvents = True
End Sub
Rob
![[flowerface] [flowerface] [flowerface]](/data/assets/smilies/flowerface.gif)