renartbrazil
Technical User
Is there an easy fix to format this for miltary time?
This is what it looks like now.
3/14/2005 1:55:24 PM
I am trying to get this format though.
3/14/2005 13:55
<code>Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target(1, 3) = Date
Target(1, 4) = Time
End If
If Target.Column = 5 Then
Target(1, 3) = Date
Target(1, 4) = Time
End If
End Sub</code>
This is what it looks like now.
3/14/2005 1:55:24 PM
I am trying to get this format though.
3/14/2005 13:55
<code>Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target(1, 3) = Date
Target(1, 4) = Time
End If
If Target.Column = 5 Then
Target(1, 3) = Date
Target(1, 4) = Time
End If
End Sub</code>