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

وعليكم السلام ورحمة الله وبركاته
الى جانب الحلول التي ارفقها  استاذنا الفاضل hegazee اليك  حل اخر بالكود في حدث الورقة
Private Sub Worksheet_Change(ByVal Target As Range) Dim rngF As Range, rngG As Range Dim rngB As Range, rngC As Range Dim pos As Variant Set rngF = Me.Range("F2") ' Set rngG = Me.Range("G2") Set rngB = Me.Range("B2:B1000") Set rngC = Me.Range("C2:C1000") If Not Intersect(Target, rngF) Is Nothing Then Application.EnableEvents = False pos = Application.Match(rngF.Value, rngB, 0) If Not IsError(pos) Then rngG.Value = Application.Index(rngC, pos) Else rngG.Value = "" End If Application.EnableEvents = True End If rngG.Select End Sub data.xlsb

السلام عليكم ورحمة الله وبركاته
تم تحسين سرعة الكود
اي تغيير في I2 -13-14 يعمل الكود
الترقيم التلقائي في العمود B 
تم تعديل المعادلة في العمود الاخير بحيت  تظعر الارقام حيب اخر بيان في العمود C
جرب  الكود وان كان هناك أي استفسار فلا حرج
اعاده الله عليك يالخير والبركة
يومية النقدية 1العامة.xlsm

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

السلام عليكم
نعم الان اتضح المطلوب   بارك الله فيك
الحل تم حذف النطاق من ادارة الاسماء فصل شيفت'!$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

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

السلام عليكم
خسب المثال المرفق
يبدو أنك تريد دالة للتقريب إلى أقرب 0.1 (أعشار)، وليس معادلة باقي القسمة (mod) التي تعمل عادة مع الأعداد الصحيحة.
=CEILING(A2; 0.1) =ROUNDUP(A2*10;0)/10 تقريب.xlsx

وعليكم السلام ورحمة الله وبركاته 
=IFERROR(AGGREGATE(15;6;A4:A30;ROW($A$1));"") السبب الرئيسي هو أن ROW($A$1) ثابت دائماً  وكذلك النطاق يجب ثتبيته بحيث لا يتغير عند السحب ليصبح A$4:A$30 بدل A4:A30
ولحل المشكلة  اختر احدى المعادلات
=IFERROR(AGGREGATE(15;6;A$4:A$30;ROW(A1)-ROW(A$1)+1);"") =IFERROR(AGGREGATE(15;6;$A$4:$A$30;ROW(A1));"") =IFERROR(AGGREGATE(15;6;$A$4:$A$30;ROW(A1:A1));"") =IFERROR(AGGREGATE(15;6;$A$4:$A$30;ROW(A4)-ROW($A$4)+1);"") اليك الملف وبه تطبيق المعادلات الاربعة السابقة
ntega_elec_new.xlsb
 

وعليكم السلام ورحمة الله وبركاته
قمت ياستبدال اللستبوكس بالورقة باخر في يوزرفورم
فكرة العمل
انقر على الخلية المراد وضع الوظيفة بها في العمود B يظهر الفورم قم بالاختيار  ويختفى الفورم عند النقر في اي خلية اخرى
لك وافر الاحترام والتقدير
LISTBOX1.xlsm
 

السلام عليكم ورحمة الله وبركاته
ساقدم لك ملف خسب ما فهمته من ردك  
راجع الملف واذا كانت هناك قيم غير صحيحة  فقم  بارفاق جدول به القيم الصحيحة يدويا وبدون معادلات  للراتب والسلفيات لعدد 3 او 4 اشخاص  
اليومية (2).xlsm

وعليكم السلام ورحمة الله وبركاته
المشكلة الرئيسية  هي في منطق البحث
 
البحث عن الأعمدة يتم من الصف 3 (G3:U3) ولكن البيانات تبدأ من الصف 4
الإزاحة (offset) غير صحيحة عند استخراج القيم
اليك التعديل
تنسيق ترتيب الجداول الكمية مع اسم الصنف مع التاريخ التابع له - Copy - Copy.xlsm
 

السلام عليكم
جرب الملف 
TRIP_01 (1) (2).xlsx
 

السلام عليكم
استبدل هذا
Private Sub UserForm_Initialize() Call showinlistbox End Sub بهذا
Private Sub UserForm_Initialize() TextBox25 = Val(Sheets("table").Cells(Rows.Count, 1).End(xlUp).Value) Call showinlistbox End Sub   TextBox25 = Val(Sheets("table").Cells(Rows.Count, 1).End(xlUp).Value)

وعليكم السلام ورحمة الله وبركاته
دالة COUNTA (لا تعمل مع التصفية)
دالة SUBTOTAL وهي في حالتين 
=SUBTOTAL(3, A1:A10)  
 تقوم بعدّ كل القيم غير الفارغة في A1:A10 حتى المخفية. اي لا تعمل مع التصفية
=SUBTOTAL(103, A1:A10) تقوم بعدّ القيم غير الفارغة فقط في الصفوف الظاهرة بعد التصفية أو الإخفاء اي  تعمل مع التصفية
الرقم 103: يمثل (عدّ القيم غير الفارغة) مع تجاهل الصفوف المخفية يدويًا أو بواسطة التصفية.
 
اليك طلبك 
05- محرك بحث يعمل على تصفية البيانات حسب كل خلية على حدى 23-10-2025.xlsm

وعليكم السلام ورحمة الله وبركاته
تم وضع معادلات في العمود G وكذلك العمود J
نموذج.xlsx

وعليكم السلام ورحمة الله وبركاته
اليك التعديل حيث الكود يتعامل مع الخلايا المدمجة 
Private Sub CommandButton2_Click() On Error GoTo ErrorHandler Dim wsSource As Worksheet Set wsSource = ThisWorkbook.Sheets("Sheet4") Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With wsSource .Range("B3:G3").ClearContents .Range("G4:G6").ClearContents .Range("D4:E6").ClearContents .Range("C11:G17").ClearContents .Range("C21:G27").ClearContents .Range("C31:G34").ClearContents .Range("B37:G43").ClearContents .Range("B47:G51").ClearContents .Range("C54:G54").ClearContents .Range("C57:G59").ClearContents .Range("B61:G68").ClearContents End With Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Exit Sub ErrorHandler: Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic MsgBox "حدث خطأ: " & Err.Description End Sub  

وعليكم السلام ورحمة الله وبركاته
اليك الملف وبه كود  فيه طلبك باذن الله
مجموع1.xlsb
لك تفديري واحترامي

وعليكم السلام ورحمة الله وبركاته 
اعتقد تقضد العمود E  فهو مخصص لايام الغياب خسب ملفك 
الكود يحسب جميع الأيام المتتالية  السابقة بما في ذلك يوم التاريخ المحدد ولا يخسب الايام التالية بعد التاريخ المحدد
اليك الملف 
 
test1.xlsb

وعليكم السلام ورخمة الله وبركاته
اليك التعديل وارجو ان يكون فيه طلبك
غياب 1طلاب.xlsb
تحياتي

وعليكم السلام ورحمة الله وبركاته
الملف المرفق مقال لجداول 3  كلمة السر للاول111 والثاني 222 والثالت 333
يمكن تعديلها من الكود ويمكنك قفل محرر الاكواد بكلمة سر
فكرة الكود عند الدخول على الصفخة يتم حماية الجدوال  كلها بكلمة سر هي  master   يمكن تعديلها من الكود للجداول 3
يختار الشخص جدوله يطالب بكلمة سر يكتبها فيتعامل مع جدولة وباقي الجداول محمية
يمكنك تعديل  نطاف الجداول في الكود
اتمنى ان تجد في الملف طلبك
تحياتي
حماية جدوال متعددة كل جدول بكلمة سر.xlsb

وعليكم السلام ورخمة الله وبركاته
اخي لا داعي للاعتذار وملقك ليس مبهما وطلبك يتكرر كثيرا في المنتدى  الغموض كان في النتائج المرفقة مع ملفك وخضوصا للسائق اخمد فهي غير صحيحة
الملفان السابقان فيهما طلبك ولكن بزر وليس تلقائي  
فكرة عمل الملف المرفق  قم بادخال البيانات لكل السائفين مع العهد والمصروفات ثم استحدم زر الترحيل  فيتم انشاء صفخات للسائقين
 بعدها عند أي تغيير في صفحتي العهدة أو المصروفات، يتم  تحديث جميع صفحات السائقين الموجودة تلفائيا ولا تختاج الى زر الترحيل
 حاليا لديك 3 ملفات كلها تعمل اختر ما يناسب طلبك وكلها تؤدى الى نفس النتيجة 
اتمنى لك التوفيق
جميع السائقين في نفس تلقائي الملف (1).xlsb

نعم استاذى الفاضل Foksh  صدفت وشكرا لتنبيهك 
كما اشكر صاخب السؤال الفاضل soik225998 على تنبيهنا للامر
تم معالجة الامر ان شاء الله
المرشحين2.xlsb
 

اليك التعديل   كلمة المرور 1234
اظافة زر تعديل وخذف للفورم.xlsm

اعتقد تعنى الفورم1 
اظهار العناوين في LISTBOX.xlsm

السلام عليكم 
صباح الخير استاذ خيري
الحل سيكون عن طريق فورم بمعنى 
عند البحث  سواء بالرقم الاشاري او باي جزء من النص ، إذا وجد نتيجة واحدة سيتم تعبئتها مباشرة بدون ظهور الفورم
إذا وجد أكثر من نتيجة، سيظهر الفورم بعرض تص الرسالة والرقم الاشاري
يمكنك الاختيار بالنقر المزدوج أو بالاختيار من اللست ثم زر "تحديد"
تحياني
االمراسلات الإدارية2.xlsm

وعليكم السلام ورحمة الله وبركاته
جرب هذا التعديل
مخزن3 (1).xlsm