اخى الفاضل
لعل المرفق به ما تريد
تحياتى
هذا هو الكود
هل ممكن شرحة بالعربي لكي احاول اعمل مثله
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Not Intersect(Target, Range("B2:D27")) Is Nothing Then
i = Target.Row
Range("E" & i).Value = Range("C" & i).Value * Range("D" & i).Value
If Range("B" & i).Value <> "" Then
Range("H" & i).Value = Range("E" & i).Value
Else
Range("H" & i).Value = ""
End If
End If
End Sub