Have one cell check whenever data in another cell changes for entire column

[David77]

Hello everybody,

I am currently managing a database full of stock quantities, here:



Is there any way (I imagine some VBA coding) in which I can create a column 3 rows to the right of this one (row L in this case), where every single cell in row L would count the last time (in date, so for example: 05-08-2020 15:11) that the number in row I changed?

I want to do this to keep a check of my quantity and see if some of it doesn't move for longer periods of time (such as 3 months or more for example)

On top of this it would also be amazing if I could somehow create some sort of conditional formatting in row L, so whenever the date is more than 3 months old from the current date it turns to a red fill in the background - if this is possible too?

If anybody can help me create this it would be absolutely amazing! Thank you so much everybody

Best regards,
David

 

[mumps]

Select the range in column L where you want to place the conditional formatting and use this formula: =AND(L2<>"",L2<NOW()-90)
Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Change a value in column I and press the RETURN key.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("I:I")) Is Nothing Then Exit Sub
    Target.Offset(, 3) = Now()
End Sub

 

[David77]

Select the range in column L where you want to place the conditional formatting and use this formula: =AND(L2<>"",L2<NOW()-90)
Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Change a value in column I and press the RETURN key.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("I:I")) Is Nothing Then Exit Sub
    Target.Offset(, 3) = Now()
End Sub

Hello Mumps,

Thank you so very much!

Unfortunately, I am currently getting this error from your formula for some reason?

 

[David77]

Please see the attached Excel file in this link: Documents. It has the exact same data as my main file. Quantity, two columns where I have added a macro that lets you enter numbers, which is then automatically added/subtracted from the quantity and finally the column that I am seeking assistance with: The one showing the last date on which the quantity changed.

NOTE: Please note that since it is an online Excel file my macro does not work (for some reason) so the macro that lets it subtract and add does not work.

Can you assist me with this? Thank you so much!

Best regards,

David

Select the range in column L where you want to place the conditional formatting and use this formula: =AND(L2<>"",L2<NOW()-90)
Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Change a value in column I and press the RETURN key.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("I:I")) Is Nothing Then Exit Sub
    Target.Offset(, 3) = Now()
End Sub

 

[mumps]

Click here to download your file.