حسين مامون

رووووووعة بارك الله فيكم اخي الكريم

تفضل Nouveau Feuille de calcul Microsoft Excel.xlsm

جرب المرفق هناك معادلة في العمود m من m3:m انسخها الى الاسفل حسب عدد البيانات ولا تعدل في الخلية m2 اتركها بون معادلة الرجاء المساعده (1).xlsm

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

اتمنى ان يكون ما تريد الترقيم التسلسلي في الشيتات المرحلة العمود 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

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

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