code to input date after diff. cell selected

[Guest]

basically i want to insert a date in to one cell but only if i select another
cell... make sense??? i attempted the following but had no result considering
the Range("D3").... selects the cell... can anyone help
Sub Insert_Date()

If Range("D2").Select Then
cell = ("L4") = ""
Else
cell = ("L4") = "=TODAY()"
End If

End Sub

 

[NickHK]

Not sure of the logic of what you are trying to achieve, but use the
Worksheet_SelectionChange event :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = Range("D2").Address Then
Range("L4").Value = ""
Else
Range("L4").Formula = "=TODAY()"
'Or
'Range("L4").Formula = Now()
End If

End Sub

NickHK

basically i want to insert a date in to one cell but only if i select another
cell... make sense??? i attempted the following but had no result considering
the Range("D3").... selects the cell... can anyone help
Sub Insert_Date()

If Range("D2").Select Then
cell = ("L4") = ""
Else
cell = ("L4") = "=TODAY()"
End If

End Sub

will"

 

[Guest]

nevermind, my explanation is prolly to confusing, ill try something else,
thanx anyway