Please help Userform TextBox1 format appear in hh:mm:ss AM/PM format.

[pedie]

Hi,

Please help. Below is my current code.
I want the TextBox1 to show time format in hh:mm:ss AM/PM format.
When i run the it show in general number format.
Thanks

Private Sub TextBox1_Change()
  TextBox1.Value = Range("DigitalClock").Value
End Sub

 

[pedie]

I came up with something funny & it never worked...

Private Sub TextBox1_Change()
Dim i As Integer
  i = TextBox1.Value
  Range("DigitalClock").Value = TextBox1.Value
  Text.NumberFormat = "hh:mm:ss AM/PM"
  
End Sub

 

[pedie]

I came up with something funny & it never worked...I just want TextBox1 format to show "hh:mm:ss AM/PM" everytime....

Might be weird but can be posible...

Private Sub TextBox1_Change()
Dim i As Integer
  i = TextBox1.Value
  Range("DigitalClock").Value = TextBox1.Value
  Text.NumberFormat = "hh:mm:ss AM/PM"
 
End Sub

 

[meldoc]

Try.

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> TextBox1_Change()<br>  TextBox1.Value = Time<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[meldoc]

Or if you are experementing with formating Try.

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> TextBox1_Change()<br>  MyStr = Format(Range("DigitalClock"), "hh:mm:ss AMPM")<br>  TextBox1.Value = MyStr<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[pedie]

Brian, thank you for helping. I dont what I am doing wrong here....
the format shows correcly now but even though when range "DigitalClock" is showing a running clock it does not show in userform textbox1


What could be the problem

Pedie

current

Private Sub TextBox1_Change()
  Range("DigitalClock").Value = TextBox1.Value
  TextBox1.Value = Time
End Sub

 

[meldoc]

Sorry Pedie

I should have explained, I am very lazy, I have posted two possible solutions.
We were cross posting on the second one, use either code separately.
The first one doesn't need the "DigitalClock", it shows the system time.

 

[pedie]

Brian, i understand...it can be a vey lazy day...

I tried it this way...it is showing time format...but the second does not tick..even though i can see that the DigitalClock range in ticking which is located on cell A1.



If you're lazy...you can answer some other time thats okay

 

[pedie]

Got it working now...thanks for helping Brian...
See ya around!

 

[meldoc]

Hi pedie

I don't think that you can do that, using textbox change event.
It only changers when you manually change the value of the textbox.
Try it yourself, use one of the codes, and with the Digital Clock ticking click in the textbox.
Then press the backspace key every couple of seconds, and you will see the textbox value change.
There might be ways around it.
Are you using textbox on a form, or embedded onto a sheet?
Please post the code for Digital Clock,that you are using, better still a link to the place where you got the code from.

EDIT: You have got me interested now, please answer the two questions above, and post the solution. Thanks