الازدواجية في العمل

[lionm]

السادة الافاضل

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

مطلوب مني عمل برنامج اكسل

المطلوب فيه تعبئة بيانات الموظفين لأكثر من جهة وكل جهة عمل في شيت

المطلوب معرفة الازدواجية في العمل عن طريق الرقم الوطني

وترحيل الارقام المتكررة في شيت خاص بهم

ارجو المساعدة ولكم جزيل الشكر

[رجب جاويش]

أخى الفاضل

مرحبا بك عضوا جديدا بين اخوانك

برجاء ارفاق ملف به مثال توضح فيه ما تريد

وسوف تجد الكثير يقدمون المساعدة

[lionm]

أخى الفاضل

مرحبا بك عضوا جديدا بين اخوانك

برجاء ارفاق ملف به مثال توضح فيه ما تريد

وسوف تجد الكثير يقدمون المساعدة

الملف به عدة خيارات من بينها الرقم الوطني وهوالمراد البحث فيه في كل الشيتات فاذا وجد تكرار يرحل الى شيت خاص بالتركرار فيه بيانات الموظف صاحب الرقم المكرر

[جمال عبد السميع]

أرسل ماتريد عملة أخى بشكل مختصر حتى تسهل على مايريد مساعدتك

بالأضافة أن تصورك سيكون أدق مما نقوم بوضعه نحن

لأنه سيكون أقرب لماتريدة أنت

[lionm]

اخوتي الافاضل اليكم الملف

مع شكري لكم

ازدواجية.rar

[جمال عبد السميع]

سؤال أخى هل تكرار الرقم الوطنى سيترتب علية تكرار باقى الخلايا كالأسم وباقى الخلايا أم ماذا ؟ لأن المرفق ليس به أية بيانات

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

[رجب جاويش]

أخى الفاضل

جرب هذا الكود

Sub ragab()
Dim sh As Worksheet
Dim cl As Range, Rng As Range
Dim LR As Integer, i As Integer, T As Integer
Set sh = Sheets("فرز التكرار")
'==================================================================
sh.Range("A5:J1000").ClearContents
For T = 1 To 2
    For i = 2 To 3
        If T = 2 Then i = 3
        Set Rng = Sheets(i).Range("J5:J" & Sheets(i).[J1000].End(xlUp).Row)
        For Each cl In Sheets(T).Range("J5:J" & Sheets(T).[J1000].End(xlUp).Row)
            If Application.WorksheetFunction.CountIf(Rng, cl) >= 1 Then
                LR = sh.Cells(Rows.Count, 2).End(xlUp).Row + 1
                cl.Offset(0, -9).Resize(1, 10).Copy sh.Range("A" & LR)
            End If
        Next cl
    Next i
Next T
End Sub

ازدواجية 1.rar

[lionm]

اخي الفاضل شكرا على اهتمامك واسف على التأخير لظروفي الشخصية

المطلوب جزاك الله خيرا أن يتم ترحيل المكرر ببيانته كاملة مع الجهات التي وجد بها التكرار

ولكم جزيل الشكر