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

اليك حل اخر بعد اظافة معادلة الاخ محمد صالح Sub Test2() Set d = CreateObject("Scripting.Dictionary") k = Range("b2:D" & [b65000].End(xlUp).Row) Dim Rng(): ReDim Rng(1 To UBound(k), 1 To UBound(k, 2)) For i = LBound(k) To UBound(k) Réf = k(i, 1) & "|" & k(i, 2) & "|" & k(i, 3) If d.exists(Réf) Then lig = d(Réf) Else d(Réf) = d.Count + 5: lig = d.Count: Rng(lig, 1) = k(i, 1): Rng(lig, 2) = k(i, 2): Rng(lig, 3) = k(i, 3) End If Next i [j2].Resize(d.Count, UBound(Rng, 2)) = Rng End Sub نقل الاسماء بدون تكرار بشروط.xlsb

وعليكم السلام Sub Test() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Rows("1:2").RowHeight = 30 ws.Rows("3:" & Rows.Count).RowHeight = 20 Next ws End Sub

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

الكود يعمل على كل الصفحات بالمصنف

استكمالا لجهود الزملاء الأعزاء إذا كان لديك أوفيس 2021 أو 365 يمكنك وضع هذه المعادلة في I2 =UNIQUE($B$2:$D$16) أو يمكنك تعديل الإجراء المقدم من أخينا @محي الدين ابو البشر إلى Sub test() Dim a, T As String, i& a = Sheets("aaa").Cells(1).CurrentRegion With CreateObject("scripting.dictionary") For i = 2 To UBound(a) T = a(i, 2) & a(i, 3) & a(i, 4) If Not .exists(T) Then .Add T, Array(.Count + 1, a(i, 2), a(i, 3), a(i, 4)) End If Next i Sheets("aaa").Cells(2, 9).Resize(.Count, UBound(a, 2)) = Application.Index(.items, 0, 0) End With End Sub ولوضع كود لكل مادة في العمود الأول يمكنك وضع هذه المعادلة في الخلية A2 مع سحبها لأسفل =IFERROR(INDEX(M$2:M$8,MATCH(B2&C2&D2,J$2:J$8&K$2:K$8&L$2:L$8,0))-1+COUNTIFS(B$2:B2,B2,C$2:C2,C2,D$2:D2,D2),"") بالتوفيق للجميع

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

تنسيق - 2.xlsm

طيب ... بارك الله فيك :::::: انظر الى الجدول tbl_Teachers تم ادراج البيانات المطلوبة مثل الوظيفة وفي جدول الحضور heures_effectuées_rapport حسب بياناتك اعتمدنا على الاسم تدوين اسم الموظف والتاريخ ( هل تريد حساب تأخر للموظف مستقبلا ام لا ...... ) لاني تركتها حسب التاريخ فقط === وهنا الخلاصة ( في الاستعلام ) تم استخراج اسم الموظف وتاريخ الحضور والوظيفة بدون تسجيلها في جدول الحضور وبهذا لم نكرر الوظيفة في جدول الحضور مرفق المثال ::: BASEM (2).accdb

السلام عليكم - حل متواضع date.xlsx

الحمد الله اتمنى لحضرتك التوفيق