Combobox number formats

  • Thread starter Thread starter Steve
  • Start date Start date
S

Steve

HYCH
Am using the code below, to pull back the a list of Times (format
hh:mm)

But still shows as decimal numbers


any help please !!!


Private Sub UserForm_Initialize()
Dim cPart As Range
Dim ws As Worksheet
Set ws = Worksheets("Lists")
For Each cPart In ws.Range("C1:C88")
With Me.ComboBox1
.AddItem cPart.Value
.List(.ListCount - 1, 1) = Format(cPart.Offset(0, 1).Value,
"hh:mm")
End With
Next cPart
Me.ComboBox1.Value = ""
Me.ComboBox1.SetFocus
End Sub


Steve
 
The .AddItem line is what's adding the text to the combo box - shouldn't this
be where you put Format(cPart.Value, "hh:mm")?
 
The .AddItem line is what's adding the text to the combo box - shouldn't this
be where you put Format(cPart.Value, "hh:mm")?









- Show quoted text -
Click to expand...

What a star, of course, thanks Small

:)
 
See one answer in microsoft.public.excel

Please don't post the same question to multiple newsgroups. It tends to
fragment any answers you get, and it potentially wastes the time of
those responding to questions that have already been answered in another
group.
 
See one answer in microsoft.public.excel

Please don't post the same question to multiple newsgroups. It tends to
fragment any answers you get, and it potentially wastes the time of
those responding to questions that have already been answered in another
group.







- Show quoted text -
Click to expand...

Sorry JE,

Misc, seems to be very slow just recently, and meant to poast it here.

apologies
 
Back
Top