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

السلام عليكم و رحمة الله استخدم المعادلة التالية =LOOKUP(2;1/(($L$2:$L$21=$L$22)*($M$2:$M$21="حضور"));$K$2:$K$21)

مشاركة مع الاساتذة ممكن نعمل حلقة تكرارية نحدد فيها عدد السنوات المطلوب اضافتها والكود يقوم بكتابة اول سجل للسنة الحالية ثم يولد سجلات للسنوات القادمة وفقا لعدد السنوات المطلوبة If IsNull(tx2) Then MsgBox "حدد عدد السنوات المطلوبة": Exit Sub Dim rs As DAO.Recordset Dim a As Byte Set rs = CurrentDb.OpenRecordset("table1") For a = 0 To Me.tx2 - 1 rs.AddNew rs!date22 = Year(Date) + a rs.Update Next a rs.Close Set rs = Nothing Me.Requery مرفق مثال Database11.accdb

جزاك الله خيرا علي هذه الكلمات الطيبات ارجو ان تكون المشكلة قد انتهت وتم حلها بفضل الله.

تفضل اخي الكريم بصراحة حاولت اساعدك لدرجة اني قمت تقريبا باعادة تصميم برنامجك!!!! واتمنى ان يلبي طلبك ولك اخي الفاضل الاكواد المستخدمة ربما يستفيد منها احد الاعضاء تذكير بتاريخ الاستحقاق_MH.xlsm

اجعلها حسب التاريخ والوقت ....

تفضل ................... Mahdi119.rar

السلام عليكم ورحمة الله أعتذر عن التأخير ولكن كنت اقوم بجولة مكثفة داخل البيانات الخاصة بحضرتك ولكون عملية التجميع صحيحة علي حسب ما اعتقد ولكن من اين اتي الاختلاف؟! وإليك بعد الفحص هذه الاسباب: 1- تقرير حضرتك يقوم بالتجميع بحسب اكثر من معيار كالسنة المالية وتاريخ القيد وكود العميل وكود الحساب - وهو مصدر التقرير! أم الدالة فتقوم بالتجميع حسب معيار التاريخ السابق لتاريخ الاستعلام وفقط. 2- بيانات حضرتك بها مجموعة من التواريخ غير مطابقة مع السنة المالية وكما بالصورة الثانية فان فئة البيانات من تاريخ 27-6-2022 وحتي 30-6-2022 السنة المالية الخاصة بها هي 2023 وهذا خطأ حيث ان نطاق السنة المالية يجب ان يكون 2022 حتي 30-6-2022 وان السنة المالية الجديدة تبدأ اعتبارا من 1-7-2022 اليس كذلك؟ وهذه الصور للتوضيح أما عن حل المشكلة: 1- فاما ان تعدل حضرتك في تاريخ السنة المالية وان تجعل كل البيانات التي تخص سنة 2022 من 1-7-2021 وحتي 30-6-2022 وكذلك السنة المالية الجديدة 2023 والتي تبدأ من 1-7-2022 وحتي 30-6-2023 2- أو ان تستغني عن معيار الفلترة بالسنة المالية داخل الاستعلام الخاص بالتقرير، يعني تحذف حقل Endyear من الاستعلام. وبعد هذه آخر الفترة التي كانت علي الاتفاق بيننا واسأل الله أن يجزيك خيرا علي صبرك معي وتحملك ظروفي الصعبة في التوواصل واسأل الله ان يكون تواصلي قد اثمر بقائدة لك ولو يسيرة او قد ساهم في حل مشلكتك او جزء منها - ولحين توفر وقت كافي لمتابعة المنتدي اترككم في رعاية الله - متمنيا لكم ولسائر اساتذتي الافاضل بالمنتدي دوام التوفيق والسداد. والسلام عليكم ورحمة الله وبركاته

نعم هذا ما قصدته وهذا ما فهمته منك ان لديك مشكلة في اظهار كافة الاعمدة .

حسب علم الموارد البشرية او (شئون الموظفين) اعتقد خطأ بل من الخطورة مثل هذا التفكير فى اجازة موظف جاز له ان يجدد الاجازة اثناء اجازته حتى لا يتم مثل هذ النوع من التكرار انصحك بفكرة جديدة وهى اضافة حقل جديد للجدول وسميه (نوع الاجازة) وفى مثل هذه الحالة اكتب النوع ( تجديد ـ او تمديد) لانك كيف تعرف الاجازات العادية من الاجازات التى تم تمديدها كما انصحكم بتعديل عنوان السؤال الى " تمديد اجازة موظف عندما يكون فى اجازة " جزاكم الله خير

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

ممكن مثال للجدول ... وماهي البيانات التي تريد ظهورها فقط

السلام عليكم ورحمة الله تعالى وبركاته تفضل اخي الكريم هدا حل اخر بالاكواد مع بعض الاضافات البسيطة ربما يلبي طلبك في حدث شيت Nesma Private Sub Worksheet_Activate() Dim li As Integer, MH1 As Integer, A As Integer, Y As Integer A = Sheets("Parts").Range("G" & Rows.Count).End(xlUp).Row Y = Sheets("Parts").Cells(2, Cells.Columns.Count).End(xlToLeft).Column + 1 Application.ScreenUpdating = False Worksheets("Nesma").Range("A4:C1000").ClearContents For li = 5 To A For MH1 = 3 To 3 Sheets("Nesma").Cells(li - 1, MH1) = Sheets("Parts").Cells(li, MH1) Sheets("Nesma").Cells(li - 1, MH1 - 1) = Sheets("Parts").Cells(li, MH1 + 3) Sheets("Nesma").Cells(li - 1, MH1 - 2) = Sheets("Parts").Cells(li, MH1 + 4) Next Next Application.ScreenUpdating = True End Sub وهدا في حدث شيت Wheels Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lr As Long Application.ScreenUpdating = False Worksheets("Parts").Range("G5:G1000").ClearContents With Sheets("Wheels") lr = .Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row .Range(.Cells(4, "b"), .Cells(lr, "b")).Copy Sheets("Parts").Cells(5, "G") .Range(.Cells(4, "c"), .Cells(lr, "c")).Copy Sheets("Parts").Cells(5, "f") End With Application.ScreenUpdating = True End Sub OR_more_100 values_MH.xlsm

