Excel 365 VBA module Identify value in first column of Table

[DThib]

Hello,

I cannot remember how to write the code for this one thing.
I have a workbook with tables and have a sheet holding the Audit trail data. All is pulling correctly, but I need to have it identify the text in the first column of data when it finds the address that is identifying as the changed data.
The identity of the target.address is always changing because it is accounting for all changes, but I need the first column text for each entry. Can anyone help me sate this correctly.

Help?

Dim PreviousValue
Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Long
Dim ws As Worksheet

Set ws = Sheets("Audit Trail")

i = ws.Range("F" & Rows.Count).End(xlUp).Row + 1

If Target.Value <> PreviousValue Then
    
    With ws
        .Range("B" & i).Value = FormatDateTime(Now, vbShortDate)
        .Range("C" & i).Value = FormatDateTime(Now, vbLongTime)
        .Range("D" & i).Value = Environ$("username")
        .Range("E" & i).Value = ActiveSheet.Name
        .Range("F" & i).Value = Target.Address
        .Range("G" & i).Value = PreviousValue
        .Range("H" & i).Value = Target.Value
       '.Range("I" & i).Value =
    End With
End If

End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
   PreviousValue = Target.Value
   
End Sub

 

[DThib]

Can anyone help? The row is defined by the Target, I need to call on column 1 in that row to get the text.

Thib

 

[DThib]

So, the problem is, the target address shows the position of the information that has changed and the previous and new information.
I cannot figure out how to take the target row and apply it to the information in column 1 of the table to another table field in the Audit file.

Help, please

 

[Joe4]

Can anyone help? The row is defined by the Target, I need to call on column 1 in that row to get the text.

Try this:

Cells(Target.Row, 1)

 

[DThib]

Try this:

Cells(Target.Row, 1)

Thank you. That was driving me crazy!

 

[Joe4]

You are welcome!
Glad I was able to help!

Many times, I prefer using "Cells" over "Range", as with "Cells", you can refer to columns by either their column name ("A") or by their numerical position (1).

So:

Cells(Target.Row, 1)

and

Cells(Target.Row, "A")

really mean the same thing.