الشافعي

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

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

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

في المرفقات ملف احتاج كود اظهار واخفاء بعد الصفوف ولكن بشرط في الخلية G5 AM.xlsm

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

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

انا عندي الكود هذا لكن كيف اخليه ينقل بيانات العميل والمتضامن مع بعض من الشيت رقم 1 الى الشيت رقم2 تحت بعض في وليس جنب بعض Sub custm() Dim v, vv Dim Sh1 As Worksheet, Sh2 As Worksheet Dim Lr As Integer, i As Integer Set Sh1 = Sheets("InitialOffer") Set Sh2 = Sheets("Customers") vv = Array("C11", "H12", "", "C12", "J14", "J16", "J18", "J20", "L20", "j22", "j24", "P18", "P24", "P34", "J30", "J32", "J34", "J36", "J38", "J40", "J44", "J46", "J54", "P40", "J58", "J60", "J62", "J66", "J70") Lr = Sh2.Cells(Rows.Count, "A").End(xlUp).Row + 1 For Each v In vv i = i + 1 If Not IsError(Sh1.Evaluate(v)) Then Sh2.Cells(Lr, i).Value = Sh1.Range(v).Value End If Next Set Sh1 = Nothing: Set Sh2 = Nothing End Sub

كيف اعمل تكرار تعديل.xlsx

شكرا للنصيحة تم ترتيب البيانات احتاج الكود ترحيل .xlsx اريد نقل بيانات الخلايا الممثلة لها من الشيت الاول الى الشيت الثاني

المطلوب عند الضغط على زر (نقل البيات ) في شيت رقم واحد ينقل قيم الخلايا الى شيت رقم 2 وبالضغط مره اخرى على زر نقل البيانات يكرر نفس العملية ولكن تحت البيانات المنقولة في المرة السابقة ترحيل بشرط.xlsx

للرفع

المطلوب عند الضغط على زر (نقل البيات ) في شيت رقم واحد ينقل قيم الخلايا الى شيت رقم 2 وبالضغط مره اخرى على زر نقل البيانات يكرر نفس العملية ولكن تحت البيانات المنقولة في المرة السابقة ترحيل بشرط.xlsx

شكرا والله يجزاكم خير وهل يمكن تحويل الكود اللي بالملف الى دالة هذا هو الملف AM (22 (1).xlsx