الساده الافاضل
تم الاستعانه بالكود الموضح من الاستاذه الافاضل احمد حمور-ابوعبدالله ، طارق محمود عن سنة July 31, 2010
برجاء المساعدة ان يعمل هذا الكود على اى عدد من الشيتات الموجودة بالملف و اى عدد من الصفوف
مع احترامى أريد شرح لكل خطوة للاستفاده ومحاولة التغيير لما يتناسب مع الجداول
Sub Auto_open()
For i = 1 To 10
x = Worksheets("sheet1").Cells(i, 5).Value
y = Worksheets("sheet1").Cells(i, 7).Value
Worksheets("sheet1").Cells(i, 8).Value = x * y
Next i
End Sub