السلام عليكم
مرفق ملف فيه كود لعملية ترحيل البيانات في نفس الورقة 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