الشافعي

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

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

السلام عليكم ارجو المساعدة احتاج دالة في نقل المبلغ من الجدول حسب المدة بطريقة عمودية وتجاهل المدة اللي امامها صفر وتكملة المدة بالمبلغ الموجودة بها عدد مرفق المرفق اشكركم مقدما للمساعدة 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 حيث ان اكود المناديب في العمود بناء على قائد الفريق