سليم حاصبيا

اليك الملف جاهز وتحت الطلب لا تنس ان يكون الصف الرايع فارغاُ العامود L ايضاً (لا يجوز ان تدخل اية بيانات (غريبة) داخل الجدول) هذه احد القواعد الاساسية لتعامل اكسل مع الجداول (كل ما بجانبه فراغ فوق يسار يمين اسفل) لان الجدول المعمول به يبدأ من العامود K الخلية 5 الى العامود A اخر صف فيه في هذه الحالة (31) عملاء Salim.rar

جرب هذا الملف جلب قيمه اسفل الكود salim.rar

ارفع نموذجاً عن الملف حوالي 30(لا اكثر) سطر للعمل عليه

ارفع مثالاً عما تريد

مرفق نموذج مصغر عما تريده مع الاكواد اللازمة لنقل البيانات من الصفحة الرئيسية الى كل الصفحات small_cope.rar

بعد اذن الاخ شوقي هذا الكود ربما يفي بالغرض Option Base 1 Sub get_me_Markaz() Dim x, Last_Row As Integer Dim arr() x = 0 With Sheets("البيانات") Last_Row = .Cells(Rows.Count, "d").End(3).Row For i = 3 To Last_Row If Application.CountIf(.Range("d3:d" & i), .Range("d" & i)) = 1 Then x = x + 1 ReDim Preserve arr(1 To x) arr(x) = .Range("d" & i) End If Next End With For k = LBound(arr) To UBound(arr) On Error Resume Next If Len(Sheets(arr(k)).Name) = 0 Then Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = arr(k) End If On Error GoTo 0 Next Erase arr Sheets("البيانات").Select End Sub

ضع هذه المعادلة اينما تريد ثم اسحب نزولاً ="x"&INT((ROWS($A$1:A1)-1)/3)+1

تم التعديل تستطيع ان تحصل على اكبر قيمة او ثاني او ثالث اكبر قيمة حسب ما تحدد في الخلية k1 redundancy salim 1.rar

ارفع الملف لضبط المعادلة وليس صورة عنه الصورة لا تتعامل مع المعادلات جرب هذه المعادلة في المرفق اما اذا كنت مصر على Offset المعادلة الصحيحة لذلك:(Ctrl+Shift +Enter) وتسحب نزولاً =OFFSET($D$1,IF($B$1:$B$15=B1,MAX(ROW($B$1:$B$15)-1,0)),0) redundancy salim.rar

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

جرب هذا الماكرو Sub GetLast_Value() If Not (ActiveSheet.AutoFilterMode) Then Range("a1").AutoFilter End If Set filter_range = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible) b = Split(filter_range.Address, "$") LastRow = Val(b(UBound(b))) Range("c1").Value = Range("a" & LastRow) End Sub الملف مرفق (بالكود و بواسطة المعادلات) اخر خلية بعد الفلترة salim.rar

لم افهم ماذا تعني "تمسكها"

جرب هذا الملف البحث عن كلمة salim.rar

ربما يكون ما تريد مع حرية اختيار الحد الاقصى 3 Salim.rar

لا اعلم اذا كان هذا المطلوب تم التعديل على الخلايا لازالة الدمج لان دمج الخلايا يعيق عمل المعادلات تم توسيع مدى البحث الى نحو 500 صف و ذلك في حال اضافة بيانات جديدة مجموع المبالغ salim.rar

الملف مصاب بقيروس و رفض الجهاز التعامل معه لذا انشأت لك ملفاً اخر شبيه به يحتوي على الحل Book_ٍSALIM.rar

تم التعديل على الماكرو ليتناسب مع الوضع (كلمة السر pass) بشرط احتواء الخلية AA1 على الرقم 1 (غير مرئي) الكود يعمل فقط في العامود A لفك الحماية امسح الخلية AA1 و لاعادتها ارجع قيمتها الى 1 protect first column.rar

لا لزوم لتكرار السؤال

ما هو النطاق الذي تريد ان تتم حمايته (من الخلية كذا الى الخاية كذا)أوضح ذلك بلغة الاكسل؟ او ارفع الملف او جزء منه اذا كان كبيراً

ارفع الملف و ليس صورة عنه لا احد يضع معادلات على صورة

جرب هذا الملف بعد ان تحفظ الباسوورد يمكن ازالة الخلايا الصفراء protect non empty data with Pass word.rar

استبدل الفاصلة بفاصلة منقوطة في المعادلة لتصبح هكذا =IF(SUM(M6:O6)>4;4;SUM(M6:O6))

استعمل هذه المعادلة =IF(SUM(M6:O6)>4,4,SUM(M6:O6))

استبدل علامة = الثّانية (بعد كلمة D5) بالاشارة >

هذا بعض ما توصلت اليه في هذا الموضوع Mon_Equipe 2.rar