نجوم المشاركات

وعليكم السلام-يمكنك استخدام هذه المعادلة ..وذلك فى حالة ان وقت الإنصراف أقل من وقت الحضور ,ولكن لابد ان يكون فى نفس اليوم ,,وبعد ذلك لابد من تصحيح وتعديل وقت الإنصراق عند إدخاله بمعنى اذا انصرف الموظف الساعة مثلاً 5 وربع مساءاً فلابد من كتابتها وادخالها هكذا 17:15 وشكراً =IF($D2<$C2,($D2+"12:00")-$C2,$D2-$C2) back1.xlsx

وعليكم السلام-تفضل أعتقد ان هذا سيكون أفضل مما طلبت قائمة منسدلة.xlsx

هناك حيلة صغيرة يا أخي @waledstar سأعلمك إياها بدون الحاجة لبرامج خارجية 🙂 بعد أن تقوم بتصميم جميع التقارير قم بتصميم تقرير تجميعي .. بحيث تجمع فيه كل التقارير على شكل تقارير فرعية .. وثم تفصل بينها بأداة فاصل الصفحات () .. فيظهر لك الشكل النهائي بهذه الطريقة : بعدها تقوم بتصدير التقرير التجميعي على صيغة PDF فيحصل المطلوب ☺️ وهذا مثال للطريقة : Many Reports in 1 PDF.accdb

يمكنك استعمال هذا الكود لحذف أقدم التكرارات Sub DeleteOldestRepeated() lr = Cells(Rows.Count, 3).End(xlUp).Row For r = 2 To lr If Evaluate("=COUNTIF($C$2:$C$" & lr & ",C" & r & ")") > 1 Then For n = (r + 1) To lr If Range("c" & n).Value = Range("c" & r).Value Then If Range("b" & n).Value >= Range("b" & r).Value Then Rows(r & ":" & r).Delete Shift:=xlUp r = r - 1 Else Rows(n & ":" & n).Delete Shift:=xlUp End If End If 'Exit For Next n End If Next r MsgBox "Done by mr-mas.com" End Sub وإذا كانت احتمالات التكرارات مرتين فقط في الاسم الواحد فيمكن حذف علامة التعليق قبل exit for لتسريع الكود أكثر بالتوفيق

وعليكم السلام-يمكنك استخدام هذه المعادلة =IF(AND(DAY(B2)=1,MONTH(B2)=2),"كادر","") كادر.xlsx

جزاك الله خيراً وبارك لك و جزيل الشكر لحضرتك.

اتفضل يا سيدى احلام معاليك اوامر يا باش مهندس @Moosak اى خدمه يارب تنبسط بس تعتمد الفكرة على وضع الروتين الاتى فى وحدة نمطية Public opt As Integer Public Function MesgBox(ByVal msgText As String, _ Optional ByVal TimeInSeconds As Integer, _ Optional ByVal intButtons = vbDefaultButton1, _ Optional TitleText As String = "WScript") As Integer On Error GoTo MesgBox_Err Dim winShell As Object Set winShell = CreateObject("WScript.Shell") MesgBox = winShell.PopUp(msgText, TimeInSeconds, TitleText, intButtons) MesgBox_Exit: Exit Function MesgBox_Err: winShell.PopUp Err & " : " & Err.Description, 0, "MesgBox()", vbCritical Resume MesgBox_Exit End Function ويتم استدعاء الورتين من خلال opt = MesgBox(Me.n & vbCr & vbCr & " Please wait . . .", 1, vbInformation, "Info") حيث ان بناء الكود كالاتى 'Syntax: opt = MesgBox(msgTxt,intSeconds,Buttons+Icon+DefaultButton,"Title") aa V2.accdb

* بالنسبة لتغيير الهوايات ضمن الاربعة الحاليين فلا مشكلة في معادلات المطلوب الأول (مناسب أو غير مناسب) أما إذا أضفت هوايات جديدة فهذا يلزم إعادة تنظيم للمعادلات لتناسب الوضع الجديد (تغييرات ببسيطة لا تخفى عليك) ولعل حضرتك لاحظت أن النطاق في شيت Data إلى الصف 11 فربما تحتاج إن تزيده إلى 1000 مثلا أو حسب الأعداد لديكم * وكما قلت سابقا المطلوب الثاني يتم عرض أفراد المجموعة كلها واختيار البديل يدويا ويمكنك استعمال معادلات البحث المعروفة لحضرتك في هذا الجدول الذي به أفراد المجموعة للوصول إلى أول فرد بجانبه كلمة مناسب بالتوفيق

هذا الكود من اعمال الأستاذ زيزو العجوز ولكن أريد معرفة العطل الواقع عليه لأنه لا يقوم بالترحيل السلام عليكم ممكن المساعدة فى اتمام هذا البحث.rar

يا ريت لو ممكن الحل بالمعادلات

