Dear all,
could you please help how to resolved this issue
why the date in the column #K# if the day <12 the date showing as mm-dd-yyyy instead of dd-mm-yyyy
please help
Thanks
could you please help how to resolved this issue
why the date in the column #K# if the day <12 the date showing as mm-dd-yyyy instead of dd-mm-yyyy
please help
Thanks
VBA Code:
Sub WYN()
Dim r As Range
Dim a, ms
With CreateObject("Scripting.Dictionary")
For Each r In Range("A2", Cells(Rows.Count, 1).End(xlUp))
ms = r.Offset(, 4).Value
If .Exists(ms) Then
a = .Item(ms)
a(1, 12) = a(1, 12) + r.Offset(, 11)
.Item(ms) = a
Else
a = r.Resize(, 13).Value
.Item(ms) = a
End If
Next
a = Application.Transpose(Application.Transpose(.items))
Cells(Rows.Count, 1).End(xlUp)(3, 1).Resize(UBound(a), 13) = a
[a2].CurrentRegion.Offset(1).Delete xlUp
[a2].CurrentRegion.Columns("j").NumberFormat = "hh:mm:ss"
[a2].CurrentRegion.Columns("k").NumberFormat = "dd-mm-yyyy”
End With
End Sub