ListBox Select every other cell

[TKB]

Hello,

I currently have the following code populating a list box i have:

ComboBox1.List = Application.Transpose(Sheets("Folders and Documents").Range("A1:D1").Value) 'Supplied to me from AlphaFrog!


The code im looking for will be used elsewhere, but i havent created the data yet so im using the above as a reference. What i need to do is have that same type of function, but only include every other cell in the list box.

So in the list, instead of showing A,B,C,D,E,F,G,H it would show A,C,E,G

Any ideas?

Thanks,

Trey

 

[jim may]

For 4 Items use sometink like...

Sub Foo()
For i = 0 To 3
   ActiveSheet.OLEObjects("Listbox1"). _
      Object.AddItem Cells(1, (i * 2) + 1).Value  'The Values in Cells A1, C1, E1, and G1
Next i
End Sub

 

[TKB]

Jim, i made a mistake in my discription... It should have said ComboBox... Sorry.

 

[jim may]

Jim, i made a mistake in my discription... It should have said ComboBox... Sorry.

Try substituting Combobox1 versus Listbox1.
The Combobox must previously exist, of course

 

[TKB]

When trying that it says:

"Unable to get the OLEObjects property of the worksheet class"

I have no clue what that means... and ive never used.

And I dont think i ever defined that this is a combobox in a user form.

Thanks for your help on this Jim!

 

[jim may]

Jim, i made a mistake in my discription... It should have said ComboBox... Sorry.

My code is for a Listbox directly on a worksheet, not on a User Form.
I'm in meeting now, so I am unable to look any further, for now.

Jim