فیلتر کردن با دبل کلیک

[سهیل نصرت آبادی1]

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

[M_ExceL]

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

سلام
داخل رویداد BeforeDoubleClick شیت مورد نظر این کد را پیست کنید

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim rgTable As Range
    Dim rgData As Range
    Dim xColumn As Integer
    On Error Resume Next
    Application.ScreenUpdating = False
    Set rgTable = Range("mydata")
    With rgTable
        Set rgData = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count)
        If Not Application.Intersect(ActiveCell, rgData.Cells) Is Nothing Then
            xColumn = ActiveCell.Column - .Column + 1
            If ActiveSheet.AutoFilterMode = False Then
                .AutoFilter
            End If
            If ActiveSheet.AutoFilter.Filters(xColumn).On = True Then
                .AutoFilter Field:=xColumn
            Else
                .AutoFilter Field:=xColumn, Criteria1:=ActiveCell.Value
            End If
        End If
    End With
    Set rgData = Nothing
    Set rgTable = Nothing
    Application.ScreenUpdating = True
End Sub

به جای mydata رنج ستون مورد نظر را قرار بدید.
موفق باشید ...

[سهیل نصرت آبادی1]

سلام استاد محترم میشه خودتون این کدو درون فایل قرار بدبد ممنون
مثلا رو نام خانوادگی 2بار دبل کلیک کردم فیلتر بشه هرچی با همون نام که هست
سپاس

[M_ExceL]

سلام استاد محترم میشه خودتون این کدو درون فایل قرار بدبد ممنون
مثلا رو نام خانوادگی 2بار دبل کلیک کردم فیلتر بشه هرچی با همون نام که هست
سپاس

سلام
خواهش میکنم
البته بنده استاد نیستم نظر لطف شماست.
بفرمایید :

[سهیل نصرت آبادی1]

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

[M_ExceL]

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

سلام
این مشکل در فایل اولتون هم که بارگذاری کردید وجود داره علتش هم این هست که ستون جدیدی اضافه کردید ولی کدها رو بروز نکردید.
این فایل رو چک کنید :

[سهیل نصرت آبادی1]

واقعا ممنونم بسیار عالی دوست بزرگوار

[سهیل نصرت آبادی1]

سلام دوست عزیز
یه سوال داشتم که چند وقته ذهنمو مشغول کرده
تو این فایل اگر مشاهده کنید زمانی که در قسمت فیلتر به محض اینکه چیزی نوشته بشه خودش اتوماتیک شماره ردیف و میاره و اگر به عنوان مثال 10 تا ردیف داشته باشم و مثلا ردیف 8 رو پاک کنم شماره ردیف ها اتوماتیک بروز رسانی میشه یا گر بین ردیفها سطری و اضاف کنم باز هم اتوماتیک شماره سطرها بروز رسانی میشه که کدش در ستون a2 نوشته شده اما همین کارو با زبان برنامه نویسی میخوام امکانش هست کمک بفرمایید ممنونم