Date flipping

[[email protected]]

I have searched all night and nothing helps fix my problem
i have a userform2 and a textbox5 in which i enter the date UK dd/mm/yyyy

If wsFU.Range("B20").CurrentRegion.Rows.Count <> 1 Then
Set nfu = wsFU.Range("B20").CurrentRegion.End(xlDown).Offset(1).Resize(1, 9)
Else
Set nfu = wsFU.Range("B20").CurrentRegion.Offset(1).Resize(1, 9)
End If

With nfu
'***************************************************************
i have used .Cells(1).Value = UserForm2.TextBox5.Value 'DATE
i have used .Cells(1).Value = CDate(Me.TextBox5.Value) 'DATE
but its still putting the date on the sheet in us form not UK aaaarrrhhhh


i have also
Private Sub TextBox5_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TextBox5 = CDate(Me.TextBox5)
End Sub

please can someone tell me what im doing wrong please

[AlphaFrog]

Try using DateValue. You may want to set the cell date format as well.

.Cells(1).Value = DateValue(Me.TextBox5.Value)
.Cells(1).NumberFormat = "dd/mm/yyyy"

This is from the Remarks section for DateValue help.

Remarks

If date is a string that includes only numbers separated by valid date separators, DateValue recognizes the order for month, day, and year according to the Short Date format you specified for your system.

[FDibbins]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)