الشافعي

السلام عليكم اولاً شكرا علي مساعدتكم الدائمة اذا تكرمتوا احتاج دالة تضع المبلغ أمام كل مدة بشرط المدة أمام كل مبلغ مرفق ملف أكسيل ‎⁨نسخة aaaa⁩.xlsx

شكرا لك استاذ محمد هشام على مجهودك والله يجعله في ميزان حسناتك

السلام عليكم استاذ محمد وجزاك الله ألف خير الكود صحيح ١٠٠٪؜ وجزاك الله ألف خير بس ملف الاكسيل اللي أنا شغال عليه مش هينفع ادخل عليه أي أكواد بسبب أشياء كثيرة مرتبطة ببعضها وعمليات حسابية وتعدد الأوراق اللي في الملف المرتبطة ببعضها أنا فقط أرسلت جزء من الملف إذا الله يحفظك في طريقة يكون نفس الكود هذا بس معادلة الكود صحيح مليون في ١٠٠٪؜ وجزاك ألف خير والله يجعله في ميزان حسانتك بس احتاج أنها تكون معادلة

الاستاذ / محمد هشام المحترم شكرا على مجهودك وتعبك والله يجزآك ألف خير بس إذا ممكن دالة لان الان الاكسيل هذا في أشياء كثيرة مرتبته ببعضها غير المرسلة في الكود ما راح يضبط معاي والف مليون شكر لتعبكم

القسط الأول يبدء من الشهر رقم واحد ومدة حتي نهاية القسط الأول القسط الثاني يبدء عن تغيير رقم القسط الأول ومدته من نهاية القسط الأول الي تغيير رقم القسط الثاني وهكذا يعني في الجدول رقم ١ القسط يمثل MAX Installment limit وعدد الاقساط يمثل NO يبدء القسط الأول من الشهر رقم ١ وحسب الجدول يكون مثلا ٨٣٠٠ وينتهي عن الشهر ٧٧ القسط رقم يبدء عن تغير الرقم ٨٣٠٠ وهيتغير في الشهر ٧٨ ويكون ٧٣٠٠ وينتهي عند الشهر ٨٨ يعني مدته ١١ شهر الشرط القسط يبدء من الشهر رقم ١ وكل ما يتغير القسط ينقل القسط هذا في الجدول رقم ٢ ويحسب مدته ويضعه في الجدول رقم ٢ اتمني ان يكون وصل فكرتي ولو في رقم للتواصل ممكن اتصل عليك واعتذر الموضوع مطلوب في العمل ومهم جدا الله يجعله في ميزان حسانتكم

السلام عليكم مبارك عليكم الشهر اذا تكرمتوا مطلوب دالة تبحث عن المبلغ وعن المدة في الجدول رقم ١ وحسب كل مبلغ وكل مدة تضعها القيمة والمدة في الجدول رقم ٢ مرفق ملف يوضح المطلوب وجزاكم الله الف خير Book2.xlsx

للرفع

للرفع

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

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

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

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

السلام عليكم ارجو المساعدة احتاج دالة في نقل المبلغ من الجدول حسب المدة بطريقة عمودية وتجاهل المدة اللي امامها صفر وتكملة المدة بالمبلغ الموجودة بها عدد مرفق المرفق اشكركم مقدما للمساعدة Book1.xlsx

السلام عليكم احتاج معادلة تحويل السنوات من هجري الى ميلادي مثال ٢٠ سنة هجري فيها كم سنة ميلادي ٢٤٠ شهر هجري فيهم كم شهر ميلادي

تظهر الرسالة هذه

الاخوة الافاضل كرما دعمكم في دمج الاكواد ادناه في صفحة واحدة Private Sub Worksheet_Change(ByVal Target As Range) Dim v If Target.Address = "$E$16" Then v = Target.Value Rows("46:360").Hidden = False If v = Range("BB1249") Then Rows("46:360").Hidden = True ElseIf v = Range("BB1250").Value Then Rows("71:360").Hidden = True ElseIf v = Range("BB1251").Value Then Rows("46:71").Hidden = True Rows("117:360").Hidden = True ElseIf v = Range("BB1252").Value Then Rows("46:117").Hidden = True Rows("139:360").Hidden = True ElseIf v = Range("BB1253").Value Then Rows("46:139").Hidden = True Rows("181:360").Hidden = True ElseIf v = Range("BB1254").Value Then Rows("46:181").Hidden = True Rows("209:360").Hidden = True ElseIf v = Range("BB1255").Value Then Rows("46:209").Hidden = True Rows("246:360").Hidden = True ElseIf v = Range("BB1256").Value Then Rows("46:246").Hidden = True Rows("274:360").Hidden = True ElseIf v = Range("BB1257").Value Then Rows("46:274").Hidden = True Rows("311:360").Hidden = True ElseIf v = Range("BB1258").Value Then Rows("46:311").Hidden = True Rows("336:360").Hidden = True ElseIf v = Range("BB1259").Value Then Rows("46:336").Hidden = True End If End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub

اشكرك اخي كريم لكن احتاج الكود كامل لان احتاج اظهار صفوف في المنتصف ولا ادري كيف طريقتها

السلام عليكم الاخوة والاخوات اذا تكرمتوا احد يساعدني في كود اخفاء الصفوف بشرط من قائمة منسدلة بحسب اختيار الشرط يتم اخفاء عدد محدد من الصفوف واظهار الباقية وعند اختيار من القائمة شرط ثاني يتم اخفاء عدد اخر من الصفوف واظهار الباقية مرفق ملف للشرح شاكر ومقدر مقدما ولكم جزيل الشكر كود اخفاء الصفوف بشرط.xlsx

الشكر كل الشكر للاستاذ lionheart والاستاذ AbuuAhmed على مهجودكم والله يجعله في ميزان حسناتكم

اشكر اهتمامك مرفق توضيح اكثر يقل المبلغ كلما زاد الراتب Book1.xlsx

السلام عليكم مرفق ملف اكسيل يوضح ويوجد قيمة مفقودة احتاج معرفتها حسب التسلسل الراتب من 3000 يحصل على مبلغ 1350 في 240 يحصل على 324000 Book1.xlsx

الف مليون شكر كل عام واتنت بخير عيدك مبارك وربي يسعدك ويجعله في ميزان حسناتك

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

مرفق ملف للتوضيح بصورة افضل Book1.xlsx استاذ سليم الف مليون شكر وربي يسعدك ولكم جزيل الشكر والتقدير ربنا يجعله في ميزان حسانك تم عمل اللازم وشكرا لاهتمامك جربت الملف الاخير المرسل لك وضبط معي

السلام عليكم استاذ سليم شكرا لك على ردك وربنا يجعله في ميزان حسانك ولكن احتاج عدم تكرار يعني يعطيني النتيجة ل احمد 4 موظفين فقط وليس 12 ومحمد 2 ومحمود 3 احتاج اني هي تعد من العمود b حيث ان اكود المناديب في العمود بناء على قائد الفريق