السلام عليكم ورحمة الله وركاته
الرجاء منكم أيها الأخوة الأفاضل أن تفيدوني انا مبتدئ بالبرمجة وكتبت هذا الكود ولكن ظهرت لي مشكلة الشرح موجود بالصورة وايضا يوجد ملف اكسيل مرفق بيبن ما اطلب وجزاكم الله خيرا
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 1 Then
Range("c" & Target.Row) = Range("a" & Target.Row).Value * Range("b" & Target.Row).Value
Else
If Target.Column = 3 And Range("b" & Target.Row) <> Range("c" & Target.Row).Value / Range("a" & Target.Row).Value Then
Range("b" & Target.Row) = Range("c" & Target.Row).Value / Range("a" & Target.Row).Value
End If
End If
End Sub
abd.zip