السلام عليكم
في المرفق تم انشاء استعلام في كل صفحة
يعمل تلقائيا بمجرد الدخول الى الصفحة
يوجد الصفوف 1و2 و 9 تم انشاءها لتكون مرجع للإستعلام يمكنك اخفائها
Sub F_Nagh()
On Error Resume Next
Application.ScreenUpdating = False
Range("input").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"order1"), CopyToRange:=Range("output1"), Unique:=False
End Sub
Sub F_Rasep()
On Error Resume Next
Application.ScreenUpdating = False
Range("input").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"order2"), CopyToRange:=Range("output2"), Unique:=False
End Sub
Module16
آمل ان يكون هذا المطلوب
مع التحية
Copy_of___________________________74.rar