Can someone change the VBA code or give me other advice for solution.
I have asked the same question at this link but I did not get help
After entering/modified the data, I want to copy the following:
column A, column B, column where the entered/changed data (all of the same row) and add the date and time of the change.
Code
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 3 Or 5 Or 7 Then 'I have 119 columns but I change specific column only
'If Target.Column <> "" Then 'changed specific cell/column only
If UCase(Target.Value) <> "" Then
Target.EntireRow.Copy Destination:=Sheets("Chronology"). _
Range("A" & Rows.Count).End(xlUp).Offset(1)
'Target.EntireRow.Delete
Target.EntireRow.Copy
End If
End If
Application.CutCopyMode = False
Range("A1").Select
' Reset EnableEvents
Application.EnableEvents = True
End Sub
Display More