جمع مطاطي مع كتابة نص

[محمد يوسف]

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

اساتذة وخبراء هذا المنتدي الجميل

هل يوجد طريقة لجمع عمود  ويكون الجمع اسفل اخر خليه فيها بيانات في نفس العمود مع كتابة نص  مثل  اجمالي الفاتورة

شكراً لكم  وجعل الله اعمالكم في مزان حسناتكم

شرح المطلوب جمع اسفل الخليه النشطه.xlsm

جزاكم الله خيراً

[سليم حاصبيا]

1- لا تقم بالترقيم لأنة يدرج اوتوماتيكياُ في كل صف (عندما تمتلىء كل الخلايا)

2- اكتب ما تريد في الجدول بما فيه الخلية الخضراء
3- عند الانتهاء اضغط الزر Run

Sub Auto_sum()
Dim Rg As Range
Dim Mmax%
Dim ro%
ro = Cells(Rows.Count, 1).End(3).Row
Mmax = Application.Max(Range("A2:A" & ro)) + 3
Cells(Mmax - 1, 2).Resize(, 5).Interior.ColorIndex = xlNone

With Cells(Mmax, "F")

   .Formula = "=SUM(F3:F" & Mmax - 1 & ")"
   .Value = "My_Sum : " & .Value
   .Interior.ColorIndex = 35
End With
End Sub

 

Summation.xlsm

[محمد يوسف]

استاذ سليم حاصبيا  جزاك الله خيراً

وشكراً علي ما تقدمه لنا من مساعدات

عملية الجمع تعمل بنجاح

ولكن الضرب والطرح لا يعمل

ضرب عمود d*e =الناتج في عمود f كما هو في الملف المرفق في المشاركة الاولي

ارجو المساعدة من حضرتك في اكمال المطلوب

الطلب الاخير اريد ان يعمل بدون زر----  يعمل تلقائي

شكراً لحضرتك وجزاك الله خيراً

تم تعديل ديسمبر 24, 2020 بواسطه محمد يوسف

[سليم حاصبيا]

جمع تلقائي

اكتب في أول صف فارغ من الخلية  B الى الخلية E و عندما تكتمل البيانات في هذا الصف (4 عتاصر يقوم الماكرو بعمله)
الصورة توضح ذلك 

(الملف مرفق)

Summation_1.xlsm

[محمد يوسف]

استاذ سليم حاصبيا

جميل جداً  جزاك الله خيراً

تعديل بسيط 

عايز عندما ادخل البيانات  في عمود dوe   --- يتم تنفيز الماكرو - مش شرط ملئ البيانات من  b  الي E

شكرا وجزاك الله خيراً

 

هل يوجد  طريقة  للأستغناء عن الدالة في عمود a او يتم الاستغناء عن ملئ جميع البيانات ؟

شكرا لحضرتك وجزاك الله خيراً