Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("B8:K8")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Range("B8:K8").Copy
With Sheets("List2").Range("A" & Rows.Count).End(xlUp).Offset(1)
.PasteSpecial Paste:=xlPasteColumnWidths
.PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
End If
End Sub
Neporadil by mi někdo, prosím, s tím, co mám do kódu vložit za funkci, aby se na novém listu vedle zkopírovaných buněk objevil také čas, kdy došlo ke změně buňky na původním listě? Díky.