Ošetrenie výmazu či vloženia riadka (alebo iných operácií, kde by dochádzalo k chybe):
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Chyba
Application.EnableEvents = False
If (Target.Column <> 1 _
And Target.Column <> 7 _
And Target.Column <> 8 _
And Target.Column <> 9 _
And Target.Column <> 15) _
Or Target.Row < 10 Or Target = "" Then
Application.EnableEvents = True
Exit Sub
End If
Target = Left(Target, 2) & "." & Mid(Target, 3, 2) & ".20" & Right(Target, 2)
Application.EnableEvents = True
Exit Sub
Chyba:
Application.EnableEvents = True
Exit Sub
End Sub
A k tomu intervalu rokov:
Ako má Excel rozoznať, keď ako rok napíšeš napr 90, či myslíš 1990 alebo 2090???