Private Sub Worksheet_Change(ByVal Target As Range)
Dim Oblast As Range
'definice sledované oblasti
Set Oblast = Range("C1:C1000")
'test výběru
If Union(Oblast, Target).Address = Oblast.Address Then
MsgBox "Změněna hodnota v buňce " & Target.Address(0, 0)
ActiveSheet.Range("A" & Target.Row & ":C" & Target.Row).PrintOut Copies:=1
End If
End Sub
Avšak pozor, zmena je aj zmazanie, t.j. ak zmažeš napr. bunku C5, vytlačia sa bunky A5 až C5, pričom C5 je prázdna...