Automation error on Combo box

HI There Gurus

Need some help, As I am having "writers Block" on an error I am getting.

I have Combo Boxes on my "TEMPLATE" Worksheet which displays a list from the "Product"(Combobox2) or "Packaging" (Combobox3) Tabs. YOu have to select the cell where the info is to be stored. Then have the option to search, or partially search for the product, then be able to select it. The value will then be stored and the combo box will reset to empty.

I always worked, but not sure if it is an Office365 error or me.

I get the following Error:

Run-time error '-2146232576 (80131700)':
Automation error

Then the debugger takes met to this section

Please Login or Register  to view this content.

Thanks very much

Hi,

your computer does not have this ActiveX (or restricted access), to see with your IT ...

As a reminder you can use a VBA Collection rather than an external ActiveX.

Or better than any VBA Collection or any Windows ArrayList just use an array variable combined with the VBA Filter function ...

Good morning Marc

Thank you so much for the insite.
Unfortunately I am not as Skilled up on VBA for the #3 Comment, but surly going to investigate and research that option

Thanks

Are you working with a Mac PC?

Originally Posted by ronettes

Unfortunately I am not as Skilled up on VBA for the #3 Comment

A Filter VBA function sample demonstration to update to your worksheet module :

PHP Code: 

Sub FilterList(CBox As ComboBox, Ws As Worksheet)
    CBox.List = Filter(Application.Transpose(Ws.Range("A2", Ws.[A1].End(xlDown))), CBox, True, 1)
    Application.EnableEvents = False
    CBox.DropDown
    Application.EnableEvents = True
End Sub

Private Sub ComboBox2_Change()
    FilterList ComboBox2, Sheet4
End Sub

Private Sub ComboBox2_Click()
    If Not Intersect(ActiveCell, [A8:A17]) Is Nothing Then
        ActiveCell = ComboBox2
        ComboBox2 = ""
    End If
End Sub

Private Sub ComboBox2_DropButtonClick()
    FilterList ComboBox2, Sheet4
End Sub

Private Sub ComboBox3_Change()
    FilterList ComboBox3, Sheet7
End Sub

Private Sub ComboBox3_Click()
    If Not Intersect(ActiveCell, [A24:A33]) Is Nothing Then
        ActiveCell = ComboBox3
        ComboBox3 = ""
    End If
End Sub

Private Sub ComboBox3_DropButtonClick()
    FilterList ComboBox3, Sheet7
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

But the question is : why using an useless ArrayList for this purpose ?!