شكرا جزيلا لك أخى سليم بس أنا عايز صفحة البحث (المرحل إليها) تأخذ البيانات من ورقتين وتبدأ من تحت رأس الجدول الأولى: من ورقة حركة الموردين والثانية: من ورقة حركة النقدية وبارك الله فيك

جرب هذا لعله المطلوب md.rar

شاكر لك أستاذنا الكبير زيزو وكل تقديرى للأستاذ العزيز سليم حاصبيا بارك الله لكما وهذا هو الملف بعد الإصلاح لتعم الإفادة للأخرين ويعمل الكود الأن بكل بساطة transfer.rar

ممكن بعد إذن أستاذنا الكبير زيزو سوف أرسل لك الملف ثانية بعد وضع الكود به ولكنه لا يعمل أرجو عمل اللازم من فضلك-بارك الله فيك ورعاك وأشكرك على سرعة الرد transfer.rar

تفضل أخى العزيز معادلة تنقل مبلغ السلفة على اساس شرطين ( التاريخ + الرقم ).rar

هناك مشكلة فى هذا الملف من فضلك ارسله مرة أخرى

تفضل أخى تحويل التاريخ الى اسم الشهر.rar

بعد إذن أخى صديق هذا حل بمعادلة أخرى بسيطة وصغيرة طلب معادلة جلب بيانات.rar

من فضلك ارسل الملف

تفضل أخى لعله المطلوب تجربة.rar

جرب هذا لعله المطلوب ظ„ظ„ط±ظپط¹ ظ…ظ† ظپط¶ظ„ظƒظ….rar

وعليكم السلام ورحمة الله جرب هذا لعله المطلوب برنامج الشؤون 2.rar

السلام عليكم أخى محمد هناك مشكلة فى تحميل هذا الملف

من فضلك ارسل الملف ؟

السلام عليكم أيها الزملاء الكرام أرجو التكرم على المساعدة وأخص بالشكر للزميل الكريم أستاذنا العزيز بن علية حاجى فأرجو منه متابعة هذا التصحيح على نفس المعادلة بزيادة شرط أخر وهو الرجاء عمل اللازم فى هذه المعادلة وهو عندما يكون البند فى العمود E=البنود فى العمود F من صفحة Sources ,والموجود فى العمود O =البنود فى العمود G من ورقة Sources يكون الناتج فى هذه الحالة= صفر أما عندما يكون البيانات فى العمود E لا تساوى الموجود فى العمود F من ورقة Sources والبيانات فى العمود O تساوى الموجود فى العمود Gمن ورقة Sources يكون الناتج فى هذه الحالة H 1*5+i1*3 from 01.12 till 15.12.2017.rar

السلام عليكم ورحمة الله موضح أيضا المطلوب فى الشيت from 01.12 till 15.12.2017_2.rar

جزاك الله كل خير على سرعة الرد ولكن هناك خطأ بسيط وهو عندما يظهر فى الخانة كلمة El Gouna لابد أن يكون الناتج حاصل ضرب القيمة فى الخانة (H*5+I*3) وذلك فى حالة عدم تساوى القيمة الموجودة فى العمود E مع الموجود فى العمود F من ورقة Sources ولكم جزيل الشكر

السلام عليكم أيها الزملاء الكرام أرجو التكرم على المساعدة وأخص بالشكر للزميل الكريم أستاذنا العزيز بن علية حاجى فأرجو منه متابعة هذا التصحيح على نفس المعادلة بزيادة شرط أخر وهو: الرجاء عمل اللازم فى هذه المعادلة وهو عندما يكون البند فى العمود E=البنود فى العمود D من صفحة Sources ,والموجود فى العمود O =البنود فى العمود Eمن ورقة Sources يكون الناتج فى هذه الحالة= H1*5+i1*3 from 01.12 till 15.12.2017.rar

بارك الله فيك وحفظك ورحم أمواتك طبعا ده مش غريب عليك أستاذنا الكبير وفعلا هو المطلوب دائما وأبدا فى تقدم

السلام عليكم أيها الزملاء الكرام أرجو التكرم على المساعدة الرجاء عمل اللازم فى هذه المعادلة وهو عندما يكون البند فى العمود E=البنود فى العمود B من صفحة Sources ,والموجود فى العمود O =البنود فى العمود C من ورقة Sources يكون الناتج فى هذه الحالة= صفر أما عندما يكون البيانات فى العمود E لا تساوى الموجود فى العمود B من ورقة Sources والبيانات فى العمود O تساوى الموجود فى العمود C من ورقة Sources يكون الناتج فى هذه الحالة H 1*5+i1*3 from 01.12 till 15.12.2017.rar

تسلم ايديك وبارك الله فيك أخونا العزيز بن علية -نعم هو ده المطلوب فعلا يا رب دائما زخرا لنا وجعلك الله دائما لمساعدتنا

تفضل أخى جرب هذا جدولة الموظفين.rar

تفضل أخى هذا الملف عدم التكرار.rar

ممكن تبعت الملف تانى لأنى مش قادر أحمله كى أساعدك