Enter time via cell selection (almost there)

[Frith]

Hi all,

Would someone know how to modify the below code such that it only affects cells D3:D50 & F3:F50?

Thanx,
Frith




Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = ActiveCell.Address Then Target = Format(Now, "ttttt") End If </PRE>
End Sub
</PRE>

 

[VoG]

Try

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D3:D50,F3:F50")) Is Nothing Then Target.Value = Format(Now, "ttttt")
End Sub

 

[Frith]

Thanx!

 

[Scott Huish]

That won't work, if a cell in column E is selected along with D, it will put the time in both.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range, d As Range, t As Double
Set d = Intersect(Target, Union(Range("D3:D50"), Range("F3:F50")))
If d Is Nothing Then Exit Sub
t = Now
For Each c In d
    c = Format(t, "ttttt")
Next
End Sub