Adding a Date modified cell for each Row???

Lewie

New Member
Joined
Jul 25, 2015
Messages
14
Is there some way to have a cell that reports a date when a cell within an existing range has been populated?
 

Excel Facts

When did Power Query debut in Excel?
Although it was an add-in in Excel 2010 & Excel 2013, Power Query became a part of Excel in 2016, in Data, Get & Transform Data.
If you search this site (search for something like; date time stamp range site:mrexcel.com), you'll find several threads on this topic. Unfortunately you gave no specifics as to what range of cells are modified and where you want the date stamps, etc.

This thread is a good one to start with, but there are many others. They are mostly variations on the same theme.
http://www.mrexcel.com/forum/excel-questions/614541-excel-time-date-stamp-cell-change.html
 
Upvote 0
As columns A:D are populated with what stage a drawing is at, I want the date to automatically appear in E 2:5. I only need the date for the right most cell at each instance.

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD][/TD]
[TD]A
[/TD]
[TD]B
[/TD]
[TD]C
[/TD]
[TD]D
[/TD]
[TD]E
[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]Designed
[/TD]
[TD]Checked
[/TD]
[TD]Engineered
[/TD]
[TD]Approved
[/TD]
[TD]Date
[/TD]
[/TR]
[TR]
[TD]2
[/TD]
[TD]BLE
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]Designed Date
[/TD]
[/TR]
[TR]
[TD]3
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]
[/TD]
[TD]No Date
[/TD]
[/TR]
[TR]
[TD]4
[/TD]
[TD]BLE
[/TD]
[TD]ATI
[/TD]
[TD]JAG
[/TD]
[TD][/TD]
[TD]Engineered Date
[/TD]
[/TR]
[TR]
[TD]5
[/TD]
[TD]BLE
[/TD]
[TD]GFB
[/TD]
[TD][/TD]
[TD][/TD]
[TD]Checked Date
[/TD]
[/TR]
</tbody>[/TABLE]
 
Upvote 0
Worksheet event is used
Right click on Sheet Tab. Paste the below code.Close the window
If you make changes in range A2:D5, Same row E column gets Date of today.Range A2:D5 can be changed as per your requirement.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
If Not Intersect(Range("A2:D5"), Target) Is Nothing Then
    If Target <> "" Then
    Range("E" & Target.Row) = Date
    End If
End If
Application.EnableEvents = True


End Sub
 
Upvote 0
Nice.
Thanks for that can I also output in Colum F the right most initials and each instance?
Also if A2 - D2 then get deleted and are blank, the date field goes back to blank?
 
Upvote 0

Forum statistics

Threads
1,223,977
Messages
6,175,753
Members
452,667
Latest member
vanessavalentino83

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top