Sub SRCH()
Range("input").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"ORDER"), CopyToRange:=Range("output"), Unique:=False
End Sub
المطلوب تعديل الكود ليقوم بتصفية متقدمة لنطاق الانبوت بالاعتماد على نطاق الاوردر باكثر من خلية ليخرج كل العناصر الموجودة فى الاوردر لتخرج فى الاوتبوت