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

التصفية المتقدمة فى الاكسل



تصفية متقدمة من Sheet1 الى Sheet2
Sheets("Sheet1").Range("A1:D22").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Sheet1").Range("F6:I7"), _
CopyToRange:=Sheets("Sheet2").Range("A1:D1")



اعادة الضبط و التعيين
Sub ClearFilter()
On Error Resume Next
ActiveSheet.ShowAllData
ActiveSheet.Rows.Hidden = False
End Sub