عبدالله بشير عبدالله

اخي العزيز نعم يمكن ذلك ولكن بالنسبة لى بواسطة كود اما بالمعادلات حاولت ولم اتمكن ربما الزملاء الافاضل بالمنتدى لديهم ما يقدمونه لحل الامر بالمعادلات ECOODD (1) (1) (1).xlsb لك وافر التقدير والاحترام

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

السلام عليكم نعم الان اتضح المطلوب بارك الله فيك الحل تم حذف النطاق من ادارة الاسماء فصل شيفت'!$A$8:$R$283 من ادارة الاسماء وجعلنا النطاق مباشرة في الكود فاصبح الكود بهذا Sub filter_D() Dim Q1 As String Dim rng As Range Set rng = Sheets("فصل شيفت").Range("$A$8:$R$283") Q1 = Sheets("فصل شيفت").Range("A7").Value If Q1 = "" Then rng.AutoFilter Else Q1 = "*" & Q1 & "*" rng.AutoFilter Field:=1, Criteria1:=Q1, Operator:=xlOr, Criteria2:="=" End If End Sub نموذج حركة جرديوميه 15-11.xlsm

ولك بالمثل وأكثر، جزاك الله كل خير على هذه الدعوة الطيبة تم الحذف خسب طلبك

اخي الفاضل 1- في ملفك الاول ظهرت كلمة TABLE 5 في الشيت وطلبت ازالتها وكان ملفك بدون اكواد وبه ورقة واحدة فاجبتك بحذف الارتباط 2- في ملفك الاخير المتكامل اتضحت الصورة وعرفنا ان الجدول 5 مرتبط بكود عليه لا تقم بحذف الارتباط واتركه كما هو 3- ملفك الاخير المتكامل لا تظهر كلمة TABLE5 في الشيت مع وجود الارتباط ولهذا سألتك ما المشكلة اذا كانت الكلمة اختفت من الشيت ام ان هناك شئ غاب عنى ولم استوعبة فارجو ايضاحه

مبدئيا ساعطيك ملف نفس طلبك الاول بدل VBA معادلات صفيف اليك الملف بالمعادلات وهي معادلات صفيف تحتاج الى Ctrl + Shift + Enter اذا عدلتها او تقلتها ECOO (1).xlsb

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

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

نعم يمكن ذلك السؤال اذا كان الغياب في اكثر من تاريح بمعنى غاب الموظف يوم 14 ويوم 22 اي تاريخ سيتم احضارة

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

وعليكم السلام ورحمة الله وبركاته لم توضح تصفيه البيانات باستخدام الاعمدة BN:BS ام من اعمدة اخرى على كل حال افترضت ان الاعمدة BN:BS هي المعنية بالتصفية وهو الاقرب لقهم الطلب ملاحظة / عدد صفوف جدول الحضور والانصراف غير كافية لعدد الموظفين فقمت بزيادة الصفوف اذا كان هذا طلبك فبها وان كان غير ذلك ارجو كتابة بعض النتائج في الجداول لقهم الطلب تحياتي اليك الحل يكود مراعاة لحجم الملف ECOO (1).xlsb

الأسباب المحتملة: وجود ارتباط خارجي (External Link) داخل الملف يشير إلى ملف اسمه table5.xlsx أو مشابه. صيغة أو دالة مثل VLOOKUP أو INDIRECT أو GETPIVOTDATA تحاول جلب بيانات من ملف خارجي باسم "table5". تم نسخ جدول من ملف آخر وكان مرتبطًا به، والآن Excel يبحث عن الأصل.

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

اولا شكرا لدعاؤك لي ثانيا الكود في الملف السابق يقوم بترتيب الصفحات ذات الارقام وبالتالي ستجد الصفحات الاخرى ذات الحروف وليس الارقام مستثناة وتجدها بجانب بعضها ولكن هناك احتمال الرغبة في استثناء صفخة او صفحات رقمية مثلا تريد استثناء صفخة 4 من الترتيب . هنا سيتم التعديل على الكود باظافة مصفوفة لتجميع الصفخات المستثناة كل ما عليك فعلة هو التعديل في هذا الجزء من الكود حيث اضفت لك صفحات افتراضية في الكود وليس في المصتف مثل "ملخص", "إعدادات", "تعليمات يمكنك تعديلها باي اسم او اظافة صفحات اخرى باي عدد تشاء excludedSheets = Array("الرييييسية", "تجميع", "ملخص", "إعدادات", "تعليمات") اليك الملف بالتعديل ترتيب الصفحات1.xlsm تحياتي

وعليكم السلام ورخمة الله وبركاته اليك الكود Sub ترتيب_الصفخات() Application.ScreenUpdating = False Application.DisplayAlerts = False On Error GoTo ErrorHandler Dim ws As Worksheet Dim dict As Object Dim key As Variant Dim sortedKeys() As Variant Dim i As Long, j As Long Dim temp As Variant Dim excludedSheets As Collection Dim mainSheet As String mainSheet = "الرييييسية" Set excludedSheets = New Collection excludedSheets.Add mainSheet excludedSheets.Add "تجميع" Set dict = CreateObject("Scripting.Dictionary") For Each ws In ThisWorkbook.Worksheets If Not IsInCollection(excludedSheets, ws.Name) Then If IsNumeric(ws.Name) Then dict.Add CLng(ws.Name), ws.Name End If End If Next ws sortedKeys = dict.Keys For i = LBound(sortedKeys) To UBound(sortedKeys) - 1 For j = i + 1 To UBound(sortedKeys) If sortedKeys(i) > sortedKeys(j) Then temp = sortedKeys(i) sortedKeys(i) = sortedKeys(j) sortedKeys(j) = temp End If Next j Next i For i = LBound(sortedKeys) To UBound(sortedKeys) Worksheets(dict(sortedKeys(i))).Move After:=Worksheets(Worksheets.Count) Next i Worksheets(mainSheet).Activate Application.ScreenUpdating = True Application.DisplayAlerts = True ' MsgBox "تم ترتيب " & dict.Count & " ورقة رقمية بنجاح! ", vbInformation Exit Sub ErrorHandler: Application.ScreenUpdating = True Application.DisplayAlerts = True MsgBox "حدث خطأ: " & Err.Description, vbCritical End Sub Function IsInCollection(col As Collection, item As String) As Boolean Dim obj As Variant On Error GoTo NotInCollection IsInCollection = True obj = col(item) Exit Function NotInCollection: IsInCollection = False End Function ترتيب الصفحات.xlsm