نجوم المشاركات

السلام عليكم ورحمة الله وبركاته بعد إذن اخى واستاذى الفاضل / عبد الله بشير أعتقد ان الموضوع ليس بحاجة الى مرفق للعمل عليه فقد أوفيت وهذة مشاركة بسيطة للإفادة وبطريقة أخرى Sub test() Dim i As Long, lr As Long, ocol Dim ws1 As Worksheet, ws2 As Worksheet ocol = Array(1, 13, 14, 15, 24, 26, 27, 31, 32, 36, 47, 48) Set ws1 = Sheets("تسجيل بيانات") Set ws2 = Sheets("الرئيسية") Application.ScreenUpdating = False With ws1 lr = .Cells(Rows.Count, "A").End(xlUp).Row For i = 0 To 11 .Cells(1, i + 1).Resize(lr, 1).Copy ws2.Cells(1, ocol(i)) Next i End With Application.ScreenUpdating = False End Sub شكرا وجزاكم الله خيرا

وعليكم السلام ورحمة الله وبركاته وهذا ما يقوم به الملف فهل جربت الملف الاول ؟ اكتب اي حرف او اسم في اي صفحة فاذا كات مكررا يتم تلوينه بالاصفر اوتامتيك تلقائيا ربما لديك الماكرو غير مفعل ارفق لك الملف مرة اخرى تلوين الخلايا المكررة (1).xlsb

وعليكم السلام ورحمة الله وبركاته بالرغم من وضوح طلبك كان الاجدر ارفاق ملف للتطبيق عليه الكود المرفق بسيط ويمكن تعديله Sub TransferData() Dim srcSheet As Worksheet, destSheet As Worksheet Dim mapping As Variant Dim i As Long Set srcSheet = ThisWorkbook.Sheets("تسجيل البيانات") Set destSheet = ThisWorkbook.Sheets("الرئيسية") mapping = Array( _ Array("A", "A"), _ Array("B", "M"), _ Array("C", "N"), _ Array("D", "O"), _ Array("E", "X"), _ Array("F", "Z"), _ Array("G", "AA"), _ Array("H", "AE"), _ Array("I", "AF"), _ Array("J", "AJ"), _ Array("K", "AU"), _ Array("L", "AV")) Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = LBound(mapping) To UBound(mapping) With destSheet .Columns(mapping(i)(1)).Clear End With Next i For i = LBound(mapping) To UBound(mapping) With srcSheet .Columns(mapping(i)(0)).Copy Destination:=destSheet.Columns(mapping(i)(1)) End With Next i Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True ' MsgBox "تم نقل البيانات !", vbInformation End Sub ملف استدعاء اعمدة.xlsb

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

وعليكم السلام استاذ ابو بهاء حياكم الله الدالة COUNTIFS لاتعمل على اوفس 2003 ولذلك ظهر الخطا النتيجة التي ظهرت عندي 1 لاحظ التغيير بمعادلتك الغيت احتساب الغائب بدات تعمل بشكل جيد والمعادلة الثانية غيرت بالشروط وحددتها باقصى درجة واقل درجة وهي تعمل بشكل جيد لكن هل هي وفق ما تريده افحص الملف لعله ينفع او تصل الى فكرة اقرب تحياتي SUMPRODUCT++.xls

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

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل // أبو بهاء بارك الله فيك على كلامك الدائم في حقي والله اسال ان يوفقنا واياك لما فيه خير 2 ) بعتذر انني دخلت متاخرا 3 ) لم افهم تعليقاتك جيداً هل تم حل مشكلتك ام لا؟!! ولكن على العمموم سارد على التعليق رقم 14 وبعد اذن والدتي واستاذتي الاستاذة الفاضلة // أم عبد الله بعد الشكر لها على مجهودها الدائم في خدمة الجميع فجزاها الله خيرا وبارك الله في عمرها واولادها.. --------------- وبالنسبة للرد على هذه النقطة فيما فهمته هناك حل بسيط بإذن الله لعله يصلح وهو ان تضع بجوار كل مادة عمود ( وان كان مخفي ) يبين هذه المادة ترم اول او ثاني للطالب وليكن بالرقم بمعني 1 و 2 هذا العمود سيستغل حتما في معرفة نسبة الترم الاول والثاني بالنسبة للمادة.. ولعلي وضعت كيفية فعل ذلك في المرفقات بشكل مبسط.. وفضلا ممكن ترسل الملف الاصلي الكامل لتكتمل الفكرة عندي في كيفية التطبيق على الملف الكامل!! SUMPRODUCT4.rar

راجع الملف المرفق وبه تم إيجاد أكبر قيمة مبيعات في شهر محدد ثم تم تحديد إسم المنتج المقابل لأكبر قيمة مبيعات * بواسطة جوجل كذلك يمكنك إستخدام الدالة SUBTOTAL مع المتغير MAX أو MIN ثم تستخدم الفلتر لتعرض البيانات التي تريدها فقط ومن ثم تحصل على النتيجة التي تريدها Condional Max.rar