كود لاستخراج حاصل ضرب قيمة خليتين

[يوسف السيد]

السلام عليكم :

أحبتي فى الله ... حياكم الله جميعاً

لدي ثلاثة أعمدة (E,F,G)

العمود G هو حاصل ضرب القيم فى (E,F)

ارغب فى كود بمجرد وضع قيم فى (E,F) يقوم بعملية الضرب ويضع الناتج فى العمود G

وشكراً

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

الأخ الفاضل يوسف

تفضل الملف التالي ..

Muliply Two Columns.rar

[إبراهيم ابوليله]

اخى

جرب وضع الكود الاتى فى حدث الورقه

تقبل تحياتى

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("f2:f7000")) Is Nothing _
And IsNumeric(Target) Then
Target.Offset(0, 1) = Target.Offset(0, 0) * Target.Offset(0, -1): Exit Sub
End If
If Not Intersect(Target, Range("e2:e7000")) Is Nothing _
And IsNumeric(Target) Then
Target.Offset(0, 2) = Target.Offset(0, 0) * Target.Offset(0, 1): Exit Sub
End If

End Sub

[الصـقر]

تفضل اخى الكريم

تقبل تحياتى

معادله بالكود.zip

[يوسف السيد]

اخواني الاعزاء :

أ: ياسر خليل

أ: ابراهيم ابو ليلة

أ : الصقر

شكراً جزيلاً .. وفقنا الله وإياكم لما فيه الخير والسداد

[أبو أنس80]

الف شكر لجميعكم 

انا جربت كود شي جميل

اشكركم

بارك الله فيكم