[حل شده] جستجو در یک شیت

[ehsanshahbeig]

سلام. خسته نباشید.
من یه شیت درست کردم و در اون جدول درست کردم

تو اون جدول بر اساس تاریخ های مختلف اطلاعات مختلفی گذاشتم

حالا تو همون شیت من یه قسمت درست کردم به نام جستجو
حالا میخوام هر کی از یه تاریخی تا یه تاریخ دیگه رو تو اون قسمت ها جستجو می کنه تو اون جدوله فقط اون تاریخ ها رو نشون بده.

فایل هم ضمیمه کردم

[ehsanshahbeig]

کسی کمکی نمیکنه؟

[mokaram]

از کد زیر استفاده کنید

Range("b1").AutoFilter Field:=2, _
        Criteria1:=">=" & Range("m11").Value, Operator:=xlAnd, Criteria2:="<=" & Range("m13").Value 

نکته: حتما دکمه ای را در سطر اول بگذارید تا با زدن اون اطلاعات به حالت بدون فیلتر دربیاد.

[ehsanshahbeig]

از کد زیر استفاده کنید

Range("b1").AutoFilter Field:=2, _
        Criteria1:=">=" & Range("m11").Value, Operator:=xlAnd, Criteria2:="<=" & Range("m13").Value 

نکته: حتما دکمه ای را در سطر اول بگذارید تا با زدن اون اطلاعات به حالت بدون فیلتر دربیاد.

ممنون. ولی من متوجه نشدم این کد رو باید کجا قرار بدم. تو صفحه ی خود شیت؟
اگر تو صفحه خود شیت با چه ایونتی باید بزارم؟

بعد دکمه ای که گفتید سطر اول بزارم، منظورتون همون cammand button بود؟
اگر بود کدی چیزی نمیخواد که اینا رو بدون فیلتر کنه؟

[mokaram]

ممنون. ولی من متوجه نشدم این کد رو باید کجا قرار بدم. تو صفحه ی خود شیت؟
اگر تو صفحه خود شیت با چه ایونتی باید بزارم؟

می تونید به دکمه جستجو ای که در شیت خودتون ایجاد کردید. اختصاص بدید.

بعد دکمه ای که گفتید سطر اول بزارم، منظورتون همون cammand button بود؟
اگر بود کدی چیزی نمیخواد که اینا رو بدون فیلتر کنه؟

مثل همون دکمه جستجو که تعبیه کردید ( می تونه یه shape باشه )

[ehsanshahbeig]

می تونید به دکمه جستجو ای که در شیت خودتون ایجاد کردید. اختصاص بدید.




مثل همون دکمه جستجو که تعبیه کردید ( می تونه یه shape باشه )

اوکی. فقط نمیشه یه کد باشه که فقط تا ستون d رو فیلتر کنه. چون اینجوری بقیه رو نشون نمیده



برای برگشت به حالت اول که گفتید کدش رو چی بزنم که به حالت اول برگرده؟

[mokaram]

اوکی. فقط نمیشه یه کد باشه که فقط تا ستون d رو فیلتر کنه. چون اینجوری بقیه رو نشون نمیده

فکر نمی کنم بشه

برای برگشت به حالت اول که گفتید کدش رو چی بزنم که به حالت اول برگرده؟

می تونید یه ماکرو ضبط کنید و اطلاعات را از حالت فیلتر دربیارید بعد همونا به عنوان کد " برگشت از فیلتر " استفاده کنید چیزی شبیه به کد زیر :

 ActiveSheet.Range("$A$1:$D$550").AutoFilter Field:=2 

[ehsanshahbeig]

ممنون بسیار مفید و کاربردی بود

[mokaram]

اگر پاسخ سوالتون را گرفتید ، تیک حل شده را بزنید.