Time format in userform textbox
Hi all,
I thought this would be an easy solve but it has me baffled. I've read quite a few old posts and still haven't a solution so would appreciate any help. I have a textbox on a userform I am trying to set to a time format. (The textbox is bound to a ws cell and this is set to time format) I have tried all of the below; UserForm5.Controls("TextBox" & i).Text = Format$(ws.Range("g" & K), "Short Time") UserForm5.Controls("TextBox" & i).Text = Format$(ws.Range("g" & K), "h:mm") UserForm5.Controls("TextBox" & i).Text = Format$ (sheets("sheet4").range("g" & K), "H:mm") UserForm5.Controls("TextBox" & i).Text = Format(ws.Range("g" & K), "Short Time") UserForm5.Controls("TextBox" & i).Text = Format(ws.Range("g" & K), "h:mm") UserForm5.Controls("TextBox" & i).Text = Format(sheets("sheet4").range("g" & K), "H:mm") None of which have worked - the time still shows as a decimal. I'd appreciate any pointers as i'm baffled and getting very frustrated! |
Time format in userform textbox
Hi Anon,
Try something like: '========= Option Explicit Private Sub UserForm_Initialize() Dim wb As Workbook Dim SH As Worksheet Dim Rng As Range Dim i As Long Set wb = ThisWorkbook Set SH = wb.Sheets("Sheet1") '<<==== CHANGE Set Rng = SH.Range("A1") '<<==== CHANGE For i = 1 To 5 Me.Controls("Textbox" & i).Value = _ Rng.Offset(i - 1).Text Next i End Sub '<<========= --- Regards. Norman "anon" wrote in message ... Hi all, I thought this would be an easy solve but it has me baffled. I've read quite a few old posts and still haven't a solution so would appreciate any help. I have a textbox on a userform I am trying to set to a time format. (The textbox is bound to a ws cell and this is set to time format) I have tried all of the below; UserForm5.Controls("TextBox" & i).Text = Format$(ws.Range("g" & K), "Short Time") UserForm5.Controls("TextBox" & i).Text = Format$(ws.Range("g" & K), "h:mm") UserForm5.Controls("TextBox" & i).Text = Format$ (sheets("sheet4").range("g" & K), "H:mm") UserForm5.Controls("TextBox" & i).Text = Format(ws.Range("g" & K), "Short Time") UserForm5.Controls("TextBox" & i).Text = Format(ws.Range("g" & K), "h:mm") UserForm5.Controls("TextBox" & i).Text = Format(sheets("sheet4").range("g" & K), "H:mm") None of which have worked - the time still shows as a decimal. I'd appreciate any pointers as i'm baffled and getting very frustrated! |
Time format in userform textbox
Hi,
Thanks for the reply. I've tried this and is still not working. If i break the code I can see rng.text = "09:00" for example, however it still appears in my textbox as .375 (or some other decimal!). Any other suggestions? Thanks again |
Time format in userform textbox
Hi Anon,
The suggested code works for me. If you wish, I can send you a copy of my test workbook, in reesponse to an email to: norman_jones@NOSPAMbtconnectDOTcom (Delete "NOSPAM" and replace "DOT" with a full stop [period] ) --- Regards. Norman "anon" wrote in message ... Hi, Thanks for the reply. I've tried this and is still not working. If i break the code I can see rng.text = "09:00" for example, however it still appears in my textbox as .375 (or some other decimal!). Any other suggestions? Thanks again |
Time format in userform textbox
Hi Anon,
I received your email and I have sent you my test workbook. --- Regards. Norman "Norman Jones" wrote in message ... Hi Anon, The suggested code works for me. If you wish, I can send you a copy of my test workbook, in reesponse to an email to: norman_jones@NOSPAMbtconnectDOTcom (Delete "NOSPAM" and replace "DOT" with a full stop [period] ) --- Regards. Norman "anon" wrote in message ... Hi, Thanks for the reply. I've tried this and is still not working. If i break the code I can see rng.text = "09:00" for example, however it still appears in my textbox as .375 (or some other decimal!). Any other suggestions? Thanks again |
All times are GMT +1. The time now is 06:21 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com