Add 2nd Column to ComboBox
 

Hi,
I am populating the ComboBoxes on my UserForm with the following code:


For v = 13 To 16

UserForm1.MultiPage1.Pages(0).MultiPage2.Pages(0). ComboBox1.AddItem
Format((Worksheets("Worksheet1").Cells(v, 9).Value), "#0.000")

Next v


I want to add a second column that is not visible to the user. The
trick is that I DO NOT want to format the 2nd column in the manner that
I am formatting the present column. And I want to make the new column
the bound column.

Any suggestions?

Your help is greatly appreciated!

Add 2nd Column to ComboBox
 

Justin,
You can set the columnwidth of the 2nd to 0 (or as small as possible).
You would need to set the columncount=2 and the boundcolumn to 2 also.

By the way, this would be a good situation to use a With block, to reduce
the number of objects (the number of "."s) that have to be resolved each
time.
With UserForm1.MultiPage1.Pages(0).MultiPage2.Pages(0). ComboBox1
For v = 13 To 16
.AddItem Format((Worksheets("Worksheet1").Cells(v, 9).Value),
"#0.000")
Next v
End With

NickHK

"Justin"
groups.com...
Hi,
I am populating the ComboBoxes on my UserForm with the following code:


For v = 13 To 16

UserForm1.MultiPage1.Pages(0).MultiPage2.Pages(0). ComboBox1.AddItem
Format((Worksheets("Worksheet1").Cells(v, 9).Value), "#0.000")

Next v


I want to add a second column that is not visible to the user. The
trick is that I DO NOT want to format the 2nd column in the manner that
I am formatting the present column. And I want to make the new column
the bound column.

Any suggestions?

Your help is greatly appreciated!

Add 2nd Column to ComboBox
 

With UserForm1.MultiPage1.Pages(0).MultiPage2.Pages(0). ComboBox1
.Clear
.columncount = 2
.boundcolumn = 2
For v = 13 To 16


.AddItem Format((Worksheets("Worksheet1").Cells(v, 9).Value), "#0.000")
.list(.listcount-1,1) = Worksheets("Worksheet1").Cells(v, 9).Value
Next v
End with

--
Regards,
Tom Ogilvy



"Justin" wrote:

Hi,
I am populating the ComboBoxes on my UserForm with the following code:


For v = 13 To 16

UserForm1.MultiPage1.Pages(0).MultiPage2.Pages(0). ComboBox1.AddItem
Format((Worksheets("Worksheet1").Cells(v, 9).Value), "#0.000")

Next v


I want to add a second column that is not visible to the user. The
trick is that I DO NOT want to format the 2nd column in the manner that
I am formatting the present column. And I want to make the new column
the bound column.

Any suggestions?

Your help is greatly appreciated!

Add 2nd Column to ComboBox
 

forgot to hide the column

With UserForm1.MultiPage1.Pages(0).MultiPage2.Pages(0). ComboBox1
.Clear
.columncount = 2
.boundcolumn = 2
.ColumnWidths = "-1;0"
For v = 13 To 16


.AddItem Format((Worksheets("Worksheet1").Cells(v, 9).Value), "#0.000")
.list(.listcount-1,1) = Worksheets("Worksheet1").Cells(v, 9).Value
Next v
End with

--
Regards,
Tom Ogilvy


"Tom Ogilvy" wrote:

With UserForm1.MultiPage1.Pages(0).MultiPage2.Pages(0). ComboBox1
.Clear
.columncount = 2
.boundcolumn = 2
For v = 13 To 16


.AddItem Format((Worksheets("Worksheet1").Cells(v, 9).Value), "#0.000")
.list(.listcount-1,1) = Worksheets("Worksheet1").Cells(v, 9).Value
Next v
End with

--
Regards,
Tom Ogilvy



"Justin" wrote:

Hi,
I am populating the ComboBoxes on my UserForm with the following code:


For v = 13 To 16

UserForm1.MultiPage1.Pages(0).MultiPage2.Pages(0). ComboBox1.AddItem
Format((Worksheets("Worksheet1").Cells(v, 9).Value), "#0.000")

Next v


I want to add a second column that is not visible to the user. The
trick is that I DO NOT want to format the 2nd column in the manner that
I am formatting the present column. And I want to make the new column
the bound column.

Any suggestions?

Your help is greatly appreciated!

Add 2nd Column to ComboBox
 

Thanks that partially got the job done! I am going to post more
questions in a new topic that I can't figure out now. I really
appreciate the help guys!

Tom Ogilvy wrote:
forgot to hide the column

With UserForm1.MultiPage1.Pages(0).MultiPage2.Pages(0). ComboBox1
.Clear
.columncount = 2
.boundcolumn = 2
.ColumnWidths = "-1;0"
For v = 13 To 16


.AddItem Format((Worksheets("Worksheet1").Cells(v, 9).Value), "#0.000")
.list(.listcount-1,1) = Worksheets("Worksheet1").Cells(v, 9).Value
Next v
End with

--
Regards,
Tom Ogilvy


"Tom Ogilvy" wrote:

With UserForm1.MultiPage1.Pages(0).MultiPage2.Pages(0). ComboBox1
.Clear
.columncount = 2
.boundcolumn = 2
For v = 13 To 16


.AddItem Format((Worksheets("Worksheet1").Cells(v, 9).Value), "#0.000")
.list(.listcount-1,1) = Worksheets("Worksheet1").Cells(v, 9).Value
Next v
End with

--
Regards,
Tom Ogilvy



"Justin" wrote:

Hi,
I am populating the ComboBoxes on my UserForm with the following code:


For v = 13 To 16

UserForm1.MultiPage1.Pages(0).MultiPage2.Pages(0). ComboBox1.AddItem
Format((Worksheets("Worksheet1").Cells(v, 9).Value), "#0.000")

Next v


I want to add a second column that is not visible to the user. The
trick is that I DO NOT want to format the 2nd column in the manner that
I am formatting the present column. And I want to make the new column
the bound column.

Any suggestions?

Your help is greatly appreciated!