Add change of date to cell on Row.

[candle_66]

We have an excel sheet showing a list of pc's and servers.

Each server has it's own row. I want to reflect the change date when each of the rows change

How can I autodate each of the rows when any cell in the row is changed.

In other words when any row is changed, a Change date is automatically inserted into the end of that row.



Any help appreciated

 

[just_jon]

Welcome to MrExcel - you could use an event macro to insert the current date after each change.

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_Change(<SPAN style="color:#00007F">ByVal</SPAN> Target <SPAN style="color:#00007F">As</SPAN> Range)
<SPAN style="color:#00007F">Dim</SPAN> c <SPAN style="color:#00007F">As</SPAN> Range, LastDateChangeRow <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
Application.EnableEvents = <SPAN style="color:#00007F">False</SPAN>
Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN>
<SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> c <SPAN style="color:#00007F">In</SPAN> Target.Cells
    <SPAN style="color:#00007F">If</SPAN> LastDateChangeRow <> c.Row <SPAN style="color:#00007F">Then</SPAN>
        LastDateChangeRow = c.Row
        Cells(c.Row, "Z") = <SPAN style="color:#00007F">Date</SPAN>
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">Next</SPAN> c
Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN>
Application.EnableEvents = <SPAN style="color:#00007F">True</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>

The above untested code should put the current date in each changed row's column Z.

 

[candle_66]

Thanks

You are a star

Thank you very much.

I will def be looking into taking some VB courses.

regards

candle_66 (Howard)