حسين مامون

اتمنى ان يكون ما تريد الترقيم التسلسلي في الشيتات المرحلة العمود m الرجاء المساعده.xlsm

اعتذر انطر المرفق FTable.xlsm

بعد اذن الاستاذ Mohamed Hicham انظر المرفق Book1.xlsm

وجزيت خيرا و الحمد لله ان تم الامر على خير

حسب ما فهمت في الشرح جرب المرفق الرجاء المساعده.xlsm

جرب ورد علي FTable.xlsm

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

وعليكم السلام جرب المرفق بالنسبة قائمة مباحث الاكمال لم افهم ما تريد ضع بعض النتائج يدويا وارفع الملف مرة اخرى 1256892141_399701656_FinalTable(1).xlsm

جرب اهتزازالشاشه (1).xlsm

جرب المرفق Test (3).xlsm

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

لا يمكن الاطلاع على ملفك بدون مرفق لاكتشاف سبب الاهتزاز عليك برفعه هنا

ربما تقصد هذا Sub TrData() Dim ws As Worksheet, Detl As Worksheet Dim LR, LR1 As Long, p As Long, A As Long, C As Range Set ws = Sheets("قاعدة البيانات") Set Detl = Sheets("بيان") LR = Detl.Range("H" & Rows.Count).End(3).Row For Each C In ws.Range("E2:E" & ws.Range("E" & Rows.Count).End(3).Row) A = WorksheetFunction.CountIf(Detl.Range("H2:H" & LR), C) If A = 0 Then Detl.Range("H" & LR + 1).Offset(p).Resize(12) = C Detl.Range("I" & LR + 1).Offset(p).Resize(12) = C.Offset(, 1) p = p + 12 End If Next End Sub

تفضل ورقة.xlsm

جرب هذه التجربة المتواضعة لعلها تفيد فلتر.xlsm

جرب المرفق التسلسل في العمود 1 فلتر.xlsm

هل تقصد تسلسل من 1 الى اخره في العمود a

جرب المرفق فلتر.xlsm

هذه تجربة متواضعة كما يمكنك عمل اشياء اخرى بس المشكل في شرح المراد Book1 (2).xlsm

سيعرض الكود كاملا بس عند البحث تكتفي بادخال جزء منه فقط

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

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

جرب المرفق معادلة.xlsm

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

هل تقصد الحدف الخلايا من C4:A4 و C7:A7 وضح اكثر ما تريد و ما لا تريد