السلام عليكم و رحمة الله وبركاته
كل التحية و التقدير للأستاذ الفاضل الخالدي
ولا انسى الدالة الرائعة التي ساعدني بها سابقا- ارقام اللوحات
و التحية للأخ رجب
حل آخر لإثراء الموضوع
تم تسمية النطاقات
input =Sheet1!$A$1:$L$21
Order =Sheet2!$I$1:$K$2
Output =Sheet2!$A$1:$F$25
و وضع الكود التالي
Range("input").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Order"), CopyToRange:=Range("Output"), Unique:=False
يمكنك ترك اي شرط فارغ تظهر كل بياناته
اضغط Start
الترحيل بناء على ثلاث شروط.rar