Hello
Users need to be able to enter a date into a TextBox on a UserForm in the Format DD-MM-YYYY.
This is then converted once entered into the format YYYY-MM-DD and when the SAVE button is selected, this is written to the spreadsheet.
The issue I am having is that the value written to the spreadsheet does not return the date in the required format of YYYY-MM-DD.
My code is below:
Code to check if DOB completed:
Code to convert entered date to YYYY-MM-DD format
Code to write DOB textbox to spreadsheet
thanks for any help.
Users need to be able to enter a date into a TextBox on a UserForm in the Format DD-MM-YYYY.
This is then converted once entered into the format YYYY-MM-DD and when the SAVE button is selected, this is written to the spreadsheet.
The issue I am having is that the value written to the spreadsheet does not return the date in the required format of YYYY-MM-DD.
My code is below:
Code to check if DOB completed:
Code:
If Trim(DOBText.Text) = "" Then
DOBText.SetFocus
MsgBox "Please enter a Date of Birth in the format dd/mm/yyyy", vbCritical, "Input Required"
Exit Sub
End IfCode:
Private Sub DOBText_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(DOBText) Then
DOBText.SetFocus
MsgBox "Please enter a Date of Birth in the format dd/mm/yyyy", vbCritical, "Input Required"
Cancel = True
Else
DOBText = Format(DOBText, "yyyy-mm-dd")
MsgBox ("Date of Birth has been automatically converted" & vbNewLine & "to YYYY-MM-DD as per interface requirements." & vbNewLine & _
vbNewLine & "Please continue entering data as required"), vbInformation, "Please note:"
End If
End SubCode:
LastRow.Offset(1, 4).Value = Format(DOBText, "yyyy-mm-dd")