I'm having a hard time putting this into words, so I'll try to make it simple.
I have a list with cells b1 thru f1 empty.
If one or more of those cells becomes populated, I want today's date to show up in cell g1 and h1.
If any of those fields from b1 through f1 is modified, h1 will show modified date. g1 previous date will NOT change
Yes, the user could enter the date manually, but apparently that's too difficult for some people.
I actually did some search online in mr excel and this works but i do not know how to stitch this together. Been trying to piece this together for days!!!
Any help would be appreciated.
For g1
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:F300")) Is Nothing Then
If Range("G" & Target.Row).Value = "" Then
Application.EnableEvents = False
Range("G" & Target.Row).Value = Now
Application.EnableEvents = True
End If
End If
End Sub
For h1
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:F300")) Is Nothing Then
Application.EnableEvents = False
Range("G" & Target.Row).Value = Now
Application.EnableEvents = True
End If
End Sub
Any help would be appreciated.
I have a list with cells b1 thru f1 empty.
If one or more of those cells becomes populated, I want today's date to show up in cell g1 and h1.
If any of those fields from b1 through f1 is modified, h1 will show modified date. g1 previous date will NOT change
Yes, the user could enter the date manually, but apparently that's too difficult for some people.
I actually did some search online in mr excel and this works but i do not know how to stitch this together. Been trying to piece this together for days!!!
Any help would be appreciated.
For g1
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:F300")) Is Nothing Then
If Range("G" & Target.Row).Value = "" Then
Application.EnableEvents = False
Range("G" & Target.Row).Value = Now
Application.EnableEvents = True
End If
End If
End Sub
For h1
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:F300")) Is Nothing Then
Application.EnableEvents = False
Range("G" & Target.Row).Value = Now
Application.EnableEvents = True
End If
End Sub
Any help would be appreciated.