السلام عليكم استاذ husseinharby تفضل التعديل حسب فهمي لطلبك Database10.rar

لي الشرف أستاذ ، توالصلنا إن شاء ليس الآن بل عندما ينتهي هذا الموضوع هنا. بانتظار اختبار النسخة الأخيرة وخصوصا لملاحظتك الأخيرة.

يعمل بشكل ممتاز . تأكد يا اخي الكريم ان الملف ليس محظور حتى يعمل بالشكل المطلوب. بعد تحميل الملف اذهب لخصائص الملف ثم اعمل check على unblock .

هذا الملف يعمل لدي بشكل جيد .. 🙂

السلام عليكم ورحمة الله وبركاته اعذرني فكنت علي عجالة من امري بالأمس ولم استطع اجراء التجارب الكافية من فضلك جرب النتائج بالمرفق التالي ووافني بالنتائج T3Q-Copy2.accdb

هل هذه الصورة المطلوبة ..... استخدم هذا ..... H: Year(Now()) & "-" & Year(Now())+1 & "-" & Year(Now())+2

سلمت يداك استاذي @kanory تم التجربة بعدة مرفقات بنجاح مرفق صورة

جزاك الله كل خير اخي الكريم الكود شغال تمام جعله الله في ميزان حساناتك شكرا جزيلا

توضيح اكثر 9.35E+1=93.5 9.35E+2=935 9.35E+3=9350 9.35E+5=935000 وهكذا هذا رابط لفيديو بخصوص الموضوع https://youtu.be/vlWqr9RYzyE

سبحان الله اولا : فى هذا الصرح الشامخ تقدم المعلومات مجانا ثانيا : فى هذا المنتدى اهل الجود والكرم سواء كانوا اساتذة علماء واجلاء او خبراء او هواة او طلاب علم ثالثا : انت لا تعلم شئ عن ظروف الناس التى قد تسطيع تقديم المساعدة لك او لغيرك منهم الطاعن فى السن ومنهم المريض الذى قد يمنعه المرض احيانا من التواصل وتقديم يد العون ومنهم المشغول بعمله والذى هو اساس لقمة العيش بالنسبة له ولاولاده واهل بيته و و و و و................... الخ رابعا : معظم المواضيع التي لا يكون فيها رد معناه إما الموضوع صعب وإما ان الشرح مافيه تفصيل وامثلة فأنا مثلا اذا وجدت ان السؤال غير واضح اذهب الى موضوع آخر لكي استفيد من وقتي للأسف ارى بعض الاسئلة وكأن السائل يتمنن علينا بالمعلومة او يتهمنا بالتجاهل له بينما يجب ان يساعدنا بالتفاصيل حتى نساعده بالجواب وخذها قاعده اذا لم يتم الرد على سؤالك خلال يومين ووجدت اكثر من 10 قراءات فيجب عليك اعادة عرض السؤال بطريقة مختلفه وبشرح افضل وبمثال وهذا ما اقعله اذا وضعت سؤال فى المنتدى كما اننى على سبيل المثال والحمد لله تعالى اولا واخيرا على كل حال فى تلك الفترة اعانى من مشكلة عضوية لا تسمح لى بالتواجد والمشاركة كما كنت من قبل واذا دخلت الى المنتدى قد ادخل لاننى اريد شيئا معينا يخدم عملى والذى هو مصدر دخلى الاول والاخير و الوحيد واكون مضطرا للدخول وللعلم علمى لا علافة له بالبرمجة واحاول جاهدا فى تلك الدقائق القليلة تقديم المساعدة بقدر الامكان بالقاء نظرة سريعة على التساؤلات والتى احسها بسيطة ولن تستغرق منى وقت وجهد تظرا لحالتى الصحية اولا ولضيق وقتى ثانيا لا ابخل فى المشاركة وتقديم العون وعلى العموم جزاكم الله خيرا على وصفكم ونعتكم لرواد المنتدى والعرب جميعا بتلك الصفات الغير حميده ولكن بالاصالة عن نفسي وبالنيابة عن اخوانى رواد المنتدى العرب نسامح لوجه الله ونتصدق بأعراضنا لله تعالى لان اخلاقنا لا تسمح بغير ذلك وان وجدنا لك مسألة نسطيع المساعدة وتقديم يد العون فيها لن نبخل ولن نتردد ولن نقابل اسائتكم بمثلها لاننا لا نريد منكم او من غيركم جزاء او شكرا الكل هنا وانا اقلهم نبتغى وجه الله تعالى فقط ان اردتم التواجد بيننا اهلا بكم وان لم يكن لكم ما شئتم ملاحظة راجع ردود الاساتذة والخبراء تجد ان الاجابات لا تقتصر على قدر السؤال ولكن تقدم باستفاضة وبكرم وسخاء تم اغلاق الموضوع منعا لكثرة الكلام والقيل والقال .... ولكن رجاء لا تسئ الى اناس لا يستحقون ذلك