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")?

"Steve" wrote:

> 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
>
>

On 23 Oct, 12:44, Smallweed <Smallw...@discussions.microsoft.com>
wrote:
> 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")?
>
>
>
> "Steve" wrote:
> > 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- Hide quoted text -
>
> - Show quoted text -

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.

In article <(E-Mail Removed)>,
Steve <(E-Mail Removed)> wrote:

> 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

On 23 Oct, 12:53, JE McGimpsey <jemcgimp...@mvps.org> wrote:
> 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.
>
> In article <1193138866.923016.82...@v23g2000prn.googlegroups.com>,
>
>
>
> Steve <instruct...@hotmail.com> wrote:
> > 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- Hide quoted text -
>
> - Show quoted text -

Sorry JE,

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

apologies