[حل شده] فیلتر با ماکرو

[250xdsr]

با سلام میخوام در محیط vbe یه کد بنویسم که بر اساس یک متغیر که یک حرف الفباست برام فیلتر کنه. بدین منظور کد زیر رو نوشتم

sub z ()
dim n as string
n=inputbox("harf")
sheet1.range("a1:e10").auto filter 2,"n*" 
end sub 

ایراد این کد اینه که به جای فیلتر بر اساس حرف ورودی ، میاد بر اساس حرف n که به عنوان متغیر وارد کردیم فیلتر میکنه. دوستان گرامی کسی نظری داره؟؟

[amir_ts]

با سلام
این کد رو امتحان کنید...

[LEFT]
Sub teat()
Dim n As String
n = InputBox("harf")
Sheet1.Range("A1:D10").AutoFilter Field:=1, Criteria1:=n & "*"
End Sub
[/LEFT]

[250xdsr]

ممنون از پاسختون لطفا فایل پیوست رو ببینید

[amir_ts]

با سلام
برای ذخیره کدها باید فایل رو save as و به صورت Excel Macro- Enable.... ذخیره کنید و بصورت فشرده پیوست کنید.