=?Utf-8?Q?Heeeelp_with_combos=C2=A1=C2=A1=C2=A1?=

Hi, I want to put a combobox in one of my excels sheet, (a code combobox, not
a form combobox), inserting a subform and inside the subform the combobox is
easy, but I don’t want to use subforms, so I Have the following code:

Private Sub CommandButton1_Click()
If ComboBox1.Visible = True Then
ComboBox1.Visible = False
Else
ComboBox1.Visible = True
asas
End If

End Sub

Private Sub asas()
ComboBox1.AddItem "Mesones", 1
ComboBox1.AddItem "Fray Servando", 2
ComboBox1.AddItem "Empresa", 3
ComboBox1.AddItem "Israel", 4
ComboBox1.AddItem "Consumo Interno", 5
ComboBox1.AddItem "Otros", 6
ComboBox1.DropDownLines = 3
ComboBox1.DropDownWidth = 75
ComboBox1.ListIndex = 0

End Sub

Could someone tell me how to do what I want to do???
PD. I also checked with private sub combobox1_initialize() giving me bad
results.
Thanks.

How did you create this dropdown, from the controls toolbox, or via code. If
the latter, show us the code.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"filo666" <[email protected]> wrote in message
news:[email protected]...
> Hi, I want to put a combobox in one of my excels sheet, (a code combobox,
not
> a form combobox), inserting a subform and inside the subform the combobox
is
> easy, but I don't want to use subforms, so I Have the following code:
>
> Private Sub CommandButton1_Click()
> If ComboBox1.Visible = True Then
> ComboBox1.Visible = False
> Else
> ComboBox1.Visible = True
> asas
> End If
>
> End Sub
>
> Private Sub asas()
> ComboBox1.AddItem "Mesones", 1
> ComboBox1.AddItem "Fray Servando", 2
> ComboBox1.AddItem "Empresa", 3
> ComboBox1.AddItem "Israel", 4
> ComboBox1.AddItem "Consumo Interno", 5
> ComboBox1.AddItem "Otros", 6
> ComboBox1.DropDownLines = 3
> ComboBox1.DropDownWidth = 75
> ComboBox1.ListIndex = 0
>
> End Sub
>
> Could someone tell me how to do what I want to do???
> PD. I also checked with private sub combobox1_initialize() giving me bad
> results.
> Thanks.
>