المساعدة فى ترجيل كود بشرطين

[moooss1]

بسم الله الرحمن الرحيم 

السلام عليكم

اريد المساعدة فى ترحيل هذا الكود 

اريد ترحيل الموظفين الذين على الشركة وايضا على راس العمل فى صفحة الشركة

والموظفين الذين على المكتب وايضا على راس العمل فى صفحة المكتب

واريد الموظفن الذين تم انهاء خدماتهم فى صفهم 

والموظفين الذي استقالو فى صفحة 

والموظفين الذين فى اجازة فى صفحة

بيانات الموظفين نو.rar

[سليم حاصبيا]

جرب هذا الملف

والكود مرفق

Sub Trhil_Salim()
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
Sheets(i).Range("a5:ap200").ClearContents
     Sheets("الملف الاساسي").Range("A5:AP200").AdvancedFilter Action:=xlFilterCopy _
        , CriteriaRange:=Sheets(i).Range("k1:m2"), CopyToRange:=Sheets(i).Range("A5"), _
        Unique:=False
        Next
        Application.ScreenUpdating = True
End Sub

 

بيانات الموظفين نو SAlim.rar