نشان ندادن ردیف های بیشتر از 1000 ردیف در فیلتر کردن

[habib100]

با سلام و وقت بخیر خدمت همه دوستان
مشکلی در فایل اکسل دارم که وقتی یک ستونی را فیلتر میکنم داده های ردیف بیشتر از 10000 را نشامن نمی دهد
فیلتر را هم برای کل شیت برداشتم و دوبار ه گذاشتم برای یک ستون برداشتم و دو باره گذاشتم
....
ولی جواب نداد
فکر کنم آفیس نصبی2017 باشد(می گویند جز محدویت های اکسل در این ورژن هست ولی من فایل دیگری دارم بیشاز 10000 دارد و این مشکل را ندارد)
ممنونم از راهنماییتان

[habib100]

با سلام و وقت بخیر خدمت همه دوستان
مشکلی در فایل اکسل دارم که وقتی یک ستونی را فیلتر میکنم داده های ردیف بیشتر از 10000 را نشامن نمی دهد
فیلتر را هم برای کل شیت برداشتم و دوبار ه گذاشتم برای یک ستون برداشتم و دو باره گذاشتم
....
ولی جواب نداد
فکر کنم آفیس نصبی2017 باشد(می گویند جز محدویت های اکسل در این ورژن هست ولی من فایل دیگری دارم بیشاز 10000 دارد و این مشکل را ندارد)
ممنونم از راهنماییتان

قسمتی از فایل را می فرستم
ممنونم

[حسام بحرانی]

با سلام و وقت بخیر خدمت همه دوستان
مشکلی در فایل اکسل دارم که وقتی یک ستونی را فیلتر میکنم داده های ردیف بیشتر از 10000 را نشامن نمی دهد
فیلتر را هم برای کل شیت برداشتم و دوبار ه گذاشتم برای یک ستون برداشتم و دو باره گذاشتم
....
ولی جواب نداد
فکر کنم آفیس نصبی2017 باشد(می گویند جز محدویت های اکسل در این ورژن هست ولی من فایل دیگری دارم بیشاز 10000 دارد و این مشکل را ندارد)
ممنونم از راهنماییتان

با درود

لطفاً به لینک زیر مراجعه کنید:
نمایش سطر بیشتر از 10000 در فیلتر گیری

موفق باشید.

[habib100]

با درود

لطفاً به لینک زیر مراجعه کنید:
نمایش سطر بیشتر از 10000 در فیلتر گیری

موفق باشید.

سلام
ممنونم. ولی نمیخواهم دیتاها را در جند ستون دسته بندی کنم و با آین راه حل نشد نتوانستم کد vba را رویش اعمال کنم
راه حل دیگری ندارد؟
مثل نوشتن کد VBA برایش بدون اینکه چهارچوبش بهم خورد؟؟
ممنون

[habib100]

قسمتی از فایل را می فرستم
ممنونم

سلام وقت بخیر دوستان
کسی راه حلی برای این موضوع داره؟ با vba یا ....
ممنونم

[habib100]

سلام وقت بخیر دوستان
کسی راه حلی برای این موضوع داره؟ با vba یا ....
ممنونم

سلام وقت بخیر
کد vba را وارد میکنم ارور میده
میخام ستون C و ستون I فیلتر شوند
ممنونم

Sub allee_kiha_AF()
Const pmpt As String = "Show data for:"
Const ttl As String = "Criteria"
Const dflt As String = "<>2"

Dim c As Range, t As Range, w As String

w = Trim(InputBox(pmpt, ttl, dflt))
If Len(w) = 0 Then Exit Sub

With ThisWorkbook.Sheets("Rotation")
.Select
If .FilterMode Then .ShowAllData
Set t = .Range("A2:I2").CurrentRegion
Set c = .Range("A2:I2")
c.Value = Application.Transpose(Array("Row", w))
t.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=c, Unique:=False
c.ClearContents
End With
End Sub