حذف سلولها با شرایط خاص

[iranweld]

با سلام

فایل پیوست را ملاحظه بفرمایید

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next  'skip all run-time errors'

 If Not Application.Intersect(Target, Range("A:D")) Is Nothing Then

Application.EnableEvents = False

I = Target.Row



If Range("A" & I).Value <> "" Then

Range("C" & I).Value = Range("A" & I).Value + Range("B" & I).Value


 End If

 End If
 
Application.EnableEvents = True

On Error GoTo 0  'Turn off error trapping and re-allow run time errors

End Sub 

[savco]

با سپاس فراوان ممنون فایل ارسالی دوم دقیقا همونی که میخواستم . باز هم تشکر