أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على ali mohamed ali-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة منع ادخال البيانات بعدة شروط اكسيل اسئله واجابات


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





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

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


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


20-10-2021 12:06 صباحا
ashraf_hertlion
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 260
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 14
يتابعونه : 1
قوة السمعة : 329
 offline 

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



أفضل إجابة مقدمة من hassona229 وهي:
السلام عليكم ورحمة الله وبركاته 
جرب هذا التعديل اخى الكريم


 
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
عرض الإجابة




20-10-2021 06:05 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif كود برمجى لأيجاد آخر حركة تاريخ انقطاع عن العمل
السلام عليكم تحية الإسلام نبدأ بها أي موضوع
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim s As String, m As Long, r As Long
    Application.ScreenUpdating = False
        s = Empty: m = Cells(Rows.Count, "A").End(xlUp).Row
        For r = m To 2 Step -1
            If Application.CountIf(Range("A" & m & ":A" & r), Cells(r, 1).Value) <> 1 Then
                If Cells(r, 4).Value = "انقطاع" Or Cells(r, 4).Value = "بلوغ المعاش" Then
                    Rows(r).Delete
                End If
            End If
        Next r
    Application.ScreenUpdating = True
End Sub

20-10-2021 07:31 صباحا
مشاهدة مشاركة منفردة [2]
ashraf_hertlion
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 260
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 14
يتابعونه : 1
قوة السمعة : 329
 offline 
look/images/icons/i1.gif كود برمجى لأيجاد آخر حركة تاريخ انقطاع عن العمل
السلام عليكم استاذنا الكبير ياسر خليل وكل عام وحضرتك بخير بمناسبة ذكرى المولد النبوى الشريف اشكرك كثيرا على سرعة الإستجابة وهذا ليس بجديد على حضرتك
فى المالف المرفق به عدد متكرر لتواريخ ترك العمل مع مختلف الأسباب لكل موظف فأنا اردت ان اشير الى بعض الأمثله وقمت بالتظليل عليها كمثال وليس حالات بعينها انا اردت أن ارتب تواريخ الإنقطاع من الأقدم الى الأحدث ثم احذف كل الحركات المتكررة لكل موظف ما عدا الحركة للتاريخ الأحدث الأخير له وليس لحالتين فقط ( الانقطاع وبلوغ سن المعاش ) لعلى قد اوضحت لحضرتك الصورة .
وشكرا لحضرتك مرة آخرى .

20-10-2021 07:35 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif كود برمجى لأيجاد آخر حركة تاريخ انقطاع عن العمل
أخي الكريم أشرف
أعتذر عن المشاركة في الموضوع نظراً لظروف خاصة وأرجو من الأعضاء التواصل في الموضوع ومحاولة المساعدة. وفقكم الله

20-10-2021 08:03 صباحا
مشاهدة مشاركة منفردة [4]
ashraf_hertlion
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 260
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 14
يتابعونه : 1
قوة السمعة : 329
 offline 
look/images/icons/i1.gif كود برمجى لأيجاد آخر حركة تاريخ انقطاع عن العمل
شكراً استاذنا الكريم ياسر خليل  لذوق حضرتك وانا مقدر مدى انشغالك لأعمالك وظروفك الخاصة ... تقبل تحياتى

22-10-2021 08:42 صباحا
مشاهدة مشاركة منفردة [5]
ashraf_hertlion
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 260
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 14
يتابعونه : 1
قوة السمعة : 329
 offline 
look/images/icons/i1.gif كود برمجى لأيجاد آخر حركة تاريخ انقطاع عن العمل
للرفع بعد اذن السادة الأساتذة الأفاضل برجاء من سيادتكم مساعدتى فى حل هذه المشكلة للأهمية فى مجال عملى .. وجزاكم الله خيرا

23-10-2021 10:17 صباحا
مشاهدة مشاركة منفردة [6]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif كود برمجى لأيجاد آخر حركة تاريخ انقطاع عن العمل
السلام عليكم ورحمة الله وبركاته 
جرب هذا التعديل اخى الكريم


 
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


الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
لأيجاد ، برمجى ، العمل ، تاريخ ، انقطاع ، حركة ،


 










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

الساعة الآن 01:40 صباحا