طارق محمود

السلام عليكم تفضل الحل بالمعادلات 2مثال.xlsx

السلام عليكم علي فرض أن البيانات موجودة بالعمود (A) جرب هذا الكود Sub Macro1() [A9999].End(xlUp).Offset(1, 0).Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.Rows.Delete Shift:=xlUp [B1].Select ActiveWorkbook.Save End Sub

السلام عليكم تفضل أخي الملف المرفق ترحيل على رقم الفوج.xlsm

السلام عليكم بعد إذن أخونا مهند أهلا ومرحبا أخي الكريم محمد هذه أول مشاركة لك لذلك سأرد عليك ولكن برجاء الإلتزام بقواعد المنتدي لنشر مسألتك لكي توفر الوقت علي نفسك وعلي من يريد المساعدة أخي الفاضل لو فرضنا أن أحد هذه الأرقام في الخلية A2 مثلا فلتضع المعادلة التالية في اي خلية ولتكن B2 =DATE(RIGHT(A2,4),MID(A2,4,2),LEFT(A2,2)) ثم تنسق تلك الخلية الجديدة (B2) بتنسيق التاريخ الذي تريده مرفق ملف به ماطلبت mohamed elzan.xlsx

في الصورة التالية تفصيل لكل عناصر المعادلة

السلام عليكم أخي الكريم أنا مشغول ولا أدخل المنتدي إلا قليلا عموما ، لكي نفهم سويا كيف تعمل المعادلة IFERROR سنشير لعملية البحث بالمتغير X ، هذا يعني أن هذه المعادلة تقول أن إبحث البحث الأول X1 وإذا أعطي خطأ إبحث الثاني X2 وتكون عملية البحث الثلاثي تعني أن إبحث البحث الأول X1 وإذا أعطي خطأ إبحث الثاني X2 وإذا أعطي خطأ إبحث الثالث X3 وتكون عملية البحث المطلوب الخماسي تعني أن إبحث البحث الأول X1 وإذا أعطي خطأ إبحث الثاني X2 وإذا أعطي خطأ إبحث الثالث X3 وإذا أعطي خطأ إبحث الرابع X4 وإذا أعطي خطأ إبحث الخامس X5 فإذا كانت هذه المتغيرات الخمسة تعني التالي: X1 = VLOOKUP(A2,'C:\Users\aaharthi\Downloads\[A.xlsx]ورقة1'!$A$1:$C$21,3,0) X2 = VLOOKUP(A2,'C:\Users\aaharthi\Downloads\[B.xlsx]ورقة1'!$A$1:$C$21,3,0) X3 = VLOOKUP(A2,'C:\Users\aaharthi\Downloads\[C.xlsx]ورقة1'!$A$1:$C$21,3,0) X4 = VLOOKUP(A2,'C:\Users\aaharthi\Downloads\[D.xlsx]ورقة1'!$A$1:$C$21,3,0) X5 = VLOOKUP(A2,'C:\Users\aaharthi\Downloads\[E.xlsx]ورقة1'!$A$1:$C$21,3,0) إذن المعادلة المطلوبة ستكون =IFERROR(IFERROR(IFERROR(IFERROR(VLOOKUP(A2,'C:\Users\aaharthi\Downloads\[A.xlsx]ورقة1'!$A$1:$C$21,3,0),VLOOKUP(A2,'C:\Users\aaharthi\Downloads\[B.xlsx]ورقة1'!$A$1:$C$21,3,0)),VLOOKUP(A2,'C:\Users\aaharthi\Downloads\[C.xlsx]ورقة1'!$A$1:$C$21,3,0)),VLOOKUP(A2,'C:\Users\aaharthi\Downloads\[D.xlsx]ورقة1'!$A$1:$C$21,3,0)),VLOOKUP(A2,'C:\Users\aaharthi\Downloads\[E.xlsx]ورقة1'!$A$1:$C$21,3,0))

السلام عليكم أخي الكريم ممكن تراجع هذا الموضوع قد يكون هو ماتريد

