Combo Box

[Hazeyt]

I am using combo boxes where one department might have 50 sub depts and another might have only 8.

How do you get the combo box to default to the top record? as some users may not realise you have to scroll back up to the top?

Many thanks

 

[James006]

Hi,
Have you tested: Combobox1.SelectedIndex = 0

 

[Hazeyt]

Please can you give me the code behind this?

The combo box is just a form control from developer and not part of user form if makes difference?

Thanks

 

[James006]

Whenever you are working with objects directly in your spreadsheet, you do have the choice between Form Controls and ActiveX Controls ...

Features are not identical ... Which type have you picked ...?

 

[Hazeyt]

Whenever you are working with objects directly in your spreadsheet, you do have the choice between Form Controls and ActiveX Controls ...

Features are not identical ... Which type have you picked ...?

Form Controls thanks

 

[James006]

You can test following

Sub ResetFormDropDown()
Dim dd As DropDown
Set dd = ActiveSheet.Shapes("Drop Down 1").OLEFormat.Object
dd.ListIndex = 1
End Sub

 

[Hazeyt]

You can test following

Sub ResetFormDropDown()
Dim dd As DropDown
Set dd = ActiveSheet.Shapes("Drop Down 1").OLEFormat.Object
dd.ListIndex = 1
End Sub

Thank you, I will try this.

 

[James006]

Glad to see you could fix your problem

 

[Hazeyt]

Glad to see you could fix your problem

Thank you