الساده
السلام عليكم ورحمة الله وبركاته
المرفق كود عمليه ضرب عمودين ووضع الناتج فى العمود الثالث من احد الساده الافاضل بالموقع
وأريد شرح لخطوات الكود حتى أستطيع الاستفاده منه فى ملف أخر ولكن مسمى الأعمدة مختلفة
Sub BOQ()
For s = 1 To Sheets.Count
Sheets(s).Select
x = Cells.SpecialCells(xlCellTypeLastCell).Row
For r = 8 To x
If IsNumeric(Cells(r, "I")) = False Then Cells(r, "F").FormulaR1C1 = "=RC[2]*RC[4]"
Next r
Next s
End Sub
وشكرا