restrict entry in userform textbox

[robertvdb]

I have a Userform in which there is a textbox, in which a date must be entered.

How can I restrict entries to real dates in the "dd/mm/yyyy" format, and ignore any other/invalid entries ?

 

[dmt32]

I have a Userform in which there is a textbox, in which a date must be entered.

How can I restrict entries to real dates in the "dd/mm/yyyy" format, and ignore any other/invalid entries ?

Hi
don't worry too much about the date format entry made by users - just check if text they have entered is a date & then change it to your required format.

example

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Const DateFormat As String = "dd/mm/yyyy"
    With Me.TextBox1
        Cancel = Len(.Value) > 0 And Not IsDate(.Value)
        If Not Cancel Then
            .Value = Format(.Value, DateFormat)
        Else
            MsgBox "Please Enter A Valid Date", 48, "Invalid Entry"
            .Value = ""
        End If
    End With
 
End Sub

If user enters a date like 12 jan 2024 code should when they exit the control, change it to your required format.

Do be mindful what comes out of a textbox is text - you can use one of type conversions function to coerce this to required data type when posting to range & apply your required format using numberformat.

Dave

 

[robertvdb]

Thanks Dave, works well.

I made a minor change to your code, in order to avoid blank entries.

Cancel = Len(.Value) >= 0 And Not IsDate(.Value)

Thanks for your help.