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

أخي الكريم أبو عبد الملك أعتذر في التأخر في الرد عليك قمت ببعض التعديلات في الملف المرفق (لعل ذلك لا يضايقك) ولكن التعديل من باب الوصول للحل بسهولة .. التعديل الذي قمت به في ورقة الحلقات أعدت ترتيب الحلقات بحيث تبدأ السور من أول القرآن وهذا ليس من باب التعديل بصفة شخصية ولكن من باب التسهيل للوصول لحل حيث في العمود F في ورقة العمل "الحلقات" تم الاستعانة بهذا العمود المساعد المخفي لكي تتم الإشارة إلى رقم السور في بداية كل حلقة .. في الملف المرفق تم تسمية نطاق أرقام السور ونطاق أسماء السور لاستخدامها في المعادلة المستخدمه إليك الحل ..الحل في الأصل بمعادلة تم استخدامها لتؤدي الغرض ثم حولت لك المعادلة لكود .. إذا كانت تلك النقطة قد تمت بسلاااااااام يرجى طرح موضوع جديد (وعنوان الموضوع الجديد يكون مناسب للطلب وتشير في نهاية اسم عنوان الموضوع إلى اسم البرنامج) تم التعديل على الكود الحالي كما طلبت وليس كود جديد Sub CopyDataFromRecordInf() Dim WS As Worksheet, SH As Worksheet Dim LR As Long Set WS = Sheets("معلومات التسجيل"): Set SH = Sheets("التقرير الشهري") LR = WS.Cells(Rows.Count, 1).End(xlUp).Row Application.ScreenUpdating = False SH.Range("A2:D1000").ClearContents WS.Range("A2:C" & LR).Copy SH.Range("A2").PasteSpecial xlPasteValues With SH.Range("D2:D" & SH.Cells(Rows.Count, 2).End(xlUp).Row) .Formula = "=IF($L2="""","""",LOOKUP(INDEX(QNumbers,MATCH($L2,QNames,0)),الحلقات!$F$2:$F$6,الحلقات!$B$2:$B$6))" .Value = .Value End With SH.Range("A1").Select Application.CutCopyMode = False Application.ScreenUpdating = True End Sub تقبل تحياتي Quran School V3.rar

مشكور على مرورك العطر أخي الحبيب الغالي مختار وعوداً حميداً للمنتدى تقبل تحياتي

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

الأخ الكريم ماجد يرجى تحديد أفضل إجابة .. المشاركة رقم 5 أقوى 100 مرة حيث التعامل مع المصفوفات يتيح لك التعامل مع البيانات الكثيرة جداً ..دفعني إلى ذلك ذكرك أن البيانات تتعدى الـ 1000 ..يمكنك التأكد بزيادة البيانات إلى50000 مثلاً وشوف النتائج عموماً الحمد لله أن تم المطلوب على خير لا تنسى التوجيهات

حاول أن توضح طلبك مرة أخرى .. أين تريد المعادلة ؟ على أي الخلايا تريدها ؟ ما هي شكل النتائج المتوقعة؟ حيث أني اطلعت على المرفق ولم أفهم الكثير .. عموما جرب المعادلة التالية في الخلية G2 =IF(DAY(D2)<DAY(C2),DAY(D2)+30-DAY(C2),DAY(D2)-DAY(C2)) علها تكون المطلوب

أخي الكريم ذكرت في ملفك محتاج يعطيني احصاء عدد الايام فقط بين تاريخين يكون بالدوال او بالاكواد يكون المرجع للاحصاء الرقم الوظيفي أين التاريخين؟

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

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

أخي الغالي أيمن إبراهيم إليك الكود التالي عله يكون المطلوب Sub Ayman_Trheel_TBYED() Dim SH As Worksheet, I As Long, S As Long, CL As Range S = 1 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each SH In Worksheets If SH.Name <> "الشيت" Then SH.Range("A10:BY819").ClearContents Next SH For I = 2 To 7 For Each CL In Range("CC6:CC" & [CC1000].End(xlUp).Row) If CL.Value = Sheets(I).Name Then CL.Offset(0, -79).Resize(1, 76).Copy If I = 5 Then S = 2 End If Sheets(I).Range("B" & Sheets(I).[B1000].End(xlUp).Row + S).PasteSpecial xlPasteValues With Sheets(I).Range("A10:A" & Sheets(I).[B1000].End(xlUp).Row) .Formula = "=+IF(I10="""","""",SUBTOTAL(3,I$10:I10))" .Value = .Value End With End If Next Next Application.CutCopyMode = False Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True MsgBox "تم ترحيل الطلبة الناجحــون والـدور الثـاني للتبيـيض بنجاح ", vbOKOnly, "الحمـــد لله" End Sub تقبل تحيات تلميذكم ياسر

أخي محمد الريفي هل اطلعت على المشاركة رقم 3 ؟

أعتذر إليك أخي سليم لم أرى مشاركتك إلا بعد أن أدرجت المشاركة الخاصة بي تسلم وربنا يبارك فيك شيل من الكود الخاص بك -1 ليتم المطلوب كما أرد الأخ أكرم

الأخ الكريم أكرم جلال إليك الكود التالي Sub ResizeActiveCell() ActiveCell.Resize(, 13).Select End Sub

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

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

جزيت خير الجزاء أخي الحبيب محمد الريفي فأنت مرجع المنتدى فيما يخص المحاسبة تقبل تحياتي

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

أعانكم الله ..المهم إحنا اطمنا عليك روح كمل غطس لو لسه مخلصتش

يجازيك خير ابو يوسف رقبتي وجعتني كلمة فوق كلمة تحت كلمة يمين ..مش عايزين حد من الأعضاء يصاب يقوم يدعي علينا تقبل تحياتي

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

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

أخي أبو عبد الملك رغم التفصيل إلا أن هناك حلقة ناقصة كيف أعرف أن الطالب في سورة الفلق ؟؟ من أي ورقة ومن أي عمود ؟؟ أنت ذكرت العمود I إلا أنني لم أجد في العمود I المذكور في أي ورقة عمل ما تقول .. أم أنك تقصد العمود J في ورقة العمل المسماة "سجل القيد" إذا كان كذلك قم بتغيير كلمة الصورة إلى السورة وضع بعض البيانات للعمل عليها ... اضبط الملف أمر آخر يرجى إكمال الملف في ورقة العمل "المنهج" العمود H الخاص بأرقام السور في العمود I المقابل لم تكتب كل أسماء السور ..مجرد ملحوظة أم أنها مقصودة منك ؟

ننتظر رأي الأخ علي الشيخ وأسامة البراوي بخصوص هذه النقطة حيث أنهما أعلم مني تقبل تحياتي أخي إبراهيم

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

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

حقك عليا يا سيدي شكرا مش هبدي رأيي بعد كدا طالما إن رأيي بيزعل كدا