مافيش إزعاج ولا حاجة بس لازم تتعلمي أقل القليل عن الجداوب المحورية بالنسبة للملف ده ، بس تتعلمي كام حاجة بسيطة 1- أن الجدول المحوري Pivot Table الموجود ب "ورقة2" بيأخذ بياناته من ورقة البيانات "26-12-2019 to 25-01-2020" 2- أن الجدول المحوري عموما لا يتأثر مباشرة بتغيير البيانات ، لازم تعملي له تنشيط أو تجديد (ريفريش) وذلك بالوقوف بالماوس علي أي خلية في الجدول المحوري ثم كليك يمين وتختاري ريفريش Refresh مرفق صورة للتوضيح يعني ممكن تغيري في صفحة البيانات (فقط للتجربة) إسم واحد أو أكثر من الموظفين .... أو تغيري أوقات المداومة لبعضهم ثم تأتي للجدول المحوري و كليك يمين وتختاري Refresh ستجدي التغيرات اللي عملتيها قد تغيرت بالنتيجة 3 - أنك ممكن تغيري مجال الجدول المحوري اللي بيأخذ منه البيانات ، يعني لو عدد الموظفين زاد مثلا وحبيتي الجدول يقرأ لما بعد السطر 711 في صفحة البيانات أو لو أصبحت أكثر تمكنا من الجدول المحوري وحبيتي تزودي أعمدة أخري بعد العمود N اللي عنوانه OV-Time المهم ، يمكنك تغيير مجال الجدول المحوري عن طريق الوقوف علي أي خلية به ، أوتوماتيكيا سيظهر لك في القائمة الرئيسية للإكسل شريطين أوامر خاصين بالجداول المحورية Design ، Analyze ستختارين Analyze ومنه Change Data Source كما بالصورة الثانية أرجو أن تكون الخطوات واضحة بالتوفيق إن شاء الله

ايام اجازات في نفس الفترة ، تكتب يدوي في الخلية I2 اللي لونها أخضر وهي أوتوماتيك تدخل بالحساب بالنسبة لدوام يوم السبت اللي 6 ساعات ، أضفت له أعمدة بورقة البيانات من العمود M وإلي اليسار وبالطبع سيؤثر ذلك في الجدول المحوري بالورقة 2 وعدلت مايلزم في المعادلات تفضلي الملف تقرير البصمة2.xlsx

