Does anyone know how to make a combo box show a value when a sheet opens?
Mine are always blank when I open them until I select a value.

thanks

tp

Hi Teepee,

Try something like:

Me.ComboBox1.ListIndex = 0


---
Regards,
Norman


"teepee" <(E-Mail Removed)> wrote in message
news:4645ed29$(E-Mail Removed)...
> Does anyone know how to make a combo box show a value when a sheet opens?
> Mine are always blank when I open them until I select a value.
>
> thanks
>
> tp
>
>

thanks for trying.
says 'invalid use of me keyword.'

"Norman Jones" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
Hi Teepee,

Try something like:

Me.ComboBox1.ListIndex = 0


---
Regards,
Norman


"teepee" <(E-Mail Removed)> wrote in message
news:4645ed29$(E-Mail Removed)...
> Does anyone know how to make a combo box show a value when a sheet opens?
> Mine are always blank when I open them until I select a value.
>
> thanks
>
> tp
>
>

Hi Teepee,

Where is your code?

I assumed that the combobox code would be either
in a userform module or a worksheet module, in which
case the keyword would not cause a problem and would
refer to the userform or the sheet holding the code.


---
Regards,
Norman


"teepee" <(E-Mail Removed)> wrote in message
news:4646132e$(E-Mail Removed)...
> thanks for trying.
> says 'invalid use of me keyword.'
>
> "Norman Jones" <(E-Mail Removed)> wrote in message
> news:%(E-Mail Removed)...
> Hi Teepee,
>
> Try something like:
>
> Me.ComboBox1.ListIndex = 0
>
>
> ---
> Regards,
> Norman
>
>
> "teepee" <(E-Mail Removed)> wrote in message
> news:4645ed29$(E-Mail Removed)...
>> Does anyone know how to make a combo box show a value when a sheet
>> opens?
>> Mine are always blank when I open them until I select a value.
>>
>> thanks
>>
>> tp
>>
>>
>
>
>

What kind of combobox is it?

A dropdown from the Forms toolbar--or a combobox from the Control toolbox
toolbar?

And where did you put the code?

teepee wrote:
>
> thanks for trying.
> says 'invalid use of me keyword.'
>
> "Norman Jones" <(E-Mail Removed)> wrote in message
> news:%(E-Mail Removed)...
> Hi Teepee,
>
> Try something like:
>
> Me.ComboBox1.ListIndex = 0
>
> ---
> Regards,
> Norman
>
> "teepee" <(E-Mail Removed)> wrote in message
> news:4645ed29$(E-Mail Removed)...
> > Does anyone know how to make a combo box show a value when a sheet opens?
> > Mine are always blank when I open them until I select a value.
> >
> > thanks
> >
> > tp
> >
> >

--

Dave Peterson

Hi

It is a control toolbox comb box. I tried executing Norman's code on the
page - giving the error described above - and inside the box, where it just
did nothing.

And you placed the code behind the worksheet--not in a general module, not in
the ThisWorkbook module?

You may want to share more of the code.

Did you put it in the worksheet_activate event or something else???

teepee wrote:
>
> Hi
>
> It is a control toolbox comb box. I tried executing Norman's code on the
> page - giving the error described above - and inside the box, where it just
> did nothing.

--

Dave Peterson

Hi Tepee,

The following code in ths worksheet module worked foe me:

'=============>>
Private Sub Worksheet_Activate()
With Me.ComboBox1
.ListFillRange = "A1: A10"
.ListIndex = 0
End With
End Sub
'<<=============



---
Regards,
Norman


"teepee" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hi
>
> It is a control toolbox comb box. I tried executing Norman's code on the
> page - giving the error described above - and inside the box, where it
> just
> did nothing.
>
>

"Norman Jones" <(E-Mail Removed)> wrote in message
news:O1M$(E-Mail Removed)...
Hi Tepee,

The following code in ths worksheet module worked foe me:

'=============>>
Private Sub Worksheet_Activate()
With Me.ComboBox1
.ListFillRange = "A1: A10"
.ListIndex = 0
End With
End Sub
'<<=============


many thanks norman - that worked a treat.