
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D2")) Is Nothing Then Target.Offset(0, 1).Value = Now
If Not Intersect(Target, Range("F2")) Is Nothing Then
Target.Offset(0, 1).Value = Now
If Target.Offset(0, -1) = "" Then
MsgBox "Nessun orario in E2"
Else
Target.Offset(0, 2) = Target.Offset(0, 1) - Target.Offset(0, -1)
End If
End If
End Sub |
