Hi Guys

[Mishoshow]

i have that code and i don't know where is the problem

everytime i entre a date it began with the month mm/dd/yyyy and i want to start it with the day dd/mm/yyyy
i changed the date format from excel nothing changed,, i changed the date from windows setting nothing else changed.

can anyone help me please

Private Sub Worksheet_Change(ByVal Target As Range)
Const xRg As String = "A8:AO761"
Dim strOld As String
Dim strNew As String
Dim strCmt As String
Dim xLen As Long
With Target(1)
If Intersect(.Cells, Range(xRg)) Is Nothing Then Exit Sub
strNew = .Text
Application.EnableEvents = False
Application.Undo
strOld = .Text
.Value = strNew
Application.EnableEvents = True
strCmt = "Edit: " & Format$(Now, "dd Mmm YYYY") & " by " & _
Application.UserName & Chr(10) & "Previous Text :- " & strOld
If Target(1).Comment Is Nothing Then
.AddComment
Else
xLen = Len(.Comment.Shape.TextFrame.Characters.Text)
End If
With .Comment.Shape.TextFrame
.AutoSize = True
.Characters(Start:=xLen + 1).Insert IIf(xLen, vbLf, "") & strCmt
End With
End With
End Sub

 

[dcardno]

I don't know what your code is attempting to do.
Can't you just change the cell(s) to a custom format of "ddd dd/mmm/yyyy?"

 

[Mishoshow]

I don't know what your code is attempting to do.
Can't you just change the cell(s) to a custom format of "ddd dd/mmm/yyyy?"

the code is for track changes in excel

 

[dcardno]

OK - I took your problem to be inability to get the date formatting you want. If it's not that, what is the problem? Specifically, what do you want (or expect) to happen, and what does happen?

 

[Mishoshow]

OK - I took your problem to be inability to get the date formatting you want. If it's not that, what is the problem? Specifically, what do you want (or expect) to happen, and what does happen?

everytime i entre a date after adding the code below,, the date start with the mm/dd/yy not with the dd/mm/yy,, and i tried to fix it with the format cells and i changed the windows setting and still the problem the date start with mm/dd/yy

i dont know where is the problem !!!

 

[dcardno]

How does it work in a workbook that doesn't have that code (or if you 'comment out' all the code)? I can get the date format you are looking for by changing the format of the cell.