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

[محمد حسن المحمد]

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

لقد تقدمت بهذا الطلب من قبل وكانت النتائج جيدة والحمد لله إلا أنني ولكبرحجم العمل أرغب بأن تكون الإجابة

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

أرشدني إليها الأستاذ محمد الريفي مشكوراًً

راجياً مساعدتكم وشكراً.

المجموع الفرعي الأصناف والكميات.rar

[علاء رسلان]

و عليكم السلام و رحمة الله و بركاته لكم سعادتى عندما يبدأ الحوار بذكر السلام اللهم أجعلنا من أهلها

و يؤلمنى كثيرا اننى لا أتمكن من تقديم المساعدة لعدم درايتى بالأكواد و قلة خبرتى بالمعادلات و أساعد بقدر ما أستطيع و أن كان بالتذكير و الرفع

دمت بخير و أعزك الله

[محمد حسن المحمد]

السلام عليكم أخي علاء رسلان المحترم:

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

وانظر إلى حديث الرسول صلى الله عليه وسلم:

قال النبي صلى الله عليه وسلم: "والذي نفسي بيده لا تدخلون الجنة حتى تؤمنوا ولا تؤمنوا حتى تحابوا، ألا أدلكم على شيء إذا فعلتموه تحاببتم، افشوا السلام بينكم تحابوا" رواه احمد ومسلم وأبو داود والترمذي وابن ماجة عن أبي هريرة.

 

وقال النبي صلى الله عليه وسلم: "إذا لقي أحدكم أخاه فليسلم عليه فان حالت بينهما شجرة أو جدار أو حجر ثم لقيه فليسلم عليه" رواه ابو داود وابن ماجة وابن حيان عن أبي هريرة رضي الله عنه.

 

وقال النبي صلى الله عليه وسلم: "إذا التقى المسلمان فسلم احدهما على صاحبه كان أحبهما إلى الله أحسنهما بشرا لصاحبه، فإذا تصافحا انزل الله عليهما مائة رحمة للبادئ تسعون وللمصافح عشرة"

 أقصر الطرق لنشر المحبة والألفة والسعادة بين أبناء المجتمع الإسلامي الواحد
وأبسط الكلمات وأعظمها نعم كلمات بسيطة لكنها عظيمة لأنها تبدأ باسم الله تعالى

اسم الله هو السلام

 أما عن الجانب الثاني ....لا عليك يا أخي فأنتم جميعاً الخير والبركة.. 

والله هو الذي يهيئ الأسباب 

تقبل تحيات  أخيك أبو يوسف والسلام عليكم ورحمة الله وبركاته.

[محمد حسن المحمد]

السلام عليكم: أبيات لطرفة بن العبد أدرجها ضمن مشاركتي هذه ريثما أجد من يشاركني من أصدقائي الكرام الإجابة على موضوعي:

ستبدي لك الأيام ما كنت جاهلاً                         ويأتيك بالأخبار من لم تزود

         ويأتيك بالأخبار من لم تبع له                 بتاتاً ولم تضرب له وقت موعد

 لعمرك ما الأيام إلا معارةٌ                            فما اسطعت من معروفها فتزود

ولا خير في خيرٍ ترى الشر دونه                               ولا نائلٍ يأتيك بعد التلدد

عن المرء لا تسأل وأبصر قرينه                   فكل قرينٍ بالمقارَن يقتدي

أتوسم الخير بوجوهكم الطيبة....وأنتظر إجاباتكم .....

تم تعديل يونيو 16, 2015 بواسطه محمد حسن المحمد

[محمد حسن المحمد]

السلام عليكم

أحببت التذكير بموضوعي هذا

قال الله تعالى: pإنما يخشى اللهَ من عباده العلماءُi

وقال تعالى: pوفوق كل ذي علم عليمٌi

وقال تعالى: pقل هل يستوي الذين يعلمون والذين لا يعلمونi

وقال تعالى: pولا يحيطون بشيء من علمه إلا بما شاءi

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا ..........آمين.

[محمد حسن المحمد]

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

 

[محمد حسن المحمد]

بسم الله والصلاة والسلام على رسول الله أما بعد

بسبب انشغال السادة الخبراء الكرام ونظرا لقدوم شهر رمضان المبارك والتفرغ للعبادة والطاعة لله تعالى فإنني أجد من المناسب تأجيل العمل به إلى ما بعد عيد الفطر المبارك وكل عام وأنتم إلى الله أقرب والصلاة والسلام على سيد المرسلين والحمد لله رب العالمين والسلام عليكم أخوكم أبو يوسف.

[ياسر خليل أبو البراء]

الأخ الحبيب أبو يوسف

إليك الحل التالي عله يكون المطلوب

Sub AddFilteredCells()
    Dim rngData As Range, R As Range
    
    Set rngData = Range("G11:G25")
    Set Dict = CreateObject("Scripting.Dictionary")
    
    Range("D31:E50").ClearContents
    
    For Each R In rngData.SpecialCells(xlCellTypeVisible)
        Dict.Item(R.Value) = Dict.Item(R.Value) + R.Offset(, 2).Value
    Next R
    
    Range("D31").Resize(Dict.Count, 1) = Application.Transpose(Dict.keys)
    Range("E31").Resize(Dict.Count, 1) = Application.Transpose(Dict.items)
End Sub

تقبل الله منا ومنكم صيام الشهر وقيامه

المجموع الفرعي الأصناف والكميات.rar

[محمد حسن المحمد]

السلام عليكم أخي وحبيبي في الله أبو البراء أحبك في الله

ثم إني أشكرك على عملك الرائع الذي أتحفتني به.

الحمد لله على سلامتك ..أدعو الله أن يتقبل صيامكم وقيامكم

يعجز لساني عن شكركم ولذلك فإنني لن أجد أجمل من كلمة جزاكم الله خيرا ونفع بكم..أمة الإسلام.

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

تم تعديل يونيو 19, 2015 بواسطه محمد حسن المحمد