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

عذرا لم انتبه ان قي طلبك طباعة متعددة الطريقة الاولى زر print all اكتب كود الشركة بداية الطباعة في الخلية P2 ونهاية الطباعة في Q2 الطريقة السابقة لطباعة الارقام المتسلسلة وراء بعضها الطريقة الثانية عن طريق فورم زر طباعة خسب الاختيار وهي تغنيك عن كل الازرار وعن الطريقة الاولى حيث يمكن الطباعة لموظف واخد او الطباعة للكل او الطباعة المتعددة خسب الاختيار سواء الارقام متصلة ام منفصلة اختر ما تراه متاسب لطلبك مرتبات شركة نقل البضائع فنيين عن شهر نوفمبر 2025 (1).xlsm

وعليكم السلام ورحمة الله وبركاتة كود طباعة الكل Sub PrintAll() Dim ws As Worksheet Dim dropdownCell As Range Dim validationFormula As String Dim optionsRange As Range Dim cell As Range Dim originalValue As Variant Dim counter As Integer Set ws = ActiveSheet Set dropdownCell = ws.Range("D4") originalValue = dropdownCell.Value If dropdownCell.Validation.Type = 3 Then validationFormula = dropdownCell.Validation.Formula1 If Left(validationFormula, 1) = "=" Then validationFormula = Mid(validationFormula, 2) End If Set optionsRange = ws.Range(validationFormula) counter = 0 For Each cell In optionsRange If cell.Value <> "" Then dropdownCell.Value = cell.Value Application.Calculate DoEvents ws.PageSetup.PrintArea = "C3:J54" ws.PrintOut counter = counter + 1 Application.StatusBar = "تم طباعة " & counter & " من " & optionsRange.Cells.Count End If Next cell dropdownCell.Value = originalValue Application.StatusBar = "" MsgBox "تمت طباعة " & counter & " عنصر بنجاح!", vbInformation Else End If End Sub مرتبات شركة نقل البضائع فنيين عن شهر نوفمبر 2025.xlsm

اخي العزيز نعم يمكن ذلك ولكن بالنسبة لى بواسطة كود اما بالمعادلات حاولت ولم اتمكن ربما الزملاء الافاضل بالمنتدى لديهم ما يقدمونه لحل الامر بالمعادلات 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 احذفها ثم وافق وتنتهى المشكلة