أكاديمية الصقر للتدريب
موضوع بعنوان :تجميع القيم من عدة شيتات بكود VBA
الكاتب :حسين مامون


السلام عليكم ورحمة الله
الاخوة الكرام
في المرفق وضعت كود
VBA
في الز لو ممكن اجراء تعديل عليه ,
اريد تغيير السطرين في الكود الى FORMULA
ws.Range("b" & lr) = Application.WorksheetFunction.Sum(whs.Range("c6:c1000"))
ws.Range("c" & lr) = Application.WorksheetFunction.Sum(whs.Range("d6:d1000"))
 جزاكم الله خيرا