نجوم المشاركات

السلام عليكم المرفق بالمعادلات وبه كود يأتي فقط بالموردين والخامات وقد أضفت تنسيق شرطي لتلك الأعمدة الثلاثة الخاصة بالموردين والخامات تجعل البيانات المكررة ضعيفة اللون وأضفت أيضا للتاريخ (السطر 4) معادلة لحساب أول وآخر نصف الشهر أوتوماتيكيا فقد كان هناك بعض أخطاء في النصف الثاني من الشهور التي ليست 30 يوم (1،2،3،5،7،8،10،12) تفضل المرفق إضغط الزر الأصفر (جلب أسماء الموردين والمواد) suppliers required_2Tareq.rar

وهنا اضفنا كوود التنسيق Sub Tanseiq() Range("A7:I999").FormatConditions.Delete Range("A7:I999").FormatConditions.Add Type:=xlExpression, Formula1:= _ "=COUNTIF($E$6:$E$9999;$E7)>1" Selection.FormatConditions(1).Interior.ColorIndex = 3 End Sub Unsafe Acts.rar

وعليكم السلام و رحمة الله وبركاته اخي الكريم اولا: قبل عمل طلبك ورقة Unsafe Acts حددنا نطاق البيانات وسميناه Unsafe_Data_01 ثم اختصرنا الكوود الى سطرين فقط Range("Unsafe_Data_01").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "A1:I4"), CopyToRange:=Range("A6:i9999"), Unique:=False والآن يمكنك الإستغناء عن بقية الأوراق البحث الى عاملها فقط غير البيانات في E2 - E3 - E4 واضغط زر البحث تطلع النتائج الي تبغاها جرب المرفق و اخبرني بالنتيجة Unsafe Acts.rar