Record Date and Time when Cell Value is Changed using Excel VBA

[@bhagyashreegoswami1879]

Thank you so much was looking for this since a long time

[@Garycarlyle]

Cool that I normally watch your videos for psychology but came across this one while needing to learn more about Excel for work. :)

[@terriblackwell7261]

This video was fantastic. Clear concise and extremely helpful.

[@DiscJokeyDarkSigns]

You sir are an absolute hero! Thank you very much for this macro.

[@litmol]

As always, very clear and precise explanation. One question: If the value in column C is changed (but not deleted) thee timestamp will be change as well. Can you please offer a change to your code in case I want the timestamp to be fixed based on the FIRST time I enter a value to column C? Thanks

[@crumbs4753]

Excellent! I want the cells in a row with different columns to automatically stamp the date when cells in another sheet related to each c and row cell changes.

[@famren]

Very useful. Thanks! Works like a charm.

[@DrGrande]

I'm glad you found the video helpful - thanks for watching -

[@Yo_NickyD]

Could I also use letters instead of numbers for an example where you put a score? For instance (mmmm)?

[@davidlevett9881]

This is an excellent video, it worked like a charm. Thank you very much

[@DrGrande]

You're welcome!

[@mutafaabdulwahab6654]

Its better to link or copy the formula for easy practice

[@danilochavez4167]

Thanks for the video. I have two questions. Will this still work in a table (do i need to consider another variables)? What do I need to change / add in the code if I need two datestamps for two different columns?

[@moesadr3342]

