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



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






موضوع مغلق


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





look/images/icons/i1.gif كود برمجى لأيجاد آخر حركة تاريخ انقطاع عن العمل
  20-10-2021 06:05 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10516
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36718
الاعجاب : 170
السلام عليكم تحية الإسلام نبدأ بها أي موضوع
جرب الكود التالي عله يفي بالغرض إن شاء الله
CODE
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

أثارت هذه المشاركة إعجاب: ashraf_hertlion، ali mohamed ali،



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




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




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




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




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

CODE

 
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

أثارت هذه المشاركة إعجاب: YasserKhalil، ashraf_hertlion،



look/images/icons/i1.gif كود برمجى لأيجاد آخر حركة تاريخ انقطاع عن العمل
  23-10-2021 01:07 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 09-09-2017
رقم العضوية : 439
المشاركات : 59
الدولة : اليمن
الجنس :
تاريخ الميلاد : 19-6-1971
الدعوات : 1
قوة السمعة : 326
الاعجاب : 2
سيتم نقل المحذوفات الي شيت جديد للتاكد منها
تفضل جرب المرفق
 
 
  آخر حركة معدل.xls   تحميل xls مرات التحميل :(3)
الحجم :(1281.536) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، ashraf_hertlion،



look/images/icons/i1.gif كود برمجى لأيجاد آخر حركة تاريخ انقطاع عن العمل
  26-10-2021 12:24 صباحاً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 257
الجنس :
تاريخ الميلاد : 7-11-1971
قوة السمعة : 329
الاعجاب : 0
الف مليون شكر لحضراتكم جميعاً يا استاذ/ حسونه حضرتك والاستاذ / ابو عيد
هذا هو المطلوب بالفعل واسف لعدم ردى على الموضوع حال مشاركة حضراتكم لأنقطاع النت لدى
تقبلوا تحياتى ولا حرمنا الله من امثالكم فى هذا المنتدى الكبير وجعل الله هذا العمل فى ميزان حسناتكم الى يوم القيامه

أثارت هذه المشاركة إعجاب: YasserKhalil،



look/images/icons/i1.gif كود برمجى لأيجاد آخر حركة تاريخ انقطاع عن العمل
  26-10-2021 12:41 صباحاً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 801
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3939
الاعجاب : 22
الحمد لله الذي بنعمته تتم الصالحات
الشكر الكبير للاستاذ ياسر خليل فهو صاحب الكود

أثارت هذه المشاركة إعجاب: YasserKhalil،






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








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

الساعة الآن 05:19 PM.