sayfanın değişim kodu hatası

[ismailozkan4224]

değerli arkadaşlar aşağıdaki kodlar ayrı ayrı iken çalışıyor. ancak ikisini bir birbirin ilave ettiğimde hata veriyor

Private Sub Worksheet_Change(ByVal Target As Range)


If Intersect(Target, [N4]) Is Nothing Then Exit Sub

Cells(4, 1) = Format(Now(), "MM-DD-YYYY hh:mm:ss")

Call satirekle
Call bicimkopyala
Cells(5, 1) = Cells(4, 1)
Cells(5, 2) = Cells(4, 2)
Cells(5, 3) = Cells(4, 3)
Cells(5, 4) = Cells(4, 4)
Cells(5, 5) = Cells(4, 5)
Cells(5, 6) = Cells(4, 6)
Cells(5, 7) = Cells(4, 7)
Cells(5, 8) = Cells(4, 8)
Cells(5, 9) = Cells(4, 9)
Cells(5, 10) = Cells(4, 10)
Cells(5, 11) = Cells(4, 11)
Cells(5, 12) = Cells(4, 12)
Cells(5, 13) = Cells(4, 13)
Cells(5, 14) = Cells(4, 14)
Call SATIR_RENKLENDIR1
Call bicimlendir
son:

If Not Intersect(Target, [E5:N5000]) Is Nothing Then
Call SATIR_RENKLENDIR1
If Intersect(Target, [E5:N5000]) Is Nothing Then Exit Sub

End If
End Sub