الخالدي

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

شكر لك استاذ حمادة عمر الملف يعمل معي على اكسل2010 عند تحويل الملف الى اكسل 2003 يحتاج الملف الى تعديل في دالة للتوافق في أمان الله

السلام عليكم ورحمة الله وبركاته مجهود متميز استاذ حمادة عمر في ميزان حسناتك ان شاء الله والشكر ايضا لك من مر على الموضوع الكود المرفق يقوم بتلوين الخلية النشطة واعادة تلوين الخلية النشطة السابقة بلونها السابق ايضا عند تلوين الخلية النشطة بلون جديد تظل محتفظة بلونها الجديد والكود يحتاج لتحسين ليتوافق اكثر مع الوان اكسل2007 و2010 في أمان الله تلوين الخلية النشطة مع حفظ اللون السابق.rar

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

شكرا للمرور والثناء استاذ جمال بارك الله فيك وجزاك خيرا

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

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

وللفائدة في المرفق ايضا يتم الترتيب كل فصل على حده في أمان الله ترتيب حسب الفصل المجموع والتاريخ والاسم+الغياب.rar

جرب المرفق في أمان الله ترتيب حسب المجموع والتاريخ والاسم+الغياب.rar

السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا اخي محمدي عبد السميع واخي قصي اخي ابو هاجر في المعادلة استبدل الجزء SUMPRODUCT(--($J$4:$J$15>=J4+($D$4:$D$15>=D4+($B$4:$B$15<=B4)))) استبدله بـ SUMPRODUCT(--($J$4:$J$15>=J4+($D$4:$D$15<D4+($B$4:$B$15>=B4))))+1 في أمان الله

السلام عليكم ورحمة الله وبركاته شكرا لكل من مرّ وشارك بالموضوع ارجو ان يكون في المرفق ما تم طلبة في أمان الله الاوائل.rar

بارك الله فيك استاذ محمدي عبد السميع ارجو ان يكون المطلوب في المرفق في أمان الله ترتيب حسب المجموع والتاريخ والاسم+مكرر.rar

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

السلام عليكم ورحمة الله وبركاته ولإثراء الموضوع المعادلة التالية لعمل ترتيب حسب المجموع الاكبر والتاريخ الاصغر والاسم الاول =SUMPRODUCT(--($J$4:$J$15>=J4+($D$4:$D$15>=D4+($B$4:$B$15<=B4)))) في أمان الله ترتيب حسب المجموع والتاريخ والاسم.rar

لم افهم المطلوب جيدا في الملف المرفق يتم استدعاء الشركات التي في المدى من "h2 الي h38 " مع تكرار الشركات التي تحتوي على نفس الاسم لكن لا يتم ترتيب الشركات حسب الاسم. بالنسبة للمدى في الملف 2nd يمكنك زيادته من ادارة الاسماء واعتذر مقدما ان كان لك طلب اخرى حيث سأكون مشغولا لكن ستجد كل التعاون من اخوة المنتدى في أمان الله استدعاء من ملف اكسل اخر بشرط2.rar

بارك الله فيك استاذ حمادة عمر شكرا لجميل مرورك في أمان الله

الملف يعمل معي بشكل طبيعي جرب التالي: المدي الذي يستدعي منه البيانات من الملف 2nd هو $A$2:$F$96 فاذا كان البيانات بعد المدى قم بتوسيعه من ادارة الاسماء الاسم Rng تأكد من ان الاسم Rng يشير الى الملف 2nd قم بتحديث الارتباط يدويا للوصول الى الارتباطات: من علامة التبويب بيانات المجموعة الاتصالات الامر تحرير الارتباطات بالنسبة لعدم ظهور رسالة للتحديث كان بسبب اختيار عدم عرض التنبيه وتحديث الارتباطات من مطالبات بدء التشغيل في تحرير الارتباطات – حاول اعادة الضبط على الخيار الاول فربما يعمل لديك الملف ارجو ان يعمل الملف او يدلنا احد الاخوة للحل في أمان الله

وعليكم السلام عليكم ورحمة الله وبركاته حسب فهمي للمطلوب جرب المرفق بمعادلات الصفيف عند فتح الملف main والملف 2nd مغلق وافق على تحديث الارتباط في أمان الله استدعاء من ملف اكسل اخر بشرط.rar

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

السلام عليكم ورحمة الله وبركاته الكود المرفق يقوم بالجمع من كل الاوراق عدا الورقة النشطة Sub AL_KHALEDI() For Each sh In Worksheets If sh.Name <> ActiveSheet.Name Then With Range(sh.Cells(2, 3), sh.Cells(Rows.Count, 3).End(xlUp)) S = S + Application.SumIf(.Cells, ">=" & [C2], .Cells(1, 2)) S = S - Application.SumIf(.Cells, ">" & [B2], .Cells(1, 2)) End With End If Next [B5] = S End Sub ارجو ان يكون المطلوب في أمان الله جمع بين تاريخين من عدة اوراق.rar

شكرا اخي أبو حنين لمرورك الكريم في حفظ الله

السلام عليكم ورحمة الله وبركاته لإثراء الموضوع وبعد اذن اخي الاستاذ حمادة عمر جرب الكود التالي للذهاب الي اخر خلية في الورقة المسمى Daily Sub FindFirstCellNextRow() Application.Goto Sheets("" & "Daily").Cells(Sheets("" & "Daily").Cells.SpecialCells(11).Row, 1) End Sub او الكود التالي لاختيار ورقة ثم الذهاب الي اخر خلية فيها Sub FindFirstCellNextRow() Application.CommandBars("Workbook Tabs").ShowPopup Cells(Cells.SpecialCells(11).Row, 1).Activate End Sub في أمان الله

استبدل السطر التالي ColorN = 65535 الى ColorN = RGB(237, 165, 34) ثم عدل مزيج الالوان حسب رغبتك لا اعلم ماذا تعني ارجو التوضيح فالكود يقوم بتغير لون تعبئة الخلية فقط في أمان الله

بارك الله فيك اخي حمادة عمر شكرا للمرور والكلام الطيب في أمان الله

السلام عليكم ورحمة الله وبركاته جرب الكود المرفق يقوم الكود بتلوين الصف النشط في النطاق A7:I429 وعند تغير الصف يعود الصف السابق بألوانه السابقة وايضا عند تلوين الصف النشط بلون اخر يحتفظ الصف النشط باللون الجديد ارجو ان يكون المطلوب الكود في حدث الورقة Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(ActiveCell, [A7:I429]) Is Nothing Then Set RnN = Intersect(ActiveCell.EntireRow, [A7:I429]) ColorN = 65535 If Not IsError(Me.[KDI_ColorSave]) Then Set RnO = Range(Split(Me.[KDI_ColorSave], ";")(0)) ColorO = Split(Me.[KDI_ColorSave], ";")(1) For Each T In Split(Split(Me.[KDI_ColorSave], ";")(2), ",") T1 = T1 + 1 If RnO(T1).Interior.Color = (ColorO * 1) Then RnO(T1).Interior.Color = (T * 1) Next T End If ReDim Arr(RnN.Cells.Count - 1) For R = 0 To RnN.Cells.Count - 1 Arr® = RnN(R + 1).Interior.Color Next R RnN.Interior.Color = ColorN Me.Names.Add "KDI_ColorSave", RnN.Address & ";" & ColorN & ";" & Join(Arr, ",") Set RnN = Nothing: Set RnO = Nothing: Erase Arr End If End Sub في أمان الله تلوين الصف النشط واعادة اللون.rar