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

[telesate]

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

[ali.b]

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


        End If
    End With

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