ابراهيم الحداد

السلام عليكم ورحمة الله اليك المطلوب مطلوب لكشف المناداة.xlsx

السلام عليكم ورحمة الله تفضل new-2 (1) (2).xlsm

السلام عليكم ورحمة الله استخدمى هذه المعادلة =VLOOKUP(B2;INDIRECT("'"&$C$2&"'!"&"A4:B9");2;0)

السلام عليكم ورحمة الله تم عمل القائمة المنسدلة للمواد بدلا من الصفوف الدراسية حقيقة لم افهم المقصود بهذه العبارة التى ذكرت آخر الورقة "وهنا اريد عرض المراحل الصفية" new-2 (1).xlsm

السلام عليكم و رحمة الله اخى الكريم اما من اشكرك فكلماتكم الرقيقة و الطيبة دائما ما تخجل تواضعى

السلام عليكم ورحمة الله اخى الكريم المعادلة تكون هكذا =IF(OR(U10<25;T10<5;T10="غ");"لغة عربية ";"")

السلام عليكم ورحمة الله ...ضع المعادلة التالية فى الخلية M4 =MAX(COUNTIF($D4:$L4;$D4:$L4)) ثم اضغط CTRL + SHIFT + ENTER معا و الا لن تعمل معك المعادلة ثم اسحب بالماوس حتى آخر خلية تريدها

السلام عليكم ورحمة الله تم ربط الورقة الثانية بالورقة الاولى كما طلبت ...اما عملية توزيع الاحتياطى بالعدل اتمنى و استعطت ان ارسلها فى مشاركة لاحقة,,,اليك الملف اللجان والملاحظة.xlsx

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

السلام عليكم ورحمة الله اليك الملف new-2.xlsm

السلام عليكم ورحمة الله حسب مافهمت من طلبك يمكنك وضع المعادلة التالية فى الخلية F9 او الخلية G9 حسبما تريد =IFERROR(AVERAGE(C9:E9);"") ثم السحب بالماوس لآخر خلية تريدها

السلام عليكم ورحمة الله اليك الملف بعد عمل اللازم new.xlsm

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

السلام عليكم ورحمة الله بارك الله فيكم جميعا ردودكم الطيبة تخجل تواضعى

السلام عليكم ورحمة الله معذرة لانى فهمت الموضوع خطأا ان العمل على خلية واحدة و لاتى وجدت الامر مختلف وصعب فقررت ان ارسل لك الملف ذاته بعد ان تم عمل اللازم تم اضافة عمود مساعد بورقة البدلاء لتسهيل عمل المعادلة اليك الملف شيت تحضير -111 (2).xlsm

السلام عليكم ورحمة الله استخدم الكود التالى Sub DelRows() Dim ws As Worksheet, LR As Long Dim x As Integer, i As Long Set ws = Sheets("Sheet1") LR = ws.Range("B" & Rows.Count).End(3).Row For i = LR To 2 Step -1 x = WorksheetFunction.CountIf(ws.Range(Cells(2, 4), _ Cells(i, 4)), Cells(i, 4)) If x > 1 Then ws.Range("D" & i).EntireRow.Rows.Delete End If Next End Sub

السلام عليكم ورحمة الله استخدم هذه المعادلة و لكن يجب عليك بعدها ان تضغط معا على CTRL+SHIFT+ENTER حتى تعمل معل المعادلة بشكل صحيح =INDEX($G$4:$H$17;SMALL(IF(MIN($H$4:$H$17)=$H$4:$H$17;ROW($H$4:$H$17));1)-3;1)

السلام عليكم ورحمة الله اليك الملف جاهز كل ماعليك الضغط على الزر المكتوب عليه "اضغط للترحيل" فى ورقة data توزيع معدات واصناف علي شركات.xlsm

السلام عليكم ورحمة الله استخدم هذا الكود Sub DistData() Dim ws As Worksheet, Sh As Worksheet Dim i As Long, p As Long, j As Long, LR As Long Dim Arr As Variant, Tmp As Variant Set ws = Sheets("data") Arr = ws.Range("A5:H" & ws.Range("B" & Rows.Count).End(3).Row).Value ReDim Tmp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For Each Sh In Worksheets If Sh.Name <> ws.Name Then For i = 1 To UBound(Arr, 1) If Sh.Name = Arr(i, 6) Then p = p + 1 For j = 1 To 7 Tmp(p, j) = Arr(i, Choose(j, 1, 2, 3, 4, 6, 7, 8)) Next End If Next End If If p > 0 Then Sh.Range("A5").Resize(p, UBound(Tmp, 2)).Value = Tmp p = 0 Next End Sub

السلام عليكم ورحمة الله تفضل توزيع العاملين.xlsm

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

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

السلام عليكم ورحمة الله استخدم هذه المعادلة و لا تتعجل النتيجة حتى تصل الى آخر خلية =IF(ISNUMBER(VALUE(A6));G7;A6)

السلام عليكم ورحمة الله استخدم هذه المعادلة =IF(B1<=50;B1*1.5;(B1-50)*2.5+75)

السلام عليكم ورحمة الله تفضل 1.xlsx