السيد ابو اسامة العينبوسي ارجو الدخول والرد ان امكن

[taysser]

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

احتاج لمساعدتك يا ابو اسامة العينبوسي

عندي عمودين في كل عمود قيم اريد كود يقوم باجراء عمليات الضرب والقسمة لتوضع النيجة في العمود الثالث

ارجو الرجد

شكرا

ttt.rar

[ابو اسامة العينبوسي]

السلام عليكم

استخدم الكود التالى

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 2 And ActiveCell.Offset(0, -1).Value = "" Then Exit Sub
Cells(Target.Row, 3).Value = Cells(Target.Row, 1).Value * Cells(Target.Row, 2).Value
Application.EnableEvents = True
End Sub

تم تعديل مايو 27, 2008 بواسطه ابو اسامة العينبوسي

[taysser]

الف شكر للخ التاذ المشرف ابو اسامة العينبوسي على جهة وعلى دعمة للعلم والتعليم دمت ذخرا لنا يا ابو اسامة

شكرا لجهودك