اصلاح کد فیلتر

[ali.b]

سلام دوستان عزیز
ی کد هست که بر اساس فیلتر کردن گزارش مورد نظر رو انجام میده
اما مشکلی که هست اینه که شیت قبلی رو رد حالت فیلتر نمیزاره و فیلتر رو بر میداره. مثلا میخوایم عدد 1 در ستون e هر جا 1 بود انتقال بده و ردیف دوم حالت فیلتر رو داشته باشه
چون برای ی کار دیگه نیاز به قرار داشتن فیلتر هست.
اگه کمکی برسونید ممنونم

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[khakzad]

سلام
لطفا داده های بهتر تو فایل بذارید
خیلی واضح نیست که کد چکار می کنه و شما چی می خواید
توضیح بهتربدید که بشه سریع تر کد رو متوجه شد!

[ali.b]

با این کد هر جا که در ستون e عدد 1 باشه کل اون ردیف رو به شیت 2 انتقال میده

اما میخوام حالت فیلتر که در ردیف 2 هست اون حالت از بین نره
چون این کد ردیف 2 رو به حالت فیلتر میبره و عدد 1 رو در نظر میگره و بعد از فیلتر خارج میکنه هر کاری کردم نشد
میخوام ایکون ها فیلتر باشه و پاک نشه

[Javid Mokhtari]

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

End With

 Sheet1.Select
      Range("a2:g2").AutoFilter 5, Sheet1.Range("M1")
Application.ScreenUpdating = True 

خودتون امتحان کنید ببینید جواب میده

[ali.b]

این کد رو قبلا درست کردم هدم این بود که بدون اینکه نیاز باشه بنویسم شیت 2 اون رو اصلاح کنه چون از این کد برای 5 شیت استفاده میشه و وجبورم 6 بار بنویسم فقط به خاطر خط اخر
دنبال این هستم که زمانی که فیلتر رو بر میداره ایکون رو بر نداره و فقط به حالت Select all نگه داره

[ali.b]

Sub nash()Dim a
a = Range("a1")
    Application.ScreenUpdating = False
With Range("e3:e" & Cells(Rows.Count, "e").End(xlUp).Row)
If Range("e3") = Sheet1.Range("M1") Then
 .AutoFilter 5, Sheet1.Range("M1")
    .Offset(0).EntireRow.Copy
      Sheets("sheet2").Select
    Range("A2").Select
    Selection.Insert Shift:=xlDown
    ActiveSheet.Paste
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
    Range("a2") = a
    .AutoFilter 5
     ActiveSheet.Cells.EntireRow.Hidden = False
     Range("a2").Select
      End If
End With
Sheet2.Select
Application.ScreenUpdating = True
End Sub

با تغییر دادن اینها حل شد

[ali.b]

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

=subtotal(1,2) 

در اینجا عدد 1 نوع جمع ( مثلا اگه حروف رو میخواد باید از لیست counta رو بگیره)
2 هم رنج مورد نظر رو باید وارد کنی

[Javid Mokhtari]

پس حل شد...؟