نجوم المشاركات

وهذا كود أخر ان شاء الله يفي بالغرض (تعدد الحلول) Sub Abu_Ahmed() LR = Range("A" & Rows.Count).End(xlUp).Row + 1 If Range("A" & LR - 1).Value = "الاجمالي" Then MsgBox "تم الجمع سابقاً", vbCritical + vbOKOnly, "تنبيه": Exit Sub Range("A" & LR).Value = "الاجمالي" x = Application.Sum(Range("C2:C" & LR)) y = Application.Sum(Range("D2:D" & LR)) z = Application.Sum(Range("E2:E" & LR)) Range("B" & LR).Value = x + y + z End Sub

إستخدم المعادلات التالية في الخلايا C2 & D2 ثم قم بنسخهم حتى نهاية المدى الذيس تريده المعادلة التي ستقوم بفصل الإسم هي =TRIM(MID(B2;FIND(" ";B2);LEN(B2))) المعادلة التي ستقوم بإستخراج الرقم هي =LEFT(B2;FIND(" ";B2)-1)*1

افتح الملف اضغط ALT+F11 من قائمة Debug اختار Compile VBA Project و أخبرني هل تظهر رسائل خطأ ؟ ايضا راجع Tools References هي تشير الي مراجع Missing ؟ هل تستخدم اوفيس 2010 ؟

تفضل المرفق date.rar