سليم حاصبيا

حسب ما فهمت من المشاركة ربما يكون المطلوب name_by_number.rar

المعادلة المناسبة لهذا الامر =SUMIFS($B$3:$B$6,$A$3:$A$6,">"&$D$9,$A$3:$A$6,"<"&$E$9) اذا لم تعمل معك استبدل الفاصلة "," بفاصلة منقوطة ";" لا تنس ان المعطيات عندك في الخلايا D9 & E9

حاول المعادلة التالية =SUMIFS(B3:B6,A3:A6,">100",A3:A6,"<400") عذراً اخي ابو حنين لم انتبه الى مشاركتك

جرب هذا التعديل حساب عدد الساعات salim modifier.rar

اخي مختار من اعترف بذنبه لا ذنْب له لكن لي تساؤل كيف للاستاذ ان يشترك في الحصة مع نفسه (في نفس الحصة محمد + محمد)

في هذه الحالة يجب وضع معادلة بحيث يقوم الاكسل وحده بترتيب ارقام المركز (حسب ورودها في الجداول)دون تدخل المستخدم

ممكن عمل ذلك شرط ان يكون كل جدول بنفس عدد الصفوف و المسافة بين CC و أول سطر من البيانات هي ذاتها(اقصد صفين او ثلاثة ...)

بارك الله فيك اخي مختار لكن انت ظلمت الاكسل (حيث انه يمكنه فعل ذلك من خلال هذه المعادلة) =SUMPRODUCT((LEN($B$4:$I$10)-LEN(SUBSTITUTE($B$4:$I$10,$M$4,"")))/LEN($M$4)) أو هذه( لا تحسب تكرار الاسم في نفس الخلية الا مرة واحدة) =COUNTIF($B$4:$I$10,"*"&$M$4&"*")

تلبية لرغبتكم و رغبة اخي ابو البراء الملف يالمعادلات Officena 9-2016 salim.rar

استبدل المعادلة بهذه: ="مدة هذا العقد سنتان ميلاديتان تبــدأ مــــن تــاريــخ"&" "&TEXT(VLOOKUP($O$5,dat!A:R,18,1),"dd/mm/yy") اذا لم تعمل يجب اشتبدال الفاصلة "," بفاصلة منقوطة ";" في كامل المعادلة

بعد اذن اخي اجمد جرب هذا الملف حساب عدد الساعات salim.rar

لا اريد صورة بل الملف نفسه كيف التعامل مع صورة

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

جرب هذا الملف search salim.rar

جرب هذا الماكرو Sub InsertPageBreaks() Dim Lastrow As Long Dim Ws As Worksheet Dim xRow As Integer xRow = 50 Set Ws = ActiveSheet Ws.ResetAllPageBreaks Lastrow = Ws.Range("A1").SpecialCells(xlCellTypeLastCell).Row For i = xRow + 1 To Lastrow Step xRow Ws.HPageBreaks.Add Before:=Ws.Cells(i, 1) Next End Sub

الملف غير قابل للتحميل يرجى اعادة رفعه

جرب هذا الملف تم حماية المعادلات لعدم العبث بها عن طريق الخطـأ معادلة تجميع عدد العمليات على حسب التاريخ والإسم SALIM.rar

بعد اذن اخي ياسر ربما يكون المطلوب في هذا الملف (مرفق للتجربة) الكود : Function No_Repet(inputString As String, Optional delemiter As String = " ") As String Dim inArray() As String Dim xVal As Variant inArray = Split(inputString, delemiter) For Each xVal In inArray If InStr(No_Repet, Trim(xVal)) = 0 Then _ No_Repet = No_Repet & Trim(xVal) & " " Next xVal End Function No_Rrepete.rar

dprgegf jyd

زيادة اكثر في اثراء الموضوع هذا UDF لاستخراج اسم العامود من رقمه Function get_col(n As Integer) If n > 16364 Or n < 1 Then get_col = "N/A": Exit Function get_col = Replace(Cells(1, n).Address(0, 0), 1, "") End Function

ممتاز اخي ياسر لكن ما رأيك بعمل نفس الشي بالمعادلات والعكس بواسطة UDF column_index.rar

ارفع مثالاً و ستلقى المساعدة

اكتب هذه المعادلة في الخلية B6 واسحب نزولاً =IFERROR(INDEX(Analysis!$A$4:$AD$36,MATCH('Daily sales '!$A6,Analysis!$A$4:$A$36,0),'Daily sales '!$A$1+1),"Not Found")

اكتب هذه المعادلة في الخلية E5 واسحب يميناً و نزولاً =IF(COLUMNS($E$5:E5)-1<=$B5,"x","")

ارفع نموذجاً عما تريد(10 اسطر)