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

[mooli]

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

[amir_ts]

با سلام
فایل نمونه را ملاحظه کنید و از روی اون الگو برداری کنید.

[LEFT]Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim lr As Integer
lr = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
If Intersect(Target, Range("F1:F10")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
Sheets(2).Activate
 ActiveSheet.Range("A1:D" & lr).AutoFilter Field:=1, Criteria1:=Target.Value
   End Sub



[/LEFT]

[iranweld]

در فایل پیوست با استفاده از Advance fillter میتوانید هر موردی را که سلول H1,H2 مشخص کنید در شیت دوم فیلتر نمایید.

[mooli]

با سلام
فایل نمونه را ملاحظه کنید و از روی اون الگو برداری کنید.

[LEFT]Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim lr As Integer
lr = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
If Intersect(Target, Range("F1:F10")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
Sheets(2).Activate
 ActiveSheet.Range("A1:D" & lr).AutoFilter Field:=1, Criteria1:=Target.Value
   End Sub



[/LEFT]

آره درسته همینه عاشقتم فقط یه چیز دیگه این فقط ردیف اولو فیلتر میکنه یعنی میخام 10 تا ردیف داشته باشم خب
بعدش تو شیت 1 مثلاً اولیو زدم تو شیت 2 اولیش فیلتر بشه
میدونی یعنی این که مثلاً اینایی که مشهدی هستن تو مرحله اول که زدم مشهدی ها اونا فیلتر شن
ستون بعد مثلاً مدارک تحصیلیشونه تا اینجا مشهدیا فیلتر شدن حالا رو دیپلمه ها بزنم مشهدی های دیپلمه رو فیلتر کنه متوجه شدید؟!!و همینجوری تا 10 مرحله
خواهش میکنم اینو واسم درست کن... من تو مایکروهاش رفتم چیزی سر در نیاوردم

[amir_ts]

با سلام
این فایل نمونه است
ابتدا شهر رو در شیت 1 انتخاب کنید بعد با کلیک بر روی تحصیلات شیت data فیلتر انجام میشه.شما باید کد ها رو با تنظیم آدرس اطلاعات خودتون در شیت مربوطه قرار بدید.اگر آشنایی با کد نویسی ندارید باید فایل نمونه خودتون رو با داده فرضی قرار بدید تا سریعتر به هدفتون برسید.
ید.

[rjfri]

با سپاس از دوست و استاد amir_ts
دو سوال
اول اینکه در صورت ایجاد table و درج اطلاعات هم میتوان با فیلتر دو ستون یا ستونهای مورد نیاز به همین نتیجه رسید
و دوم اینکه آیا در این سایت آموزش کد نویسی نیز وجود دارد؟ مطالب آموزشی یا تالار و انجمن های آموزشی

[amir_ts]

با سپاس از دوست و استاد amir_ts
دو سوال
اول اینکه در صورت ایجاد table و درج اطلاعات هم میتوان با فیلتر دو ستون یا ستونهای مورد نیاز به همین نتیجه رسید
و دوم اینکه آیا در این سایت آموزش کد نویسی نیز وجود دارد؟ مطالب آموزشی یا تالار و انجمن های آموزشی

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

[LEFT]
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Intersect(Target, Range("F1:F10")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
Sheets(2).Activate
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:=Target.Value
End Sub


[/LEFT]

تو انجمن در مورد کد نویسی بصورت موردی توضیح داده شده ،علاوه بر اون از محصولات فروشگاه هم میتونید استفاده کنید.