Hi guys,

I'm using the following for a series of comboxes to display the dd
list when the combobox is selected (using tab as opposed to mouse
clicks).

Private Sub ComboBox2_Enter()
ComboBox2.DropDown
End Sub

This works fine,but only on alternate boxes! ComboBox2 works fine, 3
doesn't work, 4 does & so on.

Any ideas?

Cheers,
JF.

The problem is that a combo box cannot drop down while another is in the
state. So you have to give the departing combobox a little time to close:

Assuming the userform has 4 comboboxes:

Private Sub UserForm_Initialize()
ComboBox1.List = Array("a", "b", "c")
ComboBox2.List = Array("a", "b", "c")
ComboBox3.List = Array("a", "b", "c")
ComboBox4.List = Array("a", "b", "c")
End Sub

Private Sub ComboBox1_Enter()
Set CB = ComboBox1
Application.OnTime Now, "DD"
End Sub

Private Sub ComboBox2_Enter()
Set CB = ComboBox2
Application.OnTime Now, "DD"
End Sub

Private Sub ComboBox3_Enter()
Set CB = ComboBox3
Application.OnTime Now, "DD"
End Sub

Private Sub ComboBox4_Enter()
Set CB = ComboBox4
Application.OnTime Now, "DD"
End Sub

And in a standard module:

Public CB As ComboBox

Sub DD()
CB.DropDown
End Sub



--
Jim
<(E-Mail Removed)> wrote in message
news:2e7496cc-1b79-47c7-807a-(E-Mail Removed)...
| Hi guys,
|
| I'm using the following for a series of comboxes to display the dd
| list when the combobox is selected (using tab as opposed to mouse
| clicks).
|
| Private Sub ComboBox2_Enter()
| ComboBox2.DropDown
| End Sub
|
| This works fine,but only on alternate boxes! ComboBox2 works fine, 3
| doesn't work, 4 does & so on.
|
| Any ideas?
|
| Cheers,
| JF.

Cheers Jim, I'll give it a go in a bit.

On 6 Mar, 14:53, "Jim Rech" <jrr...@live.com> wrote:
> The problem is that a combo box cannot drop down while another is in the
> state. *So you have to give the departing combobox a little time to close:
>
> Assuming the userform has 4 comboboxes:
>
> Private Sub UserForm_Initialize()
> * * ComboBox1.List = Array("a", "b", "c")
> * * ComboBox2.List = Array("a", "b", "c")
> * * ComboBox3.List = Array("a", "b", "c")
> * * ComboBox4.List = Array("a", "b", "c")
> End Sub
>
> Private Sub ComboBox1_Enter()
> * * Set CB = ComboBox1
> * * Application.OnTime Now, "DD"
> End Sub
>
> Private Sub ComboBox2_Enter()
> * * Set CB = ComboBox2
> * * Application.OnTime Now, "DD"
> End Sub
>
> Private Sub ComboBox3_Enter()
> * * Set CB = ComboBox3
> * * Application.OnTime Now, "DD"
> End Sub
>
> Private Sub ComboBox4_Enter()
> * * Set CB = ComboBox4
> * * Application.OnTime Now, "DD"
> End Sub
>
> And in a standard module:
>
> Public CB As ComboBox
>
> Sub DD()
> * * CB.DropDown
> End Sub
>
> --
> Jim<joshuafanda...@dsl.pipex.com> wrote in message
>
> news:2e7496cc-1b79-47c7-807a-(E-Mail Removed)...
> | Hi guys,
> |
> | I'm using the following for a series of comboxes to display the dd
> | list when the combobox is selected (using tab as opposed to mouse
> | clicks).
> |
> | Private Sub ComboBox2_Enter()
> | ComboBox2.DropDown
> | End Sub
> |
> | This works fine,but only on alternate boxes! ComboBox2 works fine, 3
> | doesn't work, 4 does & so on.
> |
> | Any ideas?
> |
> | Cheers,
> | JF.

Thanks again JR - it worked great.

Cheers,
JF