combo box beginner question...

[Guest]

I've tried to find how to make choices in a combo box but had no luck. This
is the code I wrote, but it doesn't show up in the combo box:


Private Sub Internet_Change()
With Internet
AddItem "A"
AddItem "B"
End With
End Sub


Why doesn't this show up when form is ran???
Thanks ahead of time,
Tom

 

[Tom Ogilvy]

Private Sub Userform_Initialize()
With Me.Internet
AddItem "A"
AddItem "B"
End With
End Sub

If internet is the name of the combobox, it isn't going to change unless you
type something in it or you make a selection - I doubt that is what you
want, so put your code in the Initialize event of the Userform. This should
be in the userform module( select the events from the dropdowns at the top
of the module to make sure they are declared correctly).

 

[moi]

AddItem is correct, but not in the Change-event.
It seems to me you start with an empty combo, so it's value can never be
changed if it's empty.
In Visual Basic Editor, double click on ThisWorbook in your Project Explorer
on the left.
Then, copycat the following piece of code:

Private Sub Workbook_Open()
Sheets(1).ComboBox1.AddItem "A"
Sheets(1).ComboBox1.AddItem "B"
End Sub

 

[Guest]

That's a big help for me. I notice you answer a lot of people's questions, do
you work for Microsoft...No need to answer if to busy.
Thanks for the help

 

[Norman Jones]

Hi Thomas,

In additiion to Tom's suggestion.

Change the lines:

AddItem "A"
AddItem "B" to:
. AddItem "A"
.AddItem "B"

(Prepend with .)

 

[Tom Ogilvy]

You will see very few answers from Microsoft Employees. These are primarily
peer to peer support. Those MS employees that do answer indicate they are
employees with something like

Buddy Rich [MSFT]

or
Buddy Rich [MS]

or something similar.

So, no I am not a microsoft employee.

 

[Tom Ogilvy]

Good catch. Thanks.

--
Regards,
Tom Ogilvy

Hi Thomas,

In additiion to Tom's suggestion.

Change the lines:


(Prepend with .)

 

[Tom Ogilvy]

for completeness - as Norman Jones pointed out, the AddItems need to be
..AddItems with a period to show they are qualified by Me.Internet

Private Sub Userform_Initialize()
With Me.Internet
.AddItem "A"
.AddItem "B"
End With
End Sub

--
Regards,
Tom Ogilvy

You will see very few answers from Microsoft Employees. These are primarily
peer to peer support. Those MS employees that do answer indicate they are
employees with something like

Buddy Rich [MSFT]

or
Buddy Rich [MS]

or something similar.

So, no I am not a microsoft employee.

--
Regards,
Tom Ogilvy

That's a big help for me. I notice you answer a lot of people's

questions,

do
you work for Microsoft...No need to answer if to busy.
Thanks for the help

unless

you

 

[Bob]

I can't seem to get this code to operate. The code is in UserForm1 as shown
below:
Sub UserForm_Initialize()
Load UserForm1
Call Init
Label1.Caption = "Enter System Type:"
CBox1.Value = Null
For i = 1 To 3
CBox1.AddItem SystemType(i).Name
Next i
End Sub

I assumed, to be on safe side, to clear the content of my combobox (CBox1).
The data I want to use to fill the combo box is in a previously loaded array
(SystemType(x).Name, but it obviously doesn't work. Any ideas?

Bob

for completeness - as Norman Jones pointed out, the AddItems need to be
..AddItems with a period to show they are qualified by Me.Internet

Private Sub Userform_Initialize()
With Me.Internet
.AddItem "A"
.AddItem "B"
End With
End Sub

--
Regards,
Tom Ogilvy

You will see very few answers from Microsoft Employees. These are primarily
peer to peer support. Those MS employees that do answer indicate they are
employees with something like

Buddy Rich [MSFT]

or
Buddy Rich [MS]

or something similar.

So, no I am not a microsoft employee.

--
Regards,
Tom Ogilvy

That's a big help for me. I notice you answer a lot of people's

questions,

do
you work for Microsoft...No need to answer if to busy.
Thanks for the help

:

Private Sub Userform_Initialize()
With Me.Internet
AddItem "A"
AddItem "B"
End With
End Sub

If internet is the name of the combobox, it isn't going to change

unless

you
type something in it or you make a selection - I doubt that is what you
want, so put your code in the Initialize event of the Userform. This should
be in the userform module( select the events from the dropdowns at the top
of the module to make sure they are declared correctly).

--
Regards,
Tom Ogilvy


I've tried to find how to make choices in a combo box but had no luck.
This
is the code I wrote, but it doesn't show up in the combo box:


Private Sub Internet_Change()
With Internet
AddItem "A"
AddItem "B"
End With
End Sub


Why doesn't this show up when form is ran???
Thanks ahead of time,
Tom

 

[Dave Peterson]

Check your other thread.

I can't seem to get this code to operate. The code is in UserForm1 as shown
below:
Sub UserForm_Initialize()
Load UserForm1
Call Init
Label1.Caption = "Enter System Type:"
CBox1.Value = Null
For i = 1 To 3
CBox1.AddItem SystemType(i).Name
Next i
End Sub

I assumed, to be on safe side, to clear the content of my combobox (CBox1).
The data I want to use to fill the combo box is in a previously loaded array
(SystemType(x).Name, but it obviously doesn't work. Any ideas?

Bob

for completeness - as Norman Jones pointed out, the AddItems need to be
..AddItems with a period to show they are qualified by Me.Internet

Private Sub Userform_Initialize()
With Me.Internet
.AddItem "A"
.AddItem "B"
End With
End Sub

--
Regards,
Tom Ogilvy

You will see very few answers from Microsoft Employees. These are primarily
peer to peer support. Those MS employees that do answer indicate they are
employees with something like

Buddy Rich [MSFT]

or
Buddy Rich [MS]

or something similar.

So, no I am not a microsoft employee.

--
Regards,
Tom Ogilvy

That's a big help for me. I notice you answer a lot of people's questions,
do
you work for Microsoft...No need to answer if to busy.
Thanks for the help

:

Private Sub Userform_Initialize()
With Me.Internet
AddItem "A"
AddItem "B"
End With
End Sub

If internet is the name of the combobox, it isn't going to change unless
you
type something in it or you make a selection - I doubt that is what you
want, so put your code in the Initialize event of the Userform. This
should
be in the userform module( select the events from the dropdowns at the
top
of the module to make sure they are declared correctly).

--
Regards,
Tom Ogilvy


I've tried to find how to make choices in a combo box but had no luck.
This
is the code I wrote, but it doesn't show up in the combo box:


Private Sub Internet_Change()
With Internet
AddItem "A"
AddItem "B"
End With
End Sub


Why doesn't this show up when form is ran???
Thanks ahead of time,
Tom