كود برمجى او ماكرو لإيجاد آخر حركة انقطاع للموظفين تاركى العمل

[اشرف عبدالله الفقى]

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

آخر حركة انقطاع من مايو حتى اكتوبر 2021.xls

[اشرف عبدالله الفقى]

للرفع بعد اذن السادة الأساتذة الأفاضل برجاء من سيادتكم مساعدتى فى حل هذه المشكلة للأهمية فى مجال عملى .. وجزاكم الله خيرا

[أبوعيد]

سيتم نقل المحذوفات الي شيت جديد

للتاكد منها

تفضل جرب هذا

آخر حركة معدل.xls

[حسونة حسين]

السلام عليكم ورحمة الله وبركاته 

جرب هذا التعديل اخى الكريم

Sub Delete_Old_Date()
    Dim m As Long, r As Long, WS As Worksheet
    Set WS = ThisWorkbook.Worksheets("آخر حركة انقطاع ")
    Application.ScreenUpdating = False
        m = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row
        For r = 2 To m
            If Application.CountIf(WS.Range("A" & r & ":A" & m), WS.Cells(r, 1).Value) > 1 Then
                WS.Rows(r).Delete
                r = r - 1
            End If
        Next r
    Application.ScreenUpdating = True
End Sub

 

[ashraf_abdalla]

وعليكم السلام عليكم ورحمة الله وبركاته 

الف شكر يا استاذ/حسونه

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

تقبل تحياتى

[حسونة حسين]

الشكر لله والحمد لله الذي بنعمته تتم الصالحات