Todays date, dependant on multiple cell value

[MarkAndrews]

It’s been a while since I’ve posted on here, but I need someone’s expertise & help<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>
Basically I have a sheet populated A:K, I need to record today’s date (as a static date) in column D – so if cells, B or C are populated with text, the date will appear in column D<o></o>
<o> </o>
EG<o></o>
<o> </o>
B1 – Mark<o></o>
C1 – Andrews<o></o>
<o> </o>
Then, D1 = 20/03/09<o></o>
<o> </o>
I was thinking about using =today() in some sort of code, but that’s a volatile function & not sure it would work for me<o></o>
<o> </o>
Any help greatly appreciated<o></o>

 

[Yard]

Sounds like a Worksheet_Change event:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("B:C")) Is Nothing Or Target.Count > 1 Then Exit Sub
Me.Cells(Target.Row, "D") = Date
 
End Sub

(Right-click worksheet tab, View Code, paste it into that code window)

HTH!

 

[Yard]

Although, your "static" date would be overwritten if B or C were subsequently edited.....

Maybe this is better?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("B:C")) Is Nothing Or Target.Count > 1 Or Me.Cells(Target.Row, "D") > 0 Then Exit Sub
Me.Cells(Target.Row, "D") = Date

End Sub

 

[MarkAndrews]

Thanks Yard, will that overwrite the date each time its run tho? as i need to keep the dates which are already entered on the sheet

 

[MarkAndrews]

Although, your "static" date would be overwritten if B or C were subsequently edited.....

Maybe this is better?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("B:C")) Is Nothing Or Target.Count > 1 Or Me.Cells(Target.Row, "D") > 0 Then Exit Sub
Me.Cells(Target.Row, "D") = Date
 
End Sub

Thanks Yard