I think one can also do the same for multiple cells or /any cell s in a record as well ( eg. A:C, correct? Also what happens if we deleted the contents of a record completely? Would a date for such a change will be recorded? If yes how we can get rid of this as there aren't any records really. Thanks

[@utkarshkumarpandey197]

thanks for the code todd. i have only question how to protect the time cell so the we can not edit the time after entering the data in the c column .

[@kristianwikheimjohansen2757]

Hi. This was a very good video! Is it possible to adjust it to: Insert the date in column D, if any of the cells in a specified range (A:C)? So not only C, but also for A and B. I have several cells in a row that will be changed and I want to know the date when I lasted changed any of the cells.

[@JojoJojo-qr5ye]

Thanks a lot what a great video!!!

[@MarcNice]

Is there a way to make this code work across multiple worksheets without having to add the code to each individual worksheet within VBA?

[@kaneelenburg4779]

Is it possible for the date to be a day behind. Ex. When I enter context into column C on the 20 of November I would like for it to input the 19 of November. Thanks for the video too!

[@aronhahn9127]

I tried the formula but nothing happened. I substituted he C column with M and was hoping to use a mm,dd.yyyy format. Will the M=1 be specifier for text as well?

[@dankirchner4460]

Hello. I'm trying to use your code and doing it in a table. I'm trying to make it so that when column m says closed it will put the now date in column n. Excel comes back with sub or function not defined. Can you help me resolve this? Appreciate any feedback you might have.

[@benlee3545]

Hi Dr. Todd Grande, I am a newbie. I would also like to compare entered cell value with another cell value and if they are the same, then add a timestamp... not sure how to do it as i tried but got an error : variable or with block variable not set.

[@russborup7140]

This was extremely helpful!!! My question is if I need dates populated in different columns based on input in different cells, would it just be adding the same script to VBA referencing the cell? Can you show an example?

[@neilroberts9070]

Could you have an advance date inserted, rather than current one?

[@dkarthikr123]

Not working for me :( Plz share the link to download this example file with the solution..

[@juanperezserrano3556]

I liked your video!! Actually, I am trying to create a macro which stamps the Time and Date when I change the value on a cell Range, but also if I choose to enter a specific value, let's say: A, then stamp the Time and date at a different Cell, and if Choose B, stamp the time and date on another cell. I thank you in advance!

[@kirannandgawle6632]

How to use same for Google spreadsheet where live date changes and we get some alphanumeric value in a particular cell

[@angkholdiy4004]

hi, how could i do thru vba code when i change the date value of a cell and filtered it? thank you

[@osdata]

Thank you! This is working. Btw, is there a way to record the date and time from column D to other columns and so on whenever the cell in column C changes?

[@jaiminshah5503]

Hi...helpful video... any chance you can help me to create macro for generating email when specific cell from range is selected ? Your assistance will appreciated....

[@rafiqulislamrana2875]

I want to show date & time on column A. Please help...

[@abdelhalimmouhamed2251]

hello it is working very good but i must change the cell however in my excel i am using the code on cheek sum and it is not working can you answer me about that change

[@mohammedfawzikharroub8482]

Thank You But it does seem to work with cells that change by formula.

[@lively196]

How to record a cell value which value is changing frequently ,will u please help with this "Thanks in advance"

[@chiragagarwal9079]

How I can update time and date automatically based on some condition, like if A=Yes update that time and date

[@mohitsharma-kh6nl]

I have case where time stamp is needed when there is a change in value in more than one column

[@jasonpiazza4037]

Works great except I need to place the result in column F rather than offset by 1. I need to track change to column A thru F in a row and place time stamp in column F. Anyone have the fix to replace the Offset rule?

[@chrisvanniekerk1509]

would you accept an answer for $10?

[@redhaakhund1271]

👍👍👍👍👍

[@moekyawthu8861]

I can't use "change" . Why? What's the matter . for example . Private Sub Worksheet_Change(ByVal Target As Range) MsgBox Target.Address End Sub Even the above the code didn't work . Please help me!!

[@vaibbhavpaalkar4992]

if link online data from nse it wont update ...so plese help

[@angelcarter270]

Does anyone know how to use this for MULTIPLE columns?

[@karalyne12]

I'm trying to do this but I want it to work so that if i change anything in columns "A-H" that "I" will be updated, what do I need to change?

[@chinimini509]

try this Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Application.EnableEvents = False Cells(Target.Row, 9).Value = Date + Time Application.EnableEvents = True End If If Target.Column = 2 Then Application.EnableEvents = False Cells(Target.Row, 9).Value = Date + Time Application.EnableEvents = True End If If Target.Column = 3 Then Application.EnableEvents = False Cells(Target.Row, 9).Value = Date + Time Application.EnableEvents = True End If If Target.Column = 4 Then Application.EnableEvents = False Cells(Target.Row, 9).Value = Date + Time Application.EnableEvents = True End If If Target.Column = 5 Then Application.EnableEvents = False Cells(Target.Row, 9).Value = Date + Time Application.EnableEvents = True End If If Target.Column = 6 Then Application.EnableEvents = False Cells(Target.Row, 9).Value = Date + Time Application.EnableEvents = True End If If Target.Column = 7 Then Application.EnableEvents = False Cells(Target.Row, 9).Value = Date + Time Application.EnableEvents = True End If If Target.Column = 8 Then Application.EnableEvents = False Cells(Target.Row, 9).Value = Date + Time Application.EnableEvents = True End If End Sub

[@gunsandgaragegear601]

@@chinimini509 This works perfect, but how do I make the cell with time read out blank if theres no entry? Currently If i reset entry it updates to time I reset entry?

[@RedFoxTeh1]

Nice solution! But unfortunately it doesn't work with Undo. Although, none of the vba solutions will work with Undo/Redo... Thx to microsoft *sigh

[@armotxa124]

Thanks here is the code Private Sub Worksheet_Change(ByVal Target As Range) Dim targetRng As Range Dim rng As Range Dim c As Integer Set targetRng = Intersect(Application.ActiveSheet.Range("R:R"), Target) R = 1 If Not targetRng Is Nothing Then Application.EnableEvents = False For Each rng In targetRng If Not VBA.IsEmpty(rng.Value) Then rng.Offset(0, R).Value = Now rng.Offset(0, R).NumberFormat = "dddd, dd, mmmm, yyyy, hh:mm" Else rng.Offset(0, R).ClearContents End If Next Application.EnableEvents = True End If End Sub