سليم حاصبيا

السلام عليكم اليك هذا الملف ربما يكون المطلوب فقط اضغط على اسم الصفحة للانتقال اليها للعودة الى الصفحة الرئيسية اضغط على الزر الملف ديناميكي (اي انه بمجرد ان تزيد صفحة او تحذف صفحة)الفهرس يشعر بذلك فهرسة الصفحات.rar

لعله المطلوب اوفسينا22 salim.rar

نفس الملف لكن بالمعادلات اعلى عشر طلاب.rar

السلام عليكم اليك هذا الملف حسب ما طلبت الماكرو لا يعمل الا اذا تم تغيير اخر خلية في العامود E من ورقة المدفوعات النتيجة في ورقة المالية (2) Aziz.rar

بارك الله فيك اخي ياسر روعة!!!

السلام عليكم اخي خالد اذهب الى هذا العنوان و سوف تجد ما تريد http://www.officena.net/ib/index.php?showtopic=58478

السلام عليكم اخواني في المنتدى اقدم لكم هذا الملف للتفتيش عن كلمة او رقم او حتى حرف ضمن نطاق معين راجياَ من اخي ياسر ان يضمه الى مكتبته الغرّاء find.rar

هل هذا ما تقصده مزارع.rar

=SUMPRODUCT(($E$7:$E$34="الجمعه")+($E$7:$E$34="السيت"),$G$7:$G$34)&" " &"يوم"

يا اخي تستطيع ان تحدد اكثر من 5 ايام (قدر ما تريد )و ابتداءً من اي تاريخ تريد

الان اصبح واضحاً ماذا تريد تم التعديل على الملف كما تريد data salim1.rar

جرب هذا الماف تنسيق تاريخ.rar

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

صديقي ياسر اليك هذا الكود لعله يصلح للمكتبة انه يحدد لك الخلايا في عامود معين من اول خلية غير فارغة الى اخر خلية بردو غير فارغة و الفراغات بينهما Sub SelectAllInColumn() 'ÊÍÏíÏ ÚÇãæÏ ãä Çæá ÎáíÉ ÛíÑ ÝÇÑÛÉ Çáì ÇÎÑ ÎáíÉ ÛíÑ ÝÇÑÛÉ ' ÈãÇ ÝíåÇ ÇáÝÑÇÛÇÊ ÈíäåãÇ If Not IsEmpty(Cells(1, ActiveCell.Column)) Then Set Firstcell = Cells(1, ActiveCell.Column) Else Set Firstcell = Cells(1, ActiveCell.Column).End(xlDown) End If '''''''''''''''''''''''''''''''''''''''''''' If Not IsEmpty(Cells(Rows.Count, ActiveCell.Column)) Then Set Lastcell = Cells(Cells(Rows.Count, ActiveCell.Column)) Else Set Lastcell = Cells(Rows.Count, ActiveCell.Column).End(xlUp) End If ''''''''''''''''''''''''''''' If Firstcell.Row = Rows.Count Then Firstcell.Select Else Range(Firstcell, Lastcell).Select End If End Sub

ارجو ان تضيف الكود التالي الى المكتبة لك حرية الاختيار بالتسمية Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("a1:e5")) Is Nothing Then If Target.Count > 1 Then Exit Sub Application.EnableEvents = False If Target.Value = "x" Then Target.Value = "" Else Target.Value = "x" End If End If Application.EnableEvents = True End Sub

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

وقتها لازم المعادلة التالية =SUMPRODUCT(($E$7:$E$34="الجمعه")+($E$7:$E$34="السيت"),$G$7:$G$34)

انسخ هاتين المعادلتين بدون ايام الجمعة =SUMPRODUCT(--($E$7:$E$34<>"الجمعه"),$G$7:$G$34) ايام الجمعة فقط =SUMPRODUCT(--($E$7:$E$34="الجمعه"),$G$7:$G$34)

السلام عليكم اليك هذا الملف / ربما يكون المطلوب ارقام ناقصة.rar

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

اليك هذا الحل بواسطة اكسل حيث انه ليس لدي الخبرة الكافية في اكسس كشوفات salim.rar

تم التعديل كما تريد ملف ابو سليمان للفرز salim 2.rar

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

تفضل اخي ابو سليمان ملف ابو سليمان للفرز salim.rar

تم تعديل الكود ليتناسب مع افتراحك اكتب رقم 1 في الخلية A1 (ذلك يعطل الكود عن العمل) تستطيع ان تغيّر ما تشاء عندها و في النهاية امسح الرقم 1 اليك الملف الجديد حذف صف باكمله 1.rar