Date format in a userform

[paliman]

Hi all.

I created a userform to input data in a spread**** every day.

The first field is the date. By default, a textbox shows the current date. The code is

Private sub Userform_Activate
txtDate.Value = Format (Now, “dd/mm/yyyy”)
End sub


And that’s fine.

The problem is that when I copy the values of the userform to the spread****, the date changes it’s format to mm/dd/yyyy. So, When I open the userform I see 04/03/2004 for march 4th. But when that is copied to the worksheet, it becomes april 3rd, although it still looks “04/03/2004”.

The code I’m using is:

With ActiveCell
.value = txtDate.value

Any help will be greatly appreciated.

 

[Joe4]

The month and date and getting reversed because you are storing in a different order that Excel expects it to be in. This should fix that:

    With ActiveCell
        .Value = DateSerial(Right(txtDate, 4), Mid(txtDate, 4, 2), Left(txtDate, 2))

 

[paliman]

Perfect.

Thanks.