Date formatting issue in user form
Well for umpteenth time I have a question,
I would like the user to be able to type 041505 hit enter or tab and in the user form now show the date as o4-15-05. The following is what I have attempter thus far. Thank you! Private Sub txtDate_Enter() txtDate.Value = Format(Me.txtDate, "") End Sub Private Sub txtDate_Exit(ByVal cancel As MSForms.ReturnBoolean) txtDate.Value = Format(Me.txtDate.Value, "dd/mmm/yy") End Sub -- Though daily learning, I LOVE EXCEL! Jennifer |
Date formatting issue in user form
Hi Jennifer
You may need some additional error checking etc, but this may help Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Len(TextBox1) < 6 Then MsgBox "6 numbers required in ''mmddyy'' format please" Exit Sub End If TextBox1 = Left(TextBox1, 2) & "-" & Mid(TextBox1, 3, 2) & "-" & Right(TextBox1, 2) End Sub -- ----- XL2003 Regards William "Jennifer" wrote in message ... Well for umpteenth time I have a question, I would like the user to be able to type 041505 hit enter or tab and in the user form now show the date as o4-15-05. The following is what I have attempter thus far. Thank you! Private Sub txtDate_Enter() txtDate.Value = Format(Me.txtDate, "") End Sub Private Sub txtDate_Exit(ByVal cancel As MSForms.ReturnBoolean) txtDate.Value = Format(Me.txtDate.Value, "dd/mmm/yy") End Sub -- Though daily learning, I LOVE EXCEL! Jennifer |
Date formatting issue in user form
Hi Jennifer,
try this. Private Sub txtDate_Exit(ByVal cancel As MSForms.ReturnBoolean) txtDate.Value = Format( date("20" & RIGHT(Me.txtDate.Value,2),LEFT(Me.txtDate.Value,2) ,MID(Me.txtDate.Value,3,2)), "dd/mmm/yy") End Sub be careful on reformatting the textbox when you re-enter it. HTH Fadi www.chalouhis.com/XLBLOG |
Date formatting issue in user form
Take a look at http://www.xldynamic.com/source/xld.QDEDownload.html
-- HTH RP (remove nothere from the email address if mailing direct) "Jennifer" wrote in message ... Well for umpteenth time I have a question, I would like the user to be able to type 041505 hit enter or tab and in the user form now show the date as o4-15-05. The following is what I have attempter thus far. Thank you! Private Sub txtDate_Enter() txtDate.Value = Format(Me.txtDate, "") End Sub Private Sub txtDate_Exit(ByVal cancel As MSForms.ReturnBoolean) txtDate.Value = Format(Me.txtDate.Value, "dd/mmm/yy") End Sub -- Though daily learning, I LOVE EXCEL! Jennifer |
All times are GMT +1. The time now is 06:40 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com