ترحيل بيانات ينقصه التأثير على ورقة عمل اخرى

[ابوسلماان]

السلام عليكم 

 

مرفق ملف فيه كود لعملية ترحيل البيانات في نفس الورقة Exp ،، فهل يمكن التعديل على الكود بحيث يؤثر على ورقة عمل أخرى Reports  ( العمودين الاخيرين المبلغ والاسم  ) وليس نفس الورقة ؟

 

Private Sub worksheet_change(ByVal target As Range)

If target.Row > 2 Then

If target.Column = 1 Or target.Column = 9 Or target.Column = 10 Then

If Cells(target.Row, "a") = "" Or Val(Cells(target.Row, "i")) + Val(Cells(target.Row, "j")) = 0 Then Exit Sub

Cells(target.Row, "k") = Cells(target.Row, "i") - Cells(target.Row, "j")

Cells(target.Row, "l") = Cell(target.Row, "B")

 

    End If

End If

 Application.ScreenUpdating = True

End Sub

 

الكود بواسطة الاستاذ محمد عمر

test2.rar

[ياسر العربى]

تفضل هل هذا ما تقصده؟

 

test2.rar

 

[ابوسلماان]

الله ينور

بارك الله فيك ،،  وجزاك الله الف خير.

 

خالص محبتي ،،