J
jeff
Hi,
Assuming the PM shifts' data will be entered into
Cells A10 thru A20, this adds time and formats for PM.
jeff
-------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("a10:a20")) Is Nothing Then
Exit Sub
If Target < 0.5 Then Target = Target + 0.5
Target.NumberFormat = "[$-409]h:mm AM/PM;@"
End Sub
Assuming the PM shifts' data will be entered into
Cells A10 thru A20, this adds time and formats for PM.
jeff
-------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("a10:a20")) Is Nothing Then
Exit Sub
If Target < 0.5 Then Target = Target + 0.5
Target.NumberFormat = "[$-409]h:mm AM/PM;@"
End Sub