Satır Silince Formül Hata veriyor..

[designer41]

Merhaba

Private Sub Worksheet_Change(ByVal Target As Range) olayını
Aşağıda ki kodda iki yerde kullandığımda ikincisi çalışmıyor?


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B16:B49")) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
On Error GoTo Son
Application.EnableEvents = False
If Target = "" Then
Cells(Target.Row, "c").ClearContents
Cells(Target.Row, "d").ClearContents
Cells(Target.Row, "ı").ClearContents
End If
Son: Application.EnableEvents = True


If Intersect(Target, Range("B50:B58")) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
On Error GoTo Son2
Application.EnableEvents = False
If Target = "" Then
Cells(Target.Row, "c").ClearContents
Cells(Target.Row, "d").ClearContents
Cells(Target.Row, "e").ClearContents
Cells(Target.Row, "f").ClearContents
Cells(Target.Row, "g").ClearContents
Cells(Target.Row, "h").ClearContents
Cells(Target.Row, "ı").ClearContents
Cells(Target.Row, "j").ClearContents
End If
Son2: Application.EnableEvents = True

End Sub

Yardım edebilecek arkadaşlara şimdi den teşekkürler.