فیلتر بر اساس آیتم خاص

[telesate]

با سلام خدمت دوستان در مثال زیر اگه بخواهیم فیلتری که بر حسب نام میباشد بر حسب شماره شناسنامه انجام دهیم چه کدی را باید در فرم تغییر بدهیم ممنون میشوم اگه منو راهنمایی بفرمایید

[ali.b]

If TextBox1 <> "" Then ActiveSheet.Range("b2").AutoFilter _
field:=1, _
Criteria1:="*" & TextBox1 & "*"


End If
End With

عین همین شرط رو برای رنجی که شماره شماسنامه هست بنویس