VBA tracking cell changes using a references cell

[santomax]

Hi everyone.

I am creating a VBA code that lets me timestamp changes made to a cell. I am able to get it to work if the cell being changed is inputted as a string or text value, but the cells I want to keep tracking changes from are references from a table, which does not capture the change.

Something like this: =IFERROR(Table_1[@Status],"")

Would anyone be able to help me of how to change the VBA code for it maybe to use the referenced value as a text for the tracking to take place? Thank you so much in advance

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
    With ActiveSheet
        Dim ar As Long: ar = Target.Row
        Dim rr(0 To 2) As String, result As String
            rr(0) = Target.Value: rr(1) = Now: rr(2) = Application.UserName
            result = Join(rr, ", ")
            .Cells(Target.Row, .Columns.Count).End(xlToLeft).Offset(, 2).Value = result
            Erase rr
    End With
End If
End Sub

 

[skillilea]

Clarity where you want to store the change to the table? Another table? Same worksheet? Can you use XL2BB and show it?

 

[santomax]

I was able to find a solution for my problem, I appreciate so much your care

 

[dreid1011]

I was able to find a solution for my problem, I appreciate so much your care

You should not mark a post as the solution unless it solved your problem so that others searching for similar issues don't get misled. Perhaps you can reply with the solution you did find, so at least if someone else looks they can see what you did.