VBA code to add current date when the sheet receive new update

[Ramadan]

I have a worksheet that only receive updates from other sheet with filter formula, no manual entry at all occurs in this sheet and I need a code to add the current date Now() in cell "C3" as soon as the sheet receive any update from the source sheet ..

I have a code but it insert the date based on sheet edit not update
any suggestions please..

[Private Sub Worksheet_Change(ByVal Target As Range)
' Code to put the date of the latest update following a change in the corresponding cell in column F
    Dim WorkRng As Range, roww As Long
    Dim rng As Range
    Set WorkRng = Intersect(Range("P:O"), Target)
    If Not WorkRng Is Nothing Then
        Application.EnableEvents = False
            For Each rng In WorkRng
                roww = rng.Row
                If Not rng.Value = "" Then
                    Range("C3").Value = Now
                    Range("C3").NumberFormat = "yy/mm/dd"
                Else
                    Range("C3").ClearContents
                End If
            Next
        Application.EnableEvents = True
        
    End If]

 

[MikeVol]

Hi, use the

Option Explicit

Private Sub Worksheet_Calculate()
    ' your code here
End Sub

or

Option Explicit

Private Sub Worksheet_Activate()
    ' your code here
End Sub

or

Option Explicit

Private Sub Worksheet_Deactivate()
    ' your code here
End Sub

 

[Ramadan]

Hi, use the

Option Explicit

Private Sub Worksheet_Calculate()
    ' your code here
End Sub

or

Option Explicit

Private Sub Worksheet_Activate()
    ' your code here
End Sub

or

Option Explicit

Private Sub Worksheet_Deactivate()
    ' your code here
End Sub

I got this error

 

[MikeVol]

How does the sheet update with data? If with another macro, then it is possible to immediately supplement it with an additional line of code for entering the date.

 

[Ramadan]

How does the sheet update with data? If with another macro, then it is possible to immediately supplement it with an additional line of code for entering the date.

the sheet receive update from another sheet in the same workbook through FILTER formula no macros

 

[MikeVol]

Ok, try next code:

Option Explicit

Private Sub Worksheet_Calculate()
    Dim rng         As Range
    Application.EnableEvents = False

    Dim LastRow     As Long
    LastRow = Me.Cells(Me.Rows.Count, "P").End(xlUp).Row
    If LastRow < 1 Then Exit Sub

    Dim WorkRng     As Range
    Set WorkRng = Me.Range("O1:P" & LastRow)

    For Each rng In WorkRng

        If Not IsEmpty(rng.Value) Then
            Me.Range("C3").Value = Now
            Me.Range("C3").NumberFormat = "yy/mm/dd"
            Exit For
        Else
            Me.Range("C3").ClearContents
        End If

    Next rng

    Set WorkRng = Nothing
    Application.EnableEvents = True
End Sub

 

[Ramadan]

Ok, try next code:

Option Explicit

Private Sub Worksheet_Calculate()
    Dim rng         As Range
    Application.EnableEvents = False

    Dim LastRow     As Long
    LastRow = Me.Cells(Me.Rows.Count, "P").End(xlUp).Row
    If LastRow < 1 Then Exit Sub

    Dim WorkRng     As Range
    Set WorkRng = Me.Range("O1:P" & LastRow)

    For Each rng In WorkRng

        If Not IsEmpty(rng.Value) Then
            Me.Range("C3").Value = Now
            Me.Range("C3").NumberFormat = "yy/mm/dd"
            Exit For
        Else
            Me.Range("C3").ClearContents
        End If

    Next rng

    Set WorkRng = Nothing
    Application.EnableEvents = True
End Sub

I tried it but nothing happened - if it would be easier you can adjust the original code I have in my question to be linked to the source sheet in the same workbook I think it will proceed the same result if any edit done in it - the source sheet name is "Database"

 

[Peter_SSs]

As advised before: Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Cross posted at: VBA to add last update date when the sheet receives any update from the source sheet