changing format of a column in a listbox

[Dale Fye]

I have a column in a listbox that should have a variety of datatypes in it
(text, numeric, numeric formatted a percent) which is being pulled from a
column in another worksheet. Unfortunately, when the data is pulled in:

me.lst_mylist.list(rowPointer, 4) = mySheet.Cells(somevalue, 5)

the values that are formatted as percentages in MySheet, are getting
converted to a decimal value in the list. Anybody have any idea how to
format the values from MySheet so that they appear properly in the list?

Text values should appear as text
values that are formatted as percent should show up that way
other numbers should show up that way

If I go into MySheet and manually insert an apostrophe before the items
formated as percent, they show up properly in the listbox, put if I
concatenate the apostrophe to the value they all show up as 'Yes, or '1
instead of 100%.

Dale

 

[Leith Ross]

I have a column in a listbox that should have a variety of datatypes in it
(text, numeric, numeric formatted a percent) which is being pulled from a
column in another worksheet. Unfortunately, when the data is pulled in:

me.lst_mylist.list(rowPointer, 4) = mySheet.Cells(somevalue, 5)

the values that are formatted as percentages in MySheet, are getting
converted to a decimal value in the list. Anybody have any idea how to
format the values from MySheet so that they appear properly in the list?

Text values should appear as text
values that are formatted as percent should show up that way
other numbers should show up that way

If I go into MySheet and manually insert an apostrophe before the items
formated as percent, they show up properly in the listbox, put if I
concatenate the apostrophe to the value they all show up as 'Yes, or '1
instead of 100%.

Dale

Hello Dale,

Everything that is loaded into a ListBox is String Data. Worksheet
cell values are by default variant. If you want to load the ListBox
with what appears in the cell then you need to use the TEXT property
of the cell.

me.lst_mylist.list(rowPointer, 4) = mySheet.Cells(somevalue,
5).Text

Sincerely,
Leith Ross

 

[Dale Fye]

Thanks.

That did the job.