format userform text box

[Zygan]

how can you format a userform textbox to display time ?

i have set the string as time format ????

how do i do this ?

[Bob Phillips]

what string?

just use

Format(TextBox1.Text,"hh:mm:ss")

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Zygan" <[email protected]> wrote in
message news:[email protected]...
>
> how can you format a userform textbox to display time ?
>
> i have set the string as time format ????
>
> how do i do this ?
>
>
> --
> Zygan
> ------------------------------------------------------------------------
> Zygan's Profile:
http://www.excelforum.com/member.php...o&userid=34423
> View this thread: http://www.excelforum.com/showthread...hreadid=560575
>

[Zygan]

sorry to sound completely newb but hay,

i have this code (not all of it but to the point)

"indate" is a textbox in the userform

Private Sub UserForm_Activate()
datein = Sheets("sheet1").Range("a2")

indate.Text = datein

End Sub


where do i put your code ????
if i place it anywhere in this code it errors ????

[Bob Phillips]

Private Sub UserForm_Activate()
datein = Sheets("sheet1").Range("a2")

indate.Text = Format(datein,"hh:mm:ss")

End Sub


If the cell is already formatted as time, you could use


Private Sub UserForm_Activate()

indate.Text = Sheets("sheet1").Range("A2").Text


End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Zygan" <[email protected]> wrote in
message news:[email protected]...
>
> sorry to sound completely newb but hay,
>
> i have this code (not all of it but to the point)
>
> "indate" is a textbox in the userform
>
> Private Sub UserForm_Activate()
> datein = Sheets("sheet1").Range("a2")
>
> indate.Text = datein
>
> End Sub
>
>
> where do i put your code ????
> if i place it anywhere in this code it errors ????
>
>
> --
> Zygan
> ------------------------------------------------------------------------
> Zygan's Profile:
http://www.excelforum.com/member.php...o&userid=34423
> View this thread: http://www.excelforum.com/showthread...hreadid=560575
>

[Bob Phillips]

Private Sub UserForm_Activate()
datein = Sheets("sheet1").Range("a2")

indate.Text = Format(datein,"hh:mm:ss")

End Sub


If the cell is already formatted as time, you could use


Private Sub UserForm_Activate()

indate.Text = Sheets("sheet1").Range("A2").Text


End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Zygan" <[email protected]> wrote in
message news:[email protected]...
>
> sorry to sound completely newb but hay,
>
> i have this code (not all of it but to the point)
>
> "indate" is a textbox in the userform
>
> Private Sub UserForm_Activate()
> datein = Sheets("sheet1").Range("a2")
>
> indate.Text = datein
>
> End Sub
>
>
> where do i put your code ????
> if i place it anywhere in this code it errors ????
>
>
> --
> Zygan
> ------------------------------------------------------------------------
> Zygan's Profile:
http://www.excelforum.com/member.php...o&userid=34423
> View this thread: http://www.excelforum.com/showthread...hreadid=560575
>