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

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

جرب المعادلة التالية =IF(OR(SUMIF($E$3:$E$456,E3,$F$3:$F$23)>=2,SUMIF($E$3:$E$456,E3,$G$3:$G$456)>=2),SUMPRODUCT(--($E$3:$E$456=E3)),"")

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

لا لا بلاش هري ولا فري .. خلينا كدا حبايب كل عام وأنت بخير والحمد لله الذي بنعمته تتم الصالحات

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

الحمد لله الذي بنعمته تتم الصالحات والحمد لله أن تم المطلوب على خير تقبل تحياتي وكل عام وأنت بخير

بارك الله فيك أخي الكريم محمد الدسوقي .. حل رائع وتنسيق جميل جداً أثناء تقديم الحل كنت أقوم بكتابة كود .. يقوم بعمل اللازم أما التنسيقات فعادية يمكنك تنسيق ورقة العمل كما تريد ، كما يمكنك استخدام الخلايا المدمجة في العناوين لا مشكلة في ذلك) سيقوم الكود بعمل اللازم وترك 5 صفوف فارغة بين سجل البنون وسجل البنات ... أرجو أن يفي بالغرض إن شاء الله هذا هو الكود المستخدم 'https://www.officena.net/ib/topic/71660-* '========================================= Sub Lists_Using_Arrays() 'Author : YasserKhalil 'Release : 10 - 09 - 2016 '------------------------ Dim Ws As Worksheet, Sh As Worksheet, sSheet As Worksheet Dim Crit As String Dim I As Long, J As Long, P As Long Dim Lr As Long, Last As Long Dim Arr, Temp Application.ScreenUpdating = False Set Ws = Sheets("Data"): Set Sh = Sheets("Lists") Crit = Sh.Range("M2").Value P = 1 Sh.Rows("10:" & Rows.Count).EntireRow.Delete Sh.Range("K5:M5").ClearContents If Crit = "" Or Application.WorksheetFunction.CountIf(Ws.Range("F:F"), Crit) = 0 Then MsgBox "Fill The Cell M2", vbExclamation: Exit Sub Arr = Ws.Range("A9:AA" & Ws.Cells(Rows.Count, 1).End(xlUp).Row).Value ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2) - 5) For I = 1 To UBound(Arr, 1) If Arr(I, 6) = Crit Then Temp(P, 1) = P: Temp(P, 2) = Arr(I, 3): Temp(P, 3) = Arr(I, 27) For J = 4 To 7 Temp(P, J) = Arr(I, J + 5) Next J Temp(P, 8) = Arr(I, 19): Temp(P, 9) = Arr(I, 5): Temp(P, 10) = Arr(I, 2) For J = 16 To 18 Temp(P, J) = Arr(I, J - 2) Next J Temp(P, 19) = Arr(I, 18): Temp(P, 20) = P Temp(P, 21) = Arr(I, 6): Temp(P, 22) = Arr(I, 4) P = P + 1 End If Next I Sheets.Add After:=Sheets(Sheets.Count) Set sSheet = ActiveSheet With sSheet .Columns("U:U").NumberFormat = "@" .Range("U1") = "Class": .Range("V1") = "Gender" .Range("A2").Resize(P, UBound(Temp, 2)).Value = Temp Lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Range("A2:A" & Lr).Formula = "=SUBTOTAL(103,$B$2:B2)" .Range("A1:V1").AutoFilter Field:=22, Criteria1:="ذكر" .Range("A2:T" & Lr - 1).SpecialCells(xlCellTypeVisible).Copy Sh.Range("B11").PasteSpecial xlPasteValues Last = Sh.Cells(Rows.Count, 2).End(xlUp).Row + 6 Sh.Rows("4:9").Copy Sh.Range("A" & Last) .Range("A1:V1").AutoFilter Field:=22, Criteria1:="أنثى" .Range("A2:T" & Lr - 1).SpecialCells(xlCellTypeVisible).Copy Sh.Range("B" & Last + 7).PasteSpecial xlPasteValues End With With Sh .Range("K5") = .Range("M2") .Range("L5") = "بنون" .Range("M5") = Application.WorksheetFunction.CountA(.Range("B11:B" & Last - 6)) .Range("K" & Last + 1) = .Range("M2") .Range("L" & Last + 1) = "بنات" .Range("M" & Last + 1) = Application.WorksheetFunction.CountA(.Range("B" & Last + 7 & ":B" & .Cells(Rows.Count, 2).End(xlUp).Row)) .Range("B11:U" & Last - 6).Borders.Value = 1 .Range("B" & Last + 7 & ":U" & .Cells(Rows.Count, 2).End(xlUp).Row).Borders.Value = 1 End With Application.DisplayAlerts = False sSheet.Delete Application.DisplayAlerts = True Application.Goto Sh.Range("M2") Application.CutCopyMode = False Application.ScreenUpdating = True End Sub تحميل الملف المرفق من هنا

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

تم الرد في الموضوع الآخر .. وكل عام وأنت بخير الأخ أبو حنين نقر على زر الإعجاب وهو زائر للموضوع أما صاحب الموضوع فلا حرج عليه (كل عام وأنت بخير أخي الحبيب أبو حنين) ومتزعلش يا دولا أنا بهزر معاك ومش مستني LIKE لأن عدد اللايكات كتير والحمد لله

هو ايه اللي بيتعمل إزاي ؟؟ وضح المطلوب بشيء من الدقة (ومتقرهاش الدقة لأني دي معناها الشطة .. شكلي كدا هجيبلك معايا شطة وأنا جاي بعد أجازة العيد)

بارك الله فيك وجزاك الله خيراً .. أنا أستخدم 2016 32 بت ، وفي انتظار تحربتك وكل عام وأنت بخير

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

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

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

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

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

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

وعليكم السلام أخي حسين مأمون (لكم أنا سعيد بتغيير لقبك) بالنسبة للكود سيان يوضع هنا أو هنا ولكن سيلزم تغيير بسيط في الكود في السطرين الخاصين بتعيين أسماء المصنفات .. في حالة أردته على Aman ستضطر إلى تغيير الامتداد xlsx إلى xlsm لتحتفظ بالكود .. وفي هذه الحالة سيتغير WB1 ليكون هو ThisWorkbook ، والمتغير WB2 سيكون اسم المصنف الثاني مضاف إليه الامتداد .. أرجو أن تكون الأمور واضحة إن شاء الله

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

أخي الكريم أبو حمادة لاأدري إذا كنت اطلعت على الشرح أم لا .. حاول تدرس أي كود عايز تطبقه عشان تقدر تتعلم شيء جديد عموماً بالنسبة لطلبك السطر المطلوب لتحديد النطاق الخاص بالبيانات هو السطر التالي MyArray = iSh.Range("S10:AB" & iSh.Cells(Rows.Count, 21).End(xlUp).Row).Value ولا تنسى أن تقوم بتغيير أسماء أوراق العمل في الكود .. كل سطر له أهميته ولازم تراجع الكود وتشوف الأسطر الموجودة فيه .. راجع الشرح إذا وجدت وقت لذلك

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

أخي الكريم وليد عبد الغني هل جربت هذا الخيار ..؟

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

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

أخي الكريم يرجى إرفاق ملف لتتضح صورة طلبك ولتجد استجابة أفضل في الموضوع كما يرجى ذكر المطلوب بالتفصيل .. لا يجب الشرح بشكل عام تحدث بلغة الإكسيل كأن تقول في ورقة كذا والخلية كذا والنطاق كذا .. إذا كان الكودان يعملان بشكل جيد فيمكنك أن تتركهما كما هما وتنشيء إجراء فرعي جديد وتعمل استدعاء لكل منهم على حدا باستخدام كلمة Call يليها اسم الإجراء الفرعي أو كتابة اسم الإجراء الفرعي بشكل مباشر Sub Test() Call ali_Fail_Students Call rakan_Fail_Students End Sub