Automatically adding the date/time to a cell when another cell is updated

After the step of "Enable iterative calculation" in options, this formula didn't work for me since it seems backwards from what was being asked.

This formula:
=IF(A2<>"",IF(B2="",NOW(),B2),"")
puts the time into B2 when data is entered into A2, if putting the time next to the data.

To put the date below the data would require:
=IF(D6<>"", IF(D7="", NOW(), D7), "")

I also had to save the file as a macro-enabled excel file (.xlsm) for it to not change the date for all the cells that I copied the first formula into. Before I did that, if I copied the formula in B2 into cells B3:B200, if I put data into any of the cells A2:A200, it would change all the times in cells B2:B200 to the same current time. But once I saved the file as a .xlsm, the time entered in B2 based on data in A2 did not change when I entered data into A3 or A4, etc.

NikolinoDE​ 

Sorry to dig this things' grave, but it's just too useful for me right now.

I used this script, and it works as advertised, but I am having an issue when it interacts with another script I am using in the same workbook, but on a different sheet. 

So my first bit of code (shown below) takes a row of date and moves it to the second sheet when I check the Closed box. I was hoping that it would move it to the second sheet, and your code would update the date when that happens. Unfortunately, it does not seem to recognize the event. Do you know of a way I could change your code here to recognized that event?

I did have to change your code to put the date in the cell to the right, simply changing the cell offset from (1, 0) to (0, 1), but that's the only code bit I changed.

First code to move rows to second sheet:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngWatch As Range
    Dim rngChange As Range
    Dim c As Range
    Dim wsDest As Worksheet
    Dim rngDelete As Range
    
    'What column(s) are you monitoring for change?
    Set rngWatch = Range("C3:C300")
    'Where are we moving data to?
    Set wsDest = ThisWorkbook.Worksheets("Closed")
    
    'Did you change a cell of interest?
    Set rngChange = Intersect(rngWatch, Target)
    If rngChange Is Nothing Then Exit Sub
    
    'Prevent recursive calls and screen flicker
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    For Each c In rngChange
        If UCase(c.Value) = "TRUE" Then
             'Save this spot to clear later
            If rngDelete Is Nothing Then
                Set rngDelete = c
            Else
                Set rngDelete = Union(rngDelete, c)
            End If
            
            'Move the row
            With wsDest
                c.EntireRow.Copy Destination:=.Cells(.Rows.Count, "A").End(xlUp).Offset(1)
            End With
        End If
    Next c
    
    'Remove the blank rows
    If Not rngDelete Is Nothing Then
        rngDelete.EntireRow.Delete
    End If
    
    'Reset
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    
End Sub

Carly_Forrester 

I cannot follow your flow of thoughts.

Please attach a file (without sensitive data) and on the basis of this you explain your plan in detail.
It makes no sense that we are constantly producing files that are not what you imagine.

It is good to read this information in advance:

Welcome to your Excel discussion space!

Thank you for your patience and understanding

Nikolino