Date posting issue from Form
When my form posts the data from a form to my data sheet it is
changing the date. here is my code to post the information: Private Sub CommandOK_Click() ' Make Sure Sheet1 is active Sheets("Data").Activate ' Determine next empty row nextrow = Application.WorksheetFunction.CountA(Range("A:A")) + 1 ' Make sure serial number entered If ComboSerialNo.Text = "" Then MsgBox "You Must Enter A Serial Number!" ComboSerialNo.SetFocus Exit Sub End If ' Check if Serial Number Has Previous Entry If ComboSerialNo.Text = notinlist Then MsgBox ("Warning Serial Number Has No Previous Entrys") ' Transfer SerialNum Cells(nextrow, 1) = ComboSerialNo.Text ' Transfer Date Cells(nextrow, 2) = ComboDate.Text ' Transfer On/Off Hire If OptionOn Then Cells(nextrow, 3) = "1" OptionOn.SetFocus End Sub what is happening is that the date is entered as dd/mm/yyyy or dd/mm/ yy but when it posts to the sheet, it is changing the format to mm/dd/ yyyy eg. if i entered a date of 01/03/2007 it would post as 03/01/2007, but the format of the date on the sheet is still dd/mm/ yyyy so the date is completly stuffed up, any ideas? |
All times are GMT +1. The time now is 07:22 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com