الشافعي

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

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

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

شكرا جزيل الشكر استاذ العزيز سليم وربي يبارك فيك وفي صحتك تم عمل اللازم

الاستاذ سليم الموقر هل اقدر الغي الاعتماد على الخلية M5 ويكون الاعتماد على الخلية G5 فقط وهل كذا يكون صح ولا يحتاج تعديل Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$G$5" Then Me.Cells.Rows.Hidden = False Select Case Target.Address Case "$G$5" hide_rows1 End Select End If Application.EnableEvents = True End Sub Sub hide_rows1() Select Case Range("G5").Value Case "جديد" Range("a19:a22").Rows.Hidden = False Range("a23:a38").Rows.Hidden = True Exit Sub '====================== Case "اعادة" Range("a19:a22").Rows.Hidden = True Range("a23:a38").Rows.Hidden = False Exit Sub '====================== Case "تكميلي" Range("a27:a31").Rows.Hidden = False Range("a19:a22").Rows.Hidden = True Range("a36:a38").Rows.Hidden = True Exit Sub '++=========================== Case "سداد" Range("a27:a31").Rows.Hidden = True Range("a19:a22").Rows.Hidden = True Range("a36:a38").Rows.Hidden = False Case Else End Select End Sub

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