[حل شده] فیلتر کردن داده با استفاده از کد vba

[امین نوروزی]

با سلام
من برنامه زیر رو برای فیلتر کردن داده جدولی نوشتم
ولی میخوام تعداد بیشتری برام فیلتر کنه (در اینجا فقط Range("b2")
باید از چه دستوری استفاده کنم؟؟

Private Sub search_Click()
 ActiveSheet.ListObjects("Table1").Range.Autofilter field:=2, Criteria1:=Range("b2")
End Sub

سپاس فراوان از کمک شما

[Amir Ghasemiyan]

سلام دوست عزيز
كافيه يك فيلتر ديگه بعد از فيلتر اول اعمال كنيد. مثلا كد شما با يك فيلتر بيشتر كه روي ستون پنجم اعمال ميشه به اين صورت تبديل ميشه

Private Sub search_Click()
 ActiveSheet.ListObjects("Table1").Range.Autofilter field:=2, Criteria1:=Range("b2")
 ActiveSheet.ListObjects("Table1").Range.Autofilter field:=5, Criteria1:=Range("c2")
End Sub

[امین نوروزی]

ممنون
ولی نکته اینه که میخوام روی همون ستون دو یا چند کلمه رو فیلتر کنم
مثل فیلتر خود اکسل

[Amir Ghasemiyan]

بايد بصورت يك آرايه بهش بديم. به اين صورت:

ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=2, Criteria1:= _
            Array(Range("E1").Text, Range("E2").Text, Range("E3").Text), Operator:=xlFilterValues

[امین نوروزی]

سپاس فراوان از کمکتون