لا ولا يهمك بالنسبة للعمود C ليس له لزوم ، كنت أستخدمه مؤقتا أثناء الحل الخلية G2 بالفعل بها عدد أيم الجمعة في الفترة المطلوبة (أي في ذلك المثال من 26-12-2019 إلي 25-01-2020 ، أوتوماتيكيا ينتج عدد أيام الجمع

السلام عليكم أخي الكريم ستجد بالملف المرفق بعض المعادلات المساعدة في الأعمدة من K إلي BP وبيانها كالتالي: السطر الأول باللون الأزرق يعبر عن رقم الشهر العربي في حال يساوي 9 يعني هذا سيوافق رمضان السطر الثاني حساب بفارق 4 شهور حسب الموجود بالخلية G5 وإذا تغيرت المدة في المستقبل ، فقط غير تلك الخلية السطر الثالث يقر التاريخ بعد مراجعة أنه لايكون الشهر رمضان ولا ديسمبر السطر الرابع لابد أن تملؤه كلما قبضت ربحية السهم أو الككوبون ويمكنك من كتابة شيء إلا "نعم" أو "لا" *** إذا ذهبت بالماوس لليمين ستجد أن التاريخ 11/02/2027 سيوافق رمضان وبالتلي ستجد السطر السفلي يتعدل أوتوماتيكيا وكذلك التاريخ 11/11/2035 سيوافق رمضان وبالتلي ستجد السطر السفلي يتعدل أوتوماتيكيا وكذلك التاريخ 11/12/2036 سيوافق ديسمبر وبالتلي ستجد السطر السفلي يتعدل أوتوماتيكيا وأخيرا الخلية التي بها التنبيه ، جعلت لون الفونط أبيض لكي لا يظهر إلا إذا كان باقي علي الموعد يوم أو تجاوزه ولم تعلم عليه ب "نعم" ، سيظهر باللون الأحمر تستطيع تغيير محتوي خلية ناريخ اليوم (E2) يدويا كأنه يوم واحد قبل الإستحقاق لتري النتيجة ثم تعيدها مرة أخري تفضل وأخبرني الاسهم.xls

تفضل أخي الملف به حتي 9 ملفات وليس 5 فقط المعادلات في العمود AB باللون الأحمر تحدد مكان الملف الرئيسي والذي يجب أن تكون الملفات الفرعية بنفس المجلد (الفولدر) العمودان Z,AA باللون الأزرق يمكنك نعديل أسماء الملفات بها الأعمدة المخفية بين G & Z باللون الأصفر بها معادلات تعتمد علي أن الملفات الفرعية مفتوحة أرجو أن يكون هذا هو المطلوب ABC.xlsx E.xlsx D.xlsx C.xlsx B.xlsx A.xlsx

أخي الكريم جرب حل أخونا حسين أولا ، جزاه الله كل الخير

السلام عليكم تفضلي أختي الكريمة حل سريع بالجداول المحورية وبعض المعادلات الجدول والمعادلات بالورقة2 وبعض المعادلات بورقة البصمة نفسها ليتعرف النظام عندي علي فورمات التاريخ والوقت تقرير البصمة.xlsx

السلام عليكم تفضل أخي الملف به المعادلات بالأزرق والأعمدة علي اليسار بالأحمر تستطيع إخفاؤها لكن لاتلغيها فهي داخلة في تركيب المعادلات الاجازات جودة.xlsx

السلام عليكم الأفضل تجميع البيانات في ملف واحد ، بل في ورقة واحدة لكن علي كل حال تستطيع إستخدام الدالة ( في لوك اب) مع خاصية المطابقة التامة أي مثل VLOOKUP(X,Range,n,0) أي تجعل الدالة تبحث عن المتغير بالضبط تطابق وإلا ترجع بخطأ وذلك عن طريق المتغير الرابع بالدالة تعطيه قيمة 0 أو False ثم قبل الدالة ، تضيف دالة أخري Iferror والتي تغير نطاق البحث من الملف A إلي B مثلا لو أعطي البحث الأول خطأ تفضل الملف به الدالتين ABC.xlsx

السلام عليكم تواصل معي أخي الفاضل "وجيه شرف الدين" علي الخاص ليخبرني أن الملف به أخطاء وقد صححتها كما أرجو وأحببت أن أضيف الملف بعد التعديل حتي يستفيد منه كل من عنده نفس المسألة فقد غيرت الكود وأضفت عليه بعض الشروحات داخل الكود ليكون دليل لمن يحب التغيير أو التعديل عليه ضبط-كود-توزيع_2.xlsm

الحمد لله وجزاك الله خيرا

تفضل المطلوب تغير الفصول.xlsm

السلام عليكم أخي الكريم شرح سريع للحل يمكنك إختيار فترة الترحيل بالدقائق من الأسهم عند الخلايا N1:N4 والتي تغير بالخلية M2 أو N2 وهي التي تحدد فترة الترحيل بالكود ثم بإستخدام هذا الكود يتم مقارنة الفترة منذ آخر ترحيل وبناءا عليها يتم أو لايتم عمل النسخ من البيانات لم أحذف الباينات في الشيت الأول ، فقط نسختها <<يمكن جعل الكود يمسحها بعدما تترحل >> وفي آخر الكود يطلب تشغيل كود آخر وظيفته تشغيل عداد زمني بالفترة المطلوبة ليطلب بعدها تشغيبل الكود الأول مرة أخري Sub AutoTarheel() Sheets(1).Activate e = Now - [j1] x = [n2] / 24 / 60 If e >= x Then With Sheets(2) LR = .[A9999].End(xlUp).Row If LR <> 1 Then LR = LR + 1 [A1:F20].Copy .Cells(LR, 1) End With [j1] = Now End If Call Rept ' for starting timer again End Sub Sub Rept() t = "00:" & Format([n2], "00") & ":00" Application.OnTime Now + TimeValue(t), "AutoTarheel" End Sub تفضل الملف وبه الكود dddata.xlsm

السلام عليكم أخي الكريم جرب تستخدم هذا الكود Sub nnn() cycle = WorksheetFunction.CountA([N8:N30]) - 1 If cycle < 2 Then Exit Sub lr = Cells(999, 1).End(xlUp).Row For c = 1 To cycle T = Cells(c + 8, "N") n = Cells(c + 8, "O") old = Cells(c + 8, "P") nw = Cells(c + 8, "Q") rep = 0 For r = 9 To lr A = Cells(r, "C") B = Cells(r, "D") If B = old And A = T And rep < n Then With Cells(r, "D") .Value = nw .Interior.Color = 212 End With rep = rep + 1 End If Next r Next c End Sub أو تفضل الملف به الكود تغير الفصول.xlsm

السلام عليكم أخي الكريم إرفق الملف

السلام عليكم أخي الكريم لابد من إدراج مثال من بياناتك والشكل الذي عليه البيانات في الشيتين

الأستاذ الفاضل / أحمد الكسادي ( ايو عيد) تحية طيبة لم انتبه لمشاركتك القيمة حيث سألني الأستاذ mostafa sharaf علي الخاص ولما حللتها له أحببت ان يستفيد غيره من الحل لذلك وضعت المشاركة هنا ثم انتبهت لبرنامجك العبقري جزاك الله خيرا

السلام عليكم تصحيح ليس ممكن 32 مراقب مع الإستثناءات فلنتكلم مثلا عن اليوم الأول - الفترة الأولي فقط الكود سيوزع 16 مراقب في الصف الرابع ثم يذهب للصف الخامس (اليوم الأول - الفترة الأولي ) يجد أن مقابل ال 32 مراقب ، منهم 16 بيراقبوا في الصف الرابع + 2 مثلا إستثناءات = 18 ، الباقي 14 من ال 32 يعني مش ممكن يوفي المطلوب (16) إذا زودت عدد الملاحظيين إلي 34 لتغطية الإستثناءات يكون الحل ممكن وكلما زادت الإستثناءات كلما وجب عليك تزويد الملاحظيين تفضل هذا الملف به الكود الجديد للورقة الثانية (الجديد) به حل للإستثناءات ولكل مشاكلك إن شاء الله لكن إذا قللت عدد الملاحظيين عن 34 فلن يستطيع الكود إيجاد الحل التعديل على الكود توزيع اللجان على الملاحظين (2).xlsm