The ComboBox1 doesn't initialize the list automatically. It only puts up a
blank ComboBox . Here is the code I am using:

Private Sub Form1_Load()
ComboBox1.Items.Add ("Open App1")
ComboBox1.Items.Add ("Open App2")
ComboBox1.Items.Add ("Open App3")
ComboBox1.Items.Add ("Open App4")
End Sub

I asume that the combox is on a userform so try this:

Private Sub UserForm_Initialize()
ComboBox1.AddItem ("Open App1")
ComboBox1.AddItem ("Open App2")
ComboBox1.AddItem ("Open App3")
ComboBox1.AddItem ("Open App4")
End Sub

//Björn
"Philosophaie" skrev:

> The ComboBox1 doesn't initialize the list automatically. It only puts up a
> blank ComboBox . Here is the code I am using:
>
> Private Sub Form1_Load()
> ComboBox1.Items.Add ("Open App1")
> ComboBox1.Items.Add ("Open App2")
> ComboBox1.Items.Add ("Open App3")
> ComboBox1.Items.Add ("Open App4")
> End Sub
>
>
>

The change in the format still did not list the additem at startup. Is there
another subroutine to initilize each combobox1 item?

"Björn" wrote:

> I asume that the combox is on a userform so try this:
>
> Private Sub UserForm_Initialize()
> ComboBox1.AddItem ("Open App1")
> ComboBox1.AddItem ("Open App2")
> ComboBox1.AddItem ("Open App3")
> ComboBox1.AddItem ("Open App4")
> End Sub
>
> //Björn
> "Philosophaie" skrev:
>
> > The ComboBox1 doesn't initialize the list automatically. It only puts up a
> > blank ComboBox . Here is the code I am using:
> >
> > Private Sub Form1_Load()
> > ComboBox1.Items.Add ("Open App1")
> > ComboBox1.Items.Add ("Open App2")
> > ComboBox1.Items.Add ("Open App3")
> > ComboBox1.Items.Add ("Open App4")
> > End Sub
> >
> >
> >

"Philosophaie" wrote:

> The change in the format still did not list the additem at startup. The problem maybe that the combobox is located on the Actual worksheet not on a userform connected with the worksheet. Can the combobox on the worksheet?>
> "Björn" wrote:
>
> > I asume that the combox is on a userform so try this:
> >
> > Private Sub UserForm_Initialize()
> > ComboBox1.AddItem ("Open App1")
> > ComboBox1.AddItem ("Open App2")
> > ComboBox1.AddItem ("Open App3")
> > ComboBox1.AddItem ("Open App4")
> > End Sub
> >
> > //Björn
> > "Philosophaie" skrev:
> >
> > > The ComboBox1 doesn't initialize the list automatically. It only puts up a
> > > blank ComboBox . Here is the code I am using:
> > >
> > > Private Sub Form1_Load()
> > > ComboBox1.Items.Add ("Open App1")
> > > ComboBox1.Items.Add ("Open App2")
> > > ComboBox1.Items.Add ("Open App3")
> > > ComboBox1.Items.Add ("Open App4")
> > > End Sub
> > >
> > >
> > >

The combobox is located on the actual worksheet not a userform. Can the
combobox be initiallized on the worksheet?

"Philosophaie" wrote:

> The change in the format still did not list the additem at startup. Is there
> another subroutine to initilize each combobox1 item?
>
> "Björn" wrote:
>
> > I asume that the combox is on a userform so try this:
> >
> > Private Sub UserForm_Initialize()
> > ComboBox1.AddItem ("Open App1")
> > ComboBox1.AddItem ("Open App2")
> > ComboBox1.AddItem ("Open App3")
> > ComboBox1.AddItem ("Open App4")
> > End Sub
> >
> > //Björn
> > "Philosophaie" skrev:
> >
> > > The ComboBox1 doesn't initialize the list automatically. It only puts up a
> > > blank ComboBox . Here is the code I am using:
> > >
> > > Private Sub Form1_Load()
> > > ComboBox1.Items.Add ("Open App1")
> > > ComboBox1.Items.Add ("Open App2")
> > > ComboBox1.Items.Add ("Open App3")
> > > ComboBox1.Items.Add ("Open App4")
> > > End Sub
> > >
> > >
> > >

Maybe you could use a macro that runs when the workbook is opened.

Sub Auto_Open()
with worksheets("sheet9999).combobox1
.additem "Open App1"
.additem "Open App2"
.additem "Open App3"
.additem "Open App4"
end with
end sub

Philosophaie wrote:
>
> The ComboBox1 doesn't initialize the list automatically. It only puts up a
> blank ComboBox . Here is the code I am using:
>
> Private Sub Form1_Load()
> ComboBox1.Items.Add ("Open App1")
> ComboBox1.Items.Add ("Open App2")
> ComboBox1.Items.Add ("Open App3")
> ComboBox1.Items.Add ("Open App4")
> End Sub
>
>

--

Dave Peterson

Copied exactly except sheet1 and it didn't work. Does the location of
combobox1 being on the worksheet rather than the userform?

"Dave Peterson" wrote:

> Maybe you could use a macro that runs when the workbook is opened.
>
> Sub Auto_Open()
> with worksheets("sheet9999).combobox1
> .additem "Open App1"
> .additem "Open App2"
> .additem "Open App3"
> .additem "Open App4"
> end with
> end sub
>
> Philosophaie wrote:
> >
> > The ComboBox1 doesn't initialize the list automatically. It only puts up a
> > blank ComboBox . Here is the code I am using:
> >
> > Private Sub Form1_Load()
> > ComboBox1.Items.Add ("Open App1")
> > ComboBox1.Items.Add ("Open App2")
> > ComboBox1.Items.Add ("Open App3")
> > ComboBox1.Items.Add ("Open App4")
> > End Sub
> >
> >
>
> --
>
> Dave Peterson
>

Did you correct my other typo--missing a closing double quote:

Sub Auto_Open()
with worksheets("sheet1").combobox1 '<-- added final " mark.
.additem "Open App1"
.additem "Open App2"
.additem "Open App3"
.additem "Open App4"
end with
end sub

Is it a combobox from the Control toolbox toolbar?

Is the combobox on Sheet1 (after the change)?

Did you put the code in a general module and run it from there?

When you say it didn't work, what did you try and how did it fail?


Philosophaie wrote:
>
> Copied exactly except sheet1 and it didn't work. Does the location of
> combobox1 being on the worksheet rather than the userform?
>
> "Dave Peterson" wrote:
>
> > Maybe you could use a macro that runs when the workbook is opened.
> >
> > Sub Auto_Open()
> > with worksheets("sheet9999).combobox1
> > .additem "Open App1"
> > .additem "Open App2"
> > .additem "Open App3"
> > .additem "Open App4"
> > end with
> > end sub
> >
> > Philosophaie wrote:
> > >
> > > The ComboBox1 doesn't initialize the list automatically. It only puts up a
> > > blank ComboBox . Here is the code I am using:
> > >
> > > Private Sub Form1_Load()
> > > ComboBox1.Items.Add ("Open App1")
> > > ComboBox1.Items.Add ("Open App2")
> > > ComboBox1.Items.Add ("Open App3")
> > > ComboBox1.Items.Add ("Open App4")
> > > End Sub
> > >
> > >
> >
> > --
> >
> > Dave Peterson
> >

--

Dave Peterson

Have tried using form: sub userform_initialize() method, inserting combobox1
on userform1. Tried both sub Auto_Open() and Workbook_open() methods
inserting combobox1 onto sheet1. I believe there is a boolean function or
syntax I am missing but just haven't found it yet. I have gotten
CommandButtons, ToggleButtons and Textboxes to work in VBA but this is
giving me the most problems. I also got comboboxes to work in Visual
Studio(VB.net).

"Dave Peterson" wrote:

> Did you correct my other typo--missing a closing double quote:
>
> Sub Auto_Open()
> with worksheets("sheet1").combobox1 '<-- added final " mark.
> .additem "Open App1"
> .additem "Open App2"
> .additem "Open App3"
> .additem "Open App4"
> end with
> end sub
>
> Is it a combobox from the Control toolbox toolbar?
>
> Is the combobox on Sheet1 (after the change)?
>
> Did you put the code in a general module and run it from there?
>
> When you say it didn't work, what did you try and how did it fail?
>
>
> Philosophaie wrote:
> >
> > Copied exactly except sheet1 and it didn't work. Does the location of
> > combobox1 being on the worksheet rather than the userform?
> >
> > "Dave Peterson" wrote:
> >
> > > Maybe you could use a macro that runs when the workbook is opened.
> > >
> > > Sub Auto_Open()
> > > with worksheets("sheet9999).combobox1
> > > .additem "Open App1"
> > > .additem "Open App2"
> > > .additem "Open App3"
> > > .additem "Open App4"
> > > end with
> > > end sub
> > >
> > > Philosophaie wrote:
> > > >
> > > > The ComboBox1 doesn't initialize the list automatically. It only puts up a
> > > > blank ComboBox . Here is the code I am using:
> > > >
> > > > Private Sub Form1_Load()
> > > > ComboBox1.Items.Add ("Open App1")
> > > > ComboBox1.Items.Add ("Open App2")
> > > > ComboBox1.Items.Add ("Open App3")
> > > > ComboBox1.Items.Add ("Open App4")
> > > > End Sub
> > > >
> > > >
> > >
> > > --
> > >
> > > Dave Peterson
> > >
>
> --
>
> Dave Peterson
>

Userform_initialize won't help if the stuff isn't on a userform.

I'd double check to see if the combobox is from the control toolbox toolbar and
also check the name.

If that doesn't help, I still haven't seen your description of what goes wrong.

Philosophaie wrote:
>
> Have tried using form: sub userform_initialize() method, inserting combobox1
> on userform1. Tried both sub Auto_Open() and Workbook_open() methods
> inserting combobox1 onto sheet1. I believe there is a boolean function or
> syntax I am missing but just haven't found it yet. I have gotten
> CommandButtons, ToggleButtons and Textboxes to work in VBA but this is
> giving me the most problems. I also got comboboxes to work in Visual
> Studio(VB.net).
>
> "Dave Peterson" wrote:
>
> > Did you correct my other typo--missing a closing double quote:
> >
> > Sub Auto_Open()
> > with worksheets("sheet1").combobox1 '<-- added final " mark.
> > .additem "Open App1"
> > .additem "Open App2"
> > .additem "Open App3"
> > .additem "Open App4"
> > end with
> > end sub
> >
> > Is it a combobox from the Control toolbox toolbar?
> >
> > Is the combobox on Sheet1 (after the change)?
> >
> > Did you put the code in a general module and run it from there?
> >
> > When you say it didn't work, what did you try and how did it fail?
> >
> >
> > Philosophaie wrote:
> > >
> > > Copied exactly except sheet1 and it didn't work. Does the location of
> > > combobox1 being on the worksheet rather than the userform?
> > >
> > > "Dave Peterson" wrote:
> > >
> > > > Maybe you could use a macro that runs when the workbook is opened.
> > > >
> > > > Sub Auto_Open()
> > > > with worksheets("sheet9999).combobox1
> > > > .additem "Open App1"
> > > > .additem "Open App2"
> > > > .additem "Open App3"
> > > > .additem "Open App4"
> > > > end with
> > > > end sub
> > > >
> > > > Philosophaie wrote:
> > > > >
> > > > > The ComboBox1 doesn't initialize the list automatically. It only puts up a
> > > > > blank ComboBox . Here is the code I am using:
> > > > >
> > > > > Private Sub Form1_Load()
> > > > > ComboBox1.Items.Add ("Open App1")
> > > > > ComboBox1.Items.Add ("Open App2")
> > > > > ComboBox1.Items.Add ("Open App3")
> > > > > ComboBox1.Items.Add ("Open App4")
> > > > > End Sub
> > > > >
> > > > >
> > > >
> > > > --
> > > >
> > > > Dave Peterson
> > > >
> >
> > --
> >
> > Dave Peterson
> >

--

Dave Peterson