moooss1 قام بنشر ديسمبر 10, 2016 مشاركة قام بنشر ديسمبر 10, 2016 بسم الله الرحمن الرحيم السلام عليكم اريد المساعدة فى ترحيل هذا الكود اريد ترحيل الموظفين الذين على الشركة وايضا على راس العمل فى صفحة الشركة والموظفين الذين على المكتب وايضا على راس العمل فى صفحة المكتب واريد الموظفن الذين تم انهاء خدماتهم فى صفهم والموظفين الذي استقالو فى صفحة والموظفين الذين فى اجازة فى صفحة بيانات الموظفين نو.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 10, 2016 مشاركة قام بنشر ديسمبر 10, 2016 جرب هذا الملف والكود مرفق 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان