أبو عبد الملك السوفي

السلام عليكم النتائج التي في الصورة سليمة وها هو المطلوب

اتعبتك معي استاذ اقصد العمودين M L في صفحة التقرير الشهري التي تعدل في اللكود من اجلها اقصد ان الاضافة التي اضفتها للكود لجلب العمودين من مجمع النتائج الشهرية لم تعمل

السلام عليكم يظهر خطأ في السطر For R = 2 To LR اضن ان المتغير R غير معرف حسننا صححة الخطأ لكن الكود لم يجلب عمودي الحفظ

السلام عليكم الاستاذ الفاضل الجزء من الكود المذكور ياتي بسم الحلقة بشرط الاعمدة التي نعمل على جلبها وهي بداية الحفظ وكنت قبل اكتبها يدويا وللاسف الكود لم يعمل اي لم يجلب الاعمدة المطلوبة ان كان جمع الكودين صعب فلا حرج في فصلهما او يجب ان يقوم الكود بجلب عمودي الحفظ M L قبل ان يسمي الحلقة

السلام عليكم جزاكم الله كل خير الاستاذ العيدروس والاستاذ ياسر أعيد ان شاء الله شرح المطلوب مرة اخرى: الفكرة: مثلا اذا كان لدينا طالب حفظ في شهر سبتمبر من الناس1 الى العاديات5 في آخر شهر سبتمبر نقيم له اختبار ونعطيه درجة من 100 فاذا تحصل على 60 درجة فما فوق فانه في شهر اكتوبر يكمل حفظه أي من العاديات6 واذا تحصل على على اقل من 60 فانه يعيد الحفظ من الناس1 ونفعل هذا كل نهاية شهر المطلوب: حساب درجة االطالب في نهاية الشهر تتم في صفحة التقرير الشهر وعند بداية الشهر الموالي نرحل كل المعطيات الى صفحة مجمع النتائج الشهرية ولمطلوب من الكود عند بداية الشهر في صفحة التقرير الشهري (العمودV ) يتاكد الكود من درجة الطالب للشهر الذي قبله في صفحة مجمع النتئج الشهرية (العمودR ) فاذاكات 60 او اكثر ياخذ ما في العمودين O N ويكتبهما في العمودين M L في صفحة التقرير الشهري واذا كانت درجة الطالب للشهر الذي قبله في صفحة مجمع النتئج الشهرية (العمودR ) اقل من 60 ياخذ ما في العمودين M L ويكتبهما في العمودين M L في صفحة التقرير الشهري بداية الشهر: نعني ببداية الشهر اي بعد ترحيل البيانات لصفحة مجمع النتائج الشهرية ونبدأ نكتب معلومات الشهر الموالي ملاحظة/ لا اريد الكود مستقل بل يجب ان يدمج مع كود الاستاذ ياسر الموجود في صفحة التقرير الشهري وهذا هو الكود Sub CopyDataFromRecordInf() Dim WS As Worksheet, SH As Worksheet Dim LR As Long, LRCur As Long, I As Long Dim rngA As Range, rngB As Range, rngC As Range, rngD As Range, rngP As Range Dim X, Y, XX, YY Dim rngMnhg As Range Set WS = Sheets("ãÚáæãÇÊ ÇáÊÓÌíá"): Set SH = Sheets("ÇáÊÞÑíÑ ÇáÔåÑí") LR = WS.Cells(Rows.Count, 1).End(xlUp).Row With Sheets("ÇáãäåÌ") LRCur = .Cells(Rows.Count, 1).End(xlUp).Row Set rngA = .Range("A2:A" & LRCur): Set rngB = .Range("B2:B" & LRCur) Set rngC = .Range("C2:C" & LRCur): Set rngD = .Range("D2:D" & LRCur) Set rngMnhg = .Range("A2:D1000"): Set rngP = .Range("P2:P" & LRCur) End With Application.ScreenUpdating = False With SH SH.Range("A2:E1000,I2:K1000,R2:U1000").ClearContents For I = 2 To LR .Cells(I, 1) = WS.Cells(I, 1) .Cells(I, 2) = WS.Cells(I, 2) .Cells(I, 3) = WS.Cells(I, 3) .Cells(I, 23) = WS.Cells(I, 16) .Cells(I, 4).Formula = "=IF(" & .Cells(I, 12).Address & "="""","""",LOOKUP(INDEX(QNumbers,MATCH(" & .Cells(I, 12).Address & ",QNames,0)),ÇáÍáÞÇÊ!$F$2:$F$6,ÇáÍáÞÇÊ!$B$2:$B$6))" .Cells(I, 4).Value = .Cells(I, 4).Value If .Cells(I, 16) > 5 Then .Cells(I, 5) = 0 Else .Cells(I, 5) = 5 - .Cells(I, 16) End If If .Cells(I, 8) > 5 Then .Cells(I, 9) = 0 Else .Cells(I, 9) = 15 - (3 * .Cells(I, 8)) End If X = ValueLookUp(rngB, .Cells(I, 12).Value, rngC, rngD, .Cells(I, 13).Value, rngA) Y = ValueLookUp(rngB, .Cells(I, 14).Value, rngC, rngD, .Cells(I, 15).Value, rngA) .Cells(I, 10).Value = (Y - X) * 10 If .Cells(I, 10) > 100 Then .Cells(I, 11) = 10 Else .Cells(I, 11) = .Cells(I, 10) / 10 End If .Cells(I, 18) = Application.WorksheetFunction.Sum(Range(.Cells(I, 5), .Cells(I, 7)), .Cells(I, 9), .Cells(I, 11)) .Cells(I, 20) = Level(.Cells(I, 18)) XX = Application.WorksheetFunction.VLookup(X + 9, rngMnhg, 2) YY = Application.WorksheetFunction.VLookup(X + 9, rngMnhg, 4) .Cells(I, 21) = XX & " " & YY Next I Call RankMultipleColumns .Range("A1").Select End With Application.CutCopyMode = False Application.ScreenUpdating = True End Sub Public Function ValueLookUp(ByVal NameRange As Range, sName As String, _ FromRange As Range, ToRange As Range, _ MonthValue As Integer, _ ResultRange As Range) As Long '=ValueLookUp($B$2:$B$20,H6,$C$2:$C$20,$D$2:$D$20,I6,$A$2:$A$20) '--------------------------------------------------------------- Dim Cell As Range Dim I As Long, iIndex As Long, J As Long Dim ColIndex As Collection: Set ColIndex = New Collection I = 1 iIndex = 1 For Each Cell In NameRange If Cell.Value = sName Then ColIndex.Add I, CStr(iIndex) iIndex = iIndex + 1 End If I = I + 1 Next Cell For J = 1 To ColIndex.Count If MonthValue >= FromRange.Item(ColIndex.Item(J), 1) And ToRange.Item(ColIndex.Item(J), 1) >= MonthValue Then ValueLookUp = ResultRange.Item(ColIndex.Item(J), 1) Exit Function End If Next J End Function معذرة على الاطالة هذا رابط الملفhttp://www.up-00.com/?UOxL واسف مرة أخرى على الازعاج فانا اعلم ان الموضوع شائك قليلا

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

السلام عليكم ارفقت الجزء الثاني من الكود ولكن بقي في الكود خطأ والآ انتقل الى السطر LR = .Cells(.Rows.counr, 2).End(xlUp).Row

السلام عليكم مازال الكود يظهر خطأ في السطر If Ch_Month(.Cells(R, "V")) = CStr(Sht.Cells(R, "V")) Then رغم اني كتبت الشهر

السلام عليكم وضعت اسم الشهر لكنه لم يعمل

للرفع بورك فيكم

السلام عليكم آسف صديقي لم استطع فتحه حاولت قدر المستطاع ولكن لم أفلح

السلام عليكم أولا أود أن أسال عن الرقم 11 و الرقم 10 هل هي رقم الغرفة أم ماذا تعني لاني وجدت الدوال التي وضعتها في السطر 103 لحساب المجموع خاطئة

السلام عليكم التعليق في الخلايا فارغ ارجوا مزيدا من التوضيح

للرفع

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

السلام عليكم آسف على التأخر في الرد أولا شكرا على الاهتمام ثانيا الكود لم يعمل لا أدري ما السبب كود الاستاذ ياسر يعمل لكن هذا الكود لا يعمل

للرفع بورك فيكم

للرفع جزكم الله الجنة

للرفع

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

ارفع الملف على مواقع الرفع المجاني ثم ضع الرابط هنا

مزيد من التوضيح الامر غير مفهوم

السلام عليكم لم استطع رفع الملف هنا في الموقع فهو يقول ان الملف كبير هذا رابط آخر http://www.up-00.com/?2WbL

للرفع

السلام عليكم أساتذتنا الكرام أريد إدخال تعديل بسيط في كود الاستاذ ياسر في برنامج المدرسة القرآنية الكود يعمل بشكل ممتاز جدا ولكن اريد ان ادخل عليه اضافة بسيطة لتسهيل العمل أكثر العديل في صفحة التقرير الشهري واريد من الكود أن يستقدم العمودين M L من صفحة مجمع النتائج الشهرية بالاعتماد على ما هو مكتوب في العمود V مثلا: اريد استقدام نتائج الطالب عبد العزيز بن محمد سايح فاذا كان العمود V في صفحة التقرير الشهري مكتوب فيه أكتوبر فان الكود ينتقل لصفحة مجمع النتائج وبالضبط العمود V ويبحث عن الشهر الذي قبل أكتوبر وهو سبتمبر فاذا كان الطالب تحصل في العمود العمود R على 60 فما فوق فيأخذ السورة والآية المكتوبة في العمو ين O N الى العمودين M L في صفحة التقرير الشهري واذا كان الطالب تحصل في العمود العمود R على أقل من 60 فيأخذ السورة والآية المكتوبة في العمو ين M L الى العمودين M L في صفحة التقرير الشهري هذا رابط الملف: http://rdownload.org/8brjxin90jzq/Copy_of_______________________________________.xlsm.html