Unspecified Error 80004005

[mhudsora]

Getting weird runtime error from code that should work:

For x = 0 To (UserForm1.ComboBox1.ListCount - 1)

If UserForm1.ComboBox1.List(x) = Userform1.ComboBox2 Then UserForm1.ComboBox1.RemoveItem (x): Exit For
​

Next x

Runtime error is as follows:

Excel run-time error '-2147467259(80004005)'
Unspecified error​

 

[Ruddles]

Does this give you any clues: http://lmgtfy.com/?q=Unspecified+Error+80004005?

 

[mhudsora]

Unfortunately not, the code is too vague and all help on the error just gives general statements. Hoping someone would know what is going wrong.

 

[Ruddles]

Is your combobox bound to a range on your worksheet or do you populate it with VBA?

 

[mhudsora]

Is your combobox bound to a range on your worksheet or do you populate it with VBA?

It is bound to a range on a worksheet but the range can dynamically change.

 

[MickG]

Hi, I think you need to select something in Combobox2
Try this:-

[COLOR=navy]Sub[/COLOR] MG30Sep29
[COLOR=navy]Dim[/COLOR] x [COLOR=navy]As[/COLOR] [COLOR=navy]Integer[/COLOR]
[COLOR=navy]If[/COLOR] Me.ComboBox2.ListIndex > -1 [COLOR=navy]Then[/COLOR]
    [COLOR=navy]For[/COLOR] x = 0 To (UserForm1.ComboBox1.ListCount) - 1
        [COLOR=navy]If[/COLOR] UserForm1.ComboBox1.List(x) = UserForm1.ComboBox2 [COLOR=navy]Then[/COLOR]
            UserForm1.ComboBox1.RemoveItem (x): [COLOR=navy]Exit[/COLOR] For
        [COLOR=navy]End[/COLOR] If
    [COLOR=navy]Next[/COLOR] x
[COLOR=navy]End[/COLOR] [COLOR=navy]If[/COLOR]
[COLOR=navy]End[/COLOR] [COLOR=navy]Sub[/COLOR]

Regards Mick

 

[Ruddles]

I wasn't aware you could remove items from bound comboboxes, but I don't use Excel forms much. When I use them in Access and know I'm going to have to modify them whilst they're active, I populate them by VBA.

 

[mhudsora]

Hi, I think you need to select something in Combobox2
Try this:-

[COLOR=navy]Sub[/COLOR] MG30Sep29
[COLOR=navy]Dim[/COLOR] x [COLOR=navy]As[/COLOR] [COLOR=navy]Integer[/COLOR]
[COLOR=navy]If[/COLOR] Me.ComboBox2.ListIndex > -1 [COLOR=navy]Then[/COLOR]
    [COLOR=navy]For[/COLOR] x = 0 To (UserForm1.ComboBox1.ListCount) - 1
        [COLOR=navy]If[/COLOR] UserForm1.ComboBox1.List(x) = UserForm1.ComboBox2 [COLOR=navy]Then[/COLOR]
            UserForm1.ComboBox1.RemoveItem (x): [COLOR=navy]Exit[/COLOR] For
        [COLOR=navy]End[/COLOR] If
    [COLOR=navy]Next[/COLOR] x
[COLOR=navy]End[/COLOR] [COLOR=navy]If[/COLOR]
[COLOR=navy]End[/COLOR] [COLOR=navy]Sub[/COLOR]

Regards Mick

Thanks Mick for the suggestion, I did try your suggestion of selecting a value for combobox2 first and am still getting the same error. I also rewrote the code following your example but to no avail. Any other suggestions?

 

[mhudsora]

I wasn't aware you could remove items from bound comboboxes, but I don't use Excel forms much. When I use them in Access and know I'm going to have to modify them whilst they're active, I populate them by VBA.

Ruddles,
If I populate through vba, should I be able to remove items from the combobox? Do I need to use an array or is there a different method?
Thanks

 

[MickG]

Hi, The code will not work if you fill the Comboboxes wth a Rowsource/ListFillrange.
I tested the code by filling :-
Combobox1.list = Range("A1:A10").value
This worked and the Selected Item was deleted.
Mick