عمل مجموع لكل 30 صف أوتماتيكيا

[مهند الزيدي]

السلام عليكم .... ممكن عمل المظلوب داخل المرفق ... جزاكم الله خيرا

عمل مجموع إجمالي لكل 30 صف أوتماتيكيا.rar

[شوقي ربيع]

السلام عليكم

جرب هذا الكود يقوم باضافة حقل جديد بعد كل 30 صف ثم يضع المجاميع الخاصة بكل  30 صف للعمودين E & F   و يلون صطر المجموع الى الاصفر

Sub test()
For R = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 30
If R <> 1 Then
 Range("A" & R + 1 & ":E" & R + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 Range("E" & R + 1).Formula = "=SUM(E" & R - 29 & ":E" & R & ")"
 Range("F" & R + 1).Formula = "=SUM(F" & R - 29 & ":F" & R & ")"
 Range("A" & R + 1 & ":E" & R + 1).Interior.Color = 65535
End If
Next
End Sub

[مهند الزيدي]

أخي العزيز شوقي ربيع ... اشكرك جدا على الاجابة ... اريد ان يقوم باضافة حقل المجموع بعد  حساب ثلاثين صف ما عدا الصفوف التي يكون فيها العمود E ,F  يساوي صفر مع التقدير

[m.hussien]

مشكورين جدا

[محمد أبو يوسف]

السلام عليكم
شكراً للأفكار المطروحة والحلول الجميلة
وشكر خاص لإدارة الموقع
ولكنى أرجو تطبيقها عملى لأني محتاج هذه الدالة فى شغلى
أرجو أرفاقها مع ملف كمثال

[الشهابي]

أخي العزيز / مهند الزيدي

وبعد إذن أستاذنا القدير ربيع المنتدى / شوقي ربيع حفظه الله 

هذا حل بالمعادلات بس في ورقة جديدة باستخدام أعمدة مساعدة تم تلوينها باللون الأحمر 

والفضل في تعلمي هذه الطريقة يعود لأستاذنا الكبير / أحمد يعقوب حفظه الله ورفع قدره 

إن شاء الله يلبي هذا طلبك

عمل مجموع إجمالي لكل 30 صف أوتماتيكيا.rar

[مهند الزيدي]

شكرا جزيلا .. لك أخي الشهابي .. ممكن عمل المطلوب في المرفق .. مع الشكر

عمل مجموع إجمالي لكل 30 صف أوتماتيكيا.rar

[الشهابي]

أخي العزيز / مهند الزيدي

ضع المعادلة التالية في الخلية (D3) واسحبه لليسار ثم للأسفل 

=IFERROR(SUMPRODUCT(--(أدوية!$AA$2:$AA$1000>=$B3)*(أدوية!$AA$2:$AA$1000<=$C3);(أدوية!E$2:E$1000));0)

بس لابد من وجود العمود المساعد في ورقة ( الأدوية ) 

عمل مجموع إجمالي لكل 30 صف أوتماتيكيا_2.rar

[مهند الزيدي]

أخي العزيز .. الشهابي .. عند تطبيق المعادلة على الشيت الأصلي ..حدثت مشكلة ممكن حل على المرفق

عمل مجموع إجمالي لكل 30 صف أوتماتيكيا_2.rar

[الشهابي]

أخي العزيز / مهند الزيدي

السبب هو سؤ فهم مني 

حيث اعتمدت الفراغ على العمود (C) و أنت تريده حسب العمودين (E) ,(F)

ولكنه ليس السبب الرئيسي في عدم جلب البيانات بشكل صحيح 

حيث وجدت خطأ في الصف (78) في العمودين  (E) ,(F) 

أولا : تم تعديل المعدلة حسب العمودين  (E) ,(F) وإضافة دالة (IFERROR) لتفادي الخطأ 

كم تم تصحيح الخطأ الموجود في الصف (78) 

استبدل المعادلة التالية بالمعادلة الموجودة في الخلية (AA2) واسحبها لأسفل 

=IFERROR(IF(OR(E2=0;F2=0);"";COUNT($AA$1:AA1)+1);"") 

وإن شاء الله تكون النتائج صحيحة 

[مهند الزيدي]

أخي العزيز الشهابي .. أعتقد نفس المشكلة ...ممكن أرسال الحل مع الملف المرفق

[الشهابي]

أخي العزيز / مهند الزيدي

حاولت بكل الطرق لتفادي الخطأ ولكن دون فائدة

فلابد إذا من تصحيح الخطأ في الصف (78) في العمودين  (E) ,(F) 

وإلا ستبقى النتائج غير صحيحة 

وهذا المرفق 

 

عمل مجموع إجمالي لكل 30 صف أوتماتيكيا_2_2.rar

[مهند الزيدي]

للرفع

[مهند الزيدي]

للرفع

[مهند الزيدي]

الأخت أم عبد الله.. السلام عليكم .. ممكن حل

[مهند الزيدي]

للرفع

[مهند الزيدي]

الى خبراء المنتدى الرائع .. ألا يوجد حل

[مهند الزيدي]

للرفع

[مهند الزيدي]

ألاخ حمادة .. ممكن حل بكود أو معادلة

[بن علية حاجي]

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

 

أخي الكريم مهند، باستعمال محرر الأكواد قمت بتحضير ماكرو يقوم بالعملية حسب الشروط التي ذكرتها في موضوعك، أرجو أن يفي بالغرض المطلوب...

 

جمعة مباركة لكل المسلمين...

 

أخوك بن علية

 

المرفق : نموذج3.rar