Tohle je šikovná funkce pro sledování editace!

Pro časové razítko (ve sloupci A) v případě změny ve sloupcích B až D to pak je (neoptimalizováno ) takhle:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = "2" Then
      With Cells(Target.Row, Target.Column - 1)
        .Value = Now
        .EntireColumn.AutoFit
      End With
    End If
    If Target.Column = "3" Then
      With Cells(Target.Row, Target.Column - 2)
        .Value = Now
        .EntireColumn.AutoFit
      End With
    End If
    If Target.Column = "4" Then
      With Cells(Target.Row, Target.Column - 3)
        .Value = Now
        .EntireColumn.AutoFit
      End With
    End If
End Sub

Jak to provést obecně (a optimalizovaně) pro celý list? Aby jakákoliv změna kdekoliv ve sloupcích B až IV byla zaznamenána ve sloupci A.

Díky.