تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركة
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = True
Dim My_Value
If Target.Address = "$A$2" Then
Range("A2").Select
My_Value = ActiveCell.Value
Range("B2").Select
ActiveCell.FormulaR1C1 = ActiveCell.Value - My_Value
End If
End Sub
مرفق الملف مشاركة من الفاضل / أبو أنس حاجب
______________.rar
و لا تنسونا من صالح الدعاء
تحياتى