Date Format in a Text Box - UserForm

[Eurekaonide]

Hi All

I am creating a UserForm in VBE (MS 2002)
I have a Text box which a date gets entered into by the user and the contents then gets populated into a set cell in the worksheet.

This all works fine, however I wondered if there was a way in pre-setting the date format in which to be entered? Thus not to confuse the US and UK formatting etc?

Many Thanks as always for your assistance.

 

[JamesW]

Hi,

Try:

CDate(Textbox1.Value)

 

[AlphaFrog]

I would suggest to offer three text boxes as inputs. One each for Month, Day, Year. Then the code would Concatenate them into a date.

Or offer three combo-box drop down lists.

Or offer a pop-up calendar style date picker when the user selects the date textbox.

With one of those methods, you'll avoid a lot of the date format input issues.

 

[Eurekaonide]

Hi Thanks for this info,

I'm really interested in the calendar pop up box, how would I execute this?

 

[AlphaFrog]

This describes how to make a pop-up calendar userform.
A Pop-up Calendar for Excel

If your pop-up Calendar1 is on its own userform called CalendarForm and your date input textboox is TextBox1 on UserForm1, here's example code you could use to make it work...

UserForm1 module:

Private Sub TextBox1_Enter()
    CalendarForm.Show
End Sub

CalendarForm module:

Private Sub Calendar1_Click()
    UserForm1.TextBox1.Value = Calendar1.Value
    CalendarForm.Hide
End Sub