استخراج القيم حسب التاريخ والمادة

[زوهير]

 

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

والمرفق يوضح الطلب اكثر

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

 

استخراج القيم حسب التاريخ.rar

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

بعد السلام

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

اضغط افضل اجابة اذا كان كذلك

استخراج القيم حسب التاريخ salim.rar

[زوهير]

جزاك الله خيرا اخي هو المطلوب

لكن سيتم نقل المعادلة الى ملف اخر وبه بيانات كثيرة   --  وتاريخ سيتم ادخاله من الفورم

اي  سيتم التعامل مع المعطيات من الفورم مباشرة دون فتح الشيت والمعطيات غير محددة اي ممكن استعمال اكثر من 60000 صف

ان ثقلت عليك قليلا ان تتم العملية عن طريق كود ان امكن

لتفادي ثقل الملف وجزاك الله خيرا مسبقا

 

[علاء رسلان]

السلام عليكم أخى الكريم زوهير ، فضلا لا أمرا أرفق الملف المطلوب العمل عليه بالحد الأدنى من البيانات فاليكن 5 صفوف من 60000 حتى يتم العمل على الفورم الموجود بالملف و يكون متسق مع البيانات و مواضعها و بما يسهل عليك بعد ذلك نقل الكود بشكل سليم ، هذا رأيى على أى حال و أنت غير ملزم به و عموما تعاملى مع الأكواد لا يذكر و لا أعرف عنها سوى أقل القليل

و شكر لأخى الكريم سليم حاصبيا و أستاذى الفاضل .. تقبل مرورى

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

[زوهير]

جزاك الله خيرا اخي الكريم على تعبك معايا

الملف المرفق شبيه تماما بالاصلي مع اختلاف في المواد والتعامل من الفورم مباشرة فقط

لهذا اخي احببت ان يكون الامر بالاكواد فقط

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

وجزاك الله خيرا ومع كل احترماتي وتشكراتي لك

 

 

[زوهير]

للرفع جزاكم الله خيرا

[زوهير]

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

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

 

اخوتي هل من حل جزاكم الله اريده بالاكواد ان امكن ذلك

[زوهير]

للرفع هل ممكن مساعدة

[زوهير]

الاساتذة الكرام  ارجوا المعذرة اني مستعجل بالامر جزاكم الله خيرا

ان كان هناك حل لما اطلبه اريد الحل بالاكواد وان كان مستحيلا

اريد جوابا    -وتقبل الله صيامكم وقيامكم ولكل الامة الاسلامية كافة -

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

أخي الكريم زوهير

بناءً على ما تقدم به الرائع المتميز الأخ الحبيب سليم

إليك هذا الكود البسيط الي سيؤدي الغرض إن شاء المولى

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$2" Or Target.Address = "$G$2" Or Target.Address = "$H$2" Then
        [I2].Formula = "=SUMIFS(C$3:C$500,$A$3:$A$500,$F$2,$B$3:$B$500,"">=""&$G$2,$B$3:$B$500,""<=""&$H$2)"
        [J2].Formula = "=SUMIFS(D$3:D$500,$A$3:$A$500,$F$2,$B$3:$B$500,"">=""&$G$2,$B$3:$B$500,""<=""&$H$2)"
        [K2].Formula = "=SUMIFS(E$3:E$500,$A$3:$A$500,$F$2,$B$3:$B$500,"">=""&$G$2,$B$3:$B$500,""<=""&$H$2)"
        Range("I2:K2").Value = Range("I2:K2").Value
    End If
End Sub

تقبل تحياتي

Sum Values Between Two Dates.rar

[زوهير]

السلام عليك الاخ  خليل ابو البراء ورمضان كريم

وعذرا على الاطالة في الرد فاني منشغل في العمل بعض الشيء

وعند اطلاعي على الملف المعدل من طرفكم اثلج صدري فعلا هو المطلوب  لكن اردت ان امكن

عدم اللجوء الى المعدلات في الاوراق ويكون كل شيء بالاكواد  فعلا هو تعب كبير لكن والله حاولت وحاولت لعلني

اصل الى جواب لكن حدود معرفتي توقفت هنا وجزاك الله خير الجزاء

 

 

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

وعليكم السلام أخي الكريم زوهير

وكل عام وأنت بخير

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

[زوهير]

كل الشكر والتقدير للاخ سليم على مجهوده في بناء المعادلات

ولك كل الاحترام والتقدير و اعاد الله عليكم رمضان بالخير والعافية وبلغكم عيد الفطر بالخير  ان شاءالله

ولكامل الامة الاسلامية

--------------------------------------------------------------------------------------------

الاخ ابو البراء هل ممكن بكود  يقوم بحماية المعطيات بعد ترحيلها من التعديل

 

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

أخي الكريم زوهير

هل تقصد إدراج أسطر لحماية الورقة قبل وبعد تنفيذ الكود أم ماذا تقصد بالضبط ؟

هل تقصد أن تتم عملية الجميع مرة واحدة فقط !!! ..أعتقده طلب غريب لو كان الأمر كذلك ..

[زوهير]

 

 

 السلام عليك اخ ابو البراء كيف حالك مع رمضان والله اليوم عندنا الحرارة لا توصف والعطش عمل عملته فينا

اما فيما يخص الطلب

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

ولا اريد ان تتغيير الا بكلمة سر او ماشابه وان تكون الحماية من محرر الاكواد ارجوا ان اكون وفقت في وصف الفكرة

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

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

الأخ الكريم زوهير

كلما زادت المشقة زاد الأجر بإذن الله أعانكم الله وتقبل منا ومنكم

 

بالنسبة لطلبك غاية في اليسر والسهولة .. وهو قبل الكود أن تقوم بحماية الورقة بكلمة سر ولكن قبل ذلك تحدد خلايا الإدخال وكليك يمين ومن آخر تبويب Protection شيل علامة الصح من جانب الخيار Locked ومن جانب الخيار Hidden ؛ عشان تستثني الخلايا دي من الحماية ..

وبعدين فعل الحماية بأي كلمة سر مثلاً في الملف المرفق كلمة السر 1 (الله واحد لا شريك له) .. وقبل الكود تضع سطر لفك الحماية بكلمة السر المحددة كما بهذا الشكل

        ActiveSheet.Unprotect 1

وبعد تنفيذ الكود تعود الحماية بسطر آخر

        ActiveSheet.Protect 1

جرب الملف المرفق وإن شاء الله يكون المطلوب

تقبل تحياتي

Sum Values Between Two Dates.rar

[زوهير]

 

امين يارب العالمين

------------------------------------

جزاك الله خيرا ابو البراء هو المطلوب و نجحت الفكرة 

 

تحياتي                        ورمضان كريم

------------------------------------------------------------

وتقبل الله منا منكم ولسائر الامة الاسلامية  ان اشاءالله