سليم حاصبيا

VLOOKUP تعمل من اليسار الى اليمين استعمل هذه المعادلة =INDEX($A$2:$A$37,MATCH(G23,$B$2:$B$37,0))

ارفع نموذج للعمل عليه

جرب هذا الشيء الاستاذ salim.xlsx

تفضل الملف يواسطة الاكواد (صفحة Salim) الكود Option Explicit Sub sum_by_Max() Dim My_Sh As Worksheet: Set My_Sh = Sheets("salim") Dim i%, m%: m = 1 Dim x# If ActiveSheet.Name <> My_Sh.Name Then Exit Sub Dim Arr1(), Arr2() Dim LastRow%: LastRow = My_Sh.Range("a1").CurrentRegion.Rows.Count Range("d2").Resize(LastRow, 2).ClearContents Range("g2").ClearContents For i = 2 To LastRow If Application.CountIf(Range("a" & 2, "a" & i), Range("a" & i)) = 1 Then ReDim Preserve Arr1(1 To m): Arr1(m) = Range("a" & i) m = m + 1 End If Next m = 1 For i = LBound(Arr1) To UBound(Arr1) x = Application.SumIf(Range("a2:a" & LastRow), Arr1(i), Range("b2:b" & LastRow)) ReDim Preserve Arr2(1 To m): Arr2(m) = x m = m + 1 Next With Range("d2") .Resize(UBound(Arr1)) = _ Application.Transpose(Arr1) .Offset(, 1).Resize(UBound(Arr2)) = _ Application.Transpose(Arr2) End With Range("d1:e" & UBound(Arr2) + 1).Sort _ key1:=Range("e2"), order1:=2, Header:=xlYes Range("g2") = UBound(Arr1) Erase Arr1: Erase Arr2 End Sub الملف مرفق(صفحة Salim) Salim.xlsm

تم اعادة التحميل Salim.xlsx

الملف مرفق مع المعادلة salim (1).xlsx

هذه المعادلة ( Ctrl+Shift+Enter) تحسب لك كل شيء (بدون الخلايا الفارغة) =SUM(IF(FREQUENCY(IF($B$4:$B$52<>"",MATCH($B$4:$B$52,$B$4:$B$52,0)),ROW($B$4:$B$52)-ROW($B$4)+1),1))

أولاُ Ctrl+Shift+Enter) G2 ) ثانياً Ctrl+Shift+Enter) D2 ) ثالثا E2

تم اعادة رفع الملف sort_by_sum.xlsx

جرب هذه المعادلة =SUMPRODUCT(IF(FREQUENCY($B$4:$B$52,$B$4:$B$52),1))

انسخ هذه المعادلة الى الخلية G6 و اسحب نزولاً =IF($E6="","",IF(MONTH($E6)<=MONTH($E$2),"لايستحق","يستحق"))

جرب هذا الملف sort.xlsm

جرب هذا الكود Sub MOU3ADDAL() With Range("f2").Resize(Range("a1").CurrentRegion.Rows.Count - 1) .Formula = "=AVERAGE(C2:E2)" .NumberFormat = "0.00" .Value = .Value End With End Sub

جرب هذا الماكرو (تم تبديل اسماء الصفحات لحسن عمل الكود) Option Explicit Sub filter_for_ME() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim S_sh As Worksheet: Set S_sh = Sheets("Source") Dim T_sh As Worksheet: Set T_sh = Sheets("Target") Dim My_Table As Range: Set My_Table = S_sh.Range("A1").CurrentRegion T_sh.Range("a1").CurrentRegion.ClearContents T_sh.Range("q2").Formula = "=Source!$G2<>""""" My_Table.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=T_sh.Range("Q1:q2"), _ CopyToRange:=T_sh.Range("A1") T_sh.Range("q2").ClearContents With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق salim.xlsm

تم حل المشكلة ولا يوجد احطاء اينما حددت الخلايا Salim_sum.xlsm

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

يمكن ان يكون الحل هنا cells Salim.xls

جرب هذا الملف H_M_S.xlsx

بعد اذن اخي علي =SUM(IF(ISNUMBER(--(MID($C2,ROW(INDIRECT("1:"&LEN($C2))),1))),--(MID($C2,ROW(INDIRECT("1:"&LEN($C2))),1)),"")) المجموع في معادلة واحدة (Ctlr+Shift+Enter) الملف مرفق SALIM_SUM.xlsx

يواسطة الدالة Vlookup لا ضرورة لادراج 8 معادلات يكفي معادلة في C16 واحدة وسحبها يساراٌ =VLOOKUP($F$13,'قاعدة البيانات'!$B$7:$I$500,COLUMNS($A$1:A1),0)

حرب هذا الملف data salim.xlsx

مش تقول بقى ايه هي علامة الرسوب؟؟؟ على كل حال جرب هذا الملف rousoub salim.xls

تم معالجة الامر Time Sheet Salim1.xlsx

ربما كان المطلوب (الصفحة SALIM) اختر الشهر والسنة من الخلايا (AG5 & AB5 ) Time Sheet Salim.xlsx

المعادلة التي استعملـتها لا تنفع اذا تكرر الرقم في العامود C في البيانات الاساسية تكرار للرقم 8000 (انظر ال النتيجة هناك تكرار للفرع 3 و غياب للفرع 5)