طلب كود أو تعديل للكود المرفق

[أبو العاصم]

Sub SRCH()

Range("input").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _

"ORDER"), CopyToRange:=Range("output"), Unique:=False

End Sub

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

[أبو العاصم]

الرجاء المساعدة قد قمت بإرفاق ملف يوضح المطلوب قدر الاستطاعة بوركتم

H.rar