شكرا اخي على الرد
عندما قمت بتطبيق الملف المرسل اليك يطلع خطاء في module2
Sub test()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Sheets("????? ????????").Range("A5:M10000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Q1:S2"), CopyToRange:=Range("A5:M5"), Unique:=False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Range("a5").Select
End Sub
ملاحظة /لماذا الملف ثقيل عند الاستخدام هل فيه طريقة لجعل الملف سريع بالرغم ان الملف لسى مرحل فيه الا القليل من البيانات للتجربه فقط