Date formatting help

[welshman010]

Hi

Hoping someone can help, I have the below code that pulls data from specific cells in active sheet to a userform. Even though the cells are formatted as date (dd/mm/yy) the userform shows it as mm/dd/yy.

Please Login or Register  to view this content.

I have been searching since yesterday and had no luck with this.

Thanks in advance

[judgeh59]

have tried this? i know you are doing in other areas...

[code]
Private Sub Userform_Activate()
With Me
.TextBox1.Value = Format(Range("B7").Value, "dd/mm/yy")
.TextBox2.Value = Format(Range("L7").Value, "dd/mm/yy")
.TextBox3.Value = Range("C7").Value ' do the rest '''
.TextBox4.Value = Range("D7").Value
.TextBox5.Value = Range("E7").Value
.TextBox6.Value = Range("G7").Value
.TextBox7.Value = Range("F7").Value
.TextBox8.Value = Range("H7").Value
End With
End Sub

[welshman010]

I have tried all sorts. I now getting a false value. when sending textbox with date to cell. see below by codes

Please Login or Register  to view this content.

Please Login or Register  to view this content.

is there a copy paste function instead. The information in userform is correct for what i need. So when sending to cells in "calc" sheet couldnt just copy paste as it is,

[welshman010]

Sorry, yes that working for pulling info. Its just sending dates back in wrong format

have tried this? i know you are doing in other areas...

[code]
Private Sub Userform_Activate()
With Me
.TextBox1.Value = Format(Range("B7").Value, "dd/mm/yy")
.TextBox2.Value = Format(Range("L7").Value, "dd/mm/yy")
.TextBox3.Value = Range("C7").Value ' do the rest '''
.TextBox4.Value = Range("D7").Value
.TextBox5.Value = Range("E7").Value
.TextBox6.Value = Range("G7").Value
.TextBox7.Value = Range("F7").Value
.TextBox8.Value = Range("H7").Value
End With
End Sub

[welshman010]

Just in case this pops up on someones search. Overcome my problem by using CDATE

Please Login or Register  to view this content.

[judgeh59]

always nice to figure it out on your own....

If this has been completed to your satisfaction, please set the thread to Solved...If you feel I deserve an increase in our reputation, feel free to click on the star in the lower left of the thread. Remember, someday when you help somebody they may add to your rep points, and it could be me...just a thought...