Enter date dd/mm/yyyy in userform textbox

[neodjandre]

Hello,

I have a userform textbox where a date needs to be entered in the format:

dd/mm/yyyy

I would like the phrase "dd/mm/yyyy" to appear in light grey colour when the textbox is empty and when the user clicks on the textbox and writes a date, the font colour should change to black.

Also, if there is a way to validate if the date is entered in the correct format it would be much appreciated.

thanking you in advance
Andy

 

[rayjaythenovice]

Hello,

This is one I can answer. Firstly select the userform in question and select date field. Press F4 to show the properties for that field then scroll down to the field named text and input dd/mm/yyyy and this will mask the entry into the userform.

Hope this helps.

 

[MickG]

Hi, Try this:-
The "CommandButton" Code should be on the "Userform" At the start of your code, that does something with the Date entry in the "TextBox"

To clear the Text Box, and Enter a Date, You Have to Double click the TextBox . You could Add a Label to the "Userform" with this instruction.

The "UserForm_Initialize()" code Sets the Font to Grey And places the Date Text "dd/mm//yy" in the TextBox.

Private Sub CommandButton1_Click()
If Not IsDate(UserForm8.TextBox1.Text) Then
MsgBox """The Data entered is not a Date""" _
    & Chr(10) & "          ""Please Try again"""
Exit Sub
End If
End Sub

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With UserForm8.TextBox1
    .Text = ""
    .ForeColor = RGB(0, 0, 51)
End With
End Sub

Private Sub UserForm_Initialize()
With UserForm8.TextBox1
    .Text = "dd/mm/yy"
    .ForeColor = RGB(204, 204, 204)
    .Font.Size = 14
End With
End Sub

Regards Mick

 

[neodjandre]

thanks Mick, that's what I was looking for

 

[Norie]

Why not use the Enter event instead of DoubleClick?

Private Sub CommandButton1_Click()
    If Not IsDate(UserForm8.TextBox1.Text) Then
        MsgBox "The Data entered is not a Date" & Chr(10) & "Please Try again"
        Exit Sub
    End If
End Sub
Private Sub TextBox1_Enter()
    With Me.TextBox1
        .Text = ""
        .ForeColor = RGB(0, 0, 51)
    End With
    
End Sub
Private Sub UserForm_Initialize()
    
    With Me.TextBox1
        .Text = "dd/mm/yy"
        .ForeColor = RGB(204, 204, 204)
    End With
    
End Sub

Note this will only work if there are mutiple controls on the form and the textbox in question is not the first in the tab order.

 

[neodjandre]

This is very annoying.

I have a procedure which writes the date entered in the textbox into a cell.

However instead of writing the date as expected "dd/mm/yyyy" it writes it as "mm/dd/yyyy"

I have even checked the format settings of the cell and they are UK date "dd/mm/yyyy"...

I don't know what's going wrong here..

the code is simply

Sheet1.range("A1").value = userform.textbox1.value

 

[Norie]

Try this.

Sheet1.Range("A1").value = DateValue(Me.textbox1.value)

 

[neodjandre]

thanks norie