مساعدة في كود

[أبو يحيى الجبلاوي]

السلام عليكم ورحمة الله وركاته 
الرجاء منكم أيها الأخوة الأفاضل أن تفيدوني انا مبتدئ بالبرمجة وكتبت هذا الكود ولكن ظهرت لي مشكلة الشرح موجود بالصورة وايضا يوجد ملف اكسيل مرفق بيبن ما اطلب وجزاكم الله خيرا 
 

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

[ياسر خليل أبو البراء]

وعليكم السلام ورحمة الله وبركاته

جرب الكود التالي

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("a" & Target.Row).Value <> "" And Range("a" & Target.Row).Value <> 0 Then
            If 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 If
End Sub

 

[أبو يحيى الجبلاوي]

جزاك الله خيرا أخي ياسر دائما بتسعدني باستجابتك السريعة الله يكرمك نفس المشكلة ما زالت قائمة ولكن الكود أصبح أجمل  
ولكن للأسف مازالت المكشلة ظهور خطأ عندما تكون الخلية a فارغة

تم تعديل أغسطس 14, 2017 بواسطه أبو يحيى الجبلاوي

[ياسر خليل أبو البراء]

وجزيت خيراً بمثل ما دعوت لي أخي أبو يحيى ..جرب الكود مرة أخرى بعد التعديل

[أبو يحيى الجبلاوي]

اسعدك الله في الدارين وجزاك الله خيرا تمام نجح الكود بامتياز 

 

[ياسر خليل أبو البراء]

ربنا يبارك فيك أخي أبو يحيى ومشكور على دعائك الطيب .. ولك بمثله إن شاء الله