Userform Initialization
 

I use the following code to enter data in a Userform, if the data already
exists on the spreadsheet. Everything works great, unless the time is 12:00
(using 24 hour time) then it displays on the Userform as 00:05, even though
it is displayed correctly on the spreadsheet.


'Places data in the userform text boxes if it exists on the spreadsheet

TextBox1.Text = rng(1, 47).Value
TextBox1.Text = Format(TextBox1.Text, "hh:mm")
TextBox2.Text = rng(1, 48).Value
TextBox2.Text = Format(TextBox2.Text, "hh:mm")

Userform Initialization
 

Textbox1.Text = rng(1,47).Text
Textbox2.Text = rng(1,48).Text

--
Regards,
Tom Ogilvy


"Patrick Simonds" wrote in message
...
I use the following code to enter data in a Userform, if the data already
exists on the spreadsheet. Everything works great, unless the time is
12:00
(using 24 hour time) then it displays on the Userform as 00:05, even
though
it is displayed correctly on the spreadsheet.


'Places data in the userform text boxes if it exists on the spreadsheet

TextBox1.Text = rng(1, 47).Value
TextBox1.Text = Format(TextBox1.Text, "hh:mm")
TextBox2.Text = rng(1, 48).Value
TextBox2.Text = Format(TextBox2.Text, "hh:mm")

Userform Initialization
 

Patrick,

Try this

TextBox1.Text = Format(rng(1,47).Value, "hh:mm")
TextBox2.Text = Format(rng(1,48.Value, "hh:mm")

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Patrick Simonds" wrote in message
...
I use the following code to enter data in a Userform, if the data already
exists on the spreadsheet. Everything works great, unless the time is
12:00
(using 24 hour time) then it displays on the Userform as 00:05, even
though
it is displayed correctly on the spreadsheet.


'Places data in the userform text boxes if it exists on the spreadsheet

TextBox1.Text = rng(1, 47).Value
TextBox1.Text = Format(TextBox1.Text, "hh:mm")
TextBox2.Text = rng(1, 48).Value
TextBox2.Text = Format(TextBox2.Text, "hh:mm")