PureBluff
01-07-2014, 06:49 PM
Hi all, Probably a very simple one for you guys -
How would I go about linking these two in the same worksheet_change PvtSub?
I've commented out the second one for obvious reasons.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
With Target.Offset(0, 1)
.NumberFormat = "dd:mmm:yy"
.Value = Date
With Target.Offset(0, 2)
.NumberFormat = "hh:mm"
.Value = Time
End With
End With
End If
End Sub
'If Target.Column = 13 Then
'With Target.Offset(0, 1)
'.NumberFormat = "dd:mmm:yy"
'.Value = Date
'With Target.Offset(0, 2)
'.NumberFormat = "hh:mm"
'.Value = Time
'End With
'End With
'End If
'End Sub
Thanks!
How would I go about linking these two in the same worksheet_change PvtSub?
I've commented out the second one for obvious reasons.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
With Target.Offset(0, 1)
.NumberFormat = "dd:mmm:yy"
.Value = Date
With Target.Offset(0, 2)
.NumberFormat = "hh:mm"
.Value = Time
End With
End With
End If
End Sub
'If Target.Column = 13 Then
'With Target.Offset(0, 1)
'.NumberFormat = "dd:mmm:yy"
'.Value = Date
'With Target.Offset(0, 2)
'.NumberFormat = "hh:mm"
'.Value = Time
'End With
'End With
'End If
'End Sub
Thanks!