Yeni Satır Eklendğinde Kaydet

[cevatyildiz]

Merhaba,

Aşağıdaki kod ile limit sınırlaması yapıyorum, fakat kullanıcı aynı satırı kopyalayıp yeni bir satır olarak yapıştırdıgında kontrollerim çalışmıyor. Yeni satır eklenmesi durumunda da Save ve kontrol işlemlerinin çalışmasını istiyorum, yardımcı olabilir misiniz?

If WorksheetFunction.SumIf(Range("r:r"), Cells(Target.Row, 18), Range("i:i")) > 1000 Then
        MsgBox "Limit Asildi"
        If Target.Column >= 18 Then
            Cells(Target.Row, "r") = Empty: Cells(Target.Row, "r").Select
        Else
            Cells(Target.Row, "i") = Empty: Cells(Target.Row, "i").Select
        End If
    End If
End If
'MsgBox Target.EntireColumn
If Target.Column = 18 Then If (Target.Row > 2 And Target.Row < WorksheetFunction.Match("Daily Capacity :", Range("i:i"), 0)) Then ActiveWorkbook.Save
If Target.Column = 9 Then If (Target.Row > 2 And Target.Row < WorksheetFunction.Match("Daily Capacity :", Range("i:i"), 0)) Then ActiveWorkbook.Save

End Sub