ایجاد ماکرور جهت سورت (مرتب کردن) و حذف فیلتر

[maziardm]

سلام و روز خوش

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

[ahmad.khanifar]

با سلام
در فایل پیوست هر دو مورد (دکمه سورت و حذف فیلتر ) اضافه شد.
فایل را از حالت زیپ خارج کرده و فایل اکسل (ماکرو) را اجرا کنید.
خرسند باشید

[maziardm]

سلام مجدد
تشکر احمد آقا
جالب بود. ممنون که مساعدت کردید و راهنمایی کردید.
ولی متاسفانه نتونستم ماکرو سورت رو از فایل شما تو فایل مورد نظر خودم وارد کنم. هر چقدر کلنجار رفتم ارور می ده و اجرا نمیشه. به خاطر همین فایل خودم رو گذاشتم تا اگه زحمتی نیست ماکرو مرتب کردن (سورت) رو رو اون انجام بدبد. البته در مورد ماکرو از فیلتر درآوردن مشکلی نبود.
با تشکر

[ahmad.khanifar]

من روی فایل ارسالی شما انجام دادم که مشکلی نداشت پیام خطا چیست ؟

[maziardm]

من روی فایل ارسالی شما انجام دادم که مشکلی نداشت پیام خطا چیست ؟

سلام
خطای کد 400 میده
میشه همون فایل خودم رو که روش کار کردید رو آپلود کنید منم ببینم.
با تشکر

[maziardm]

سلام مجدد
تشکر احمد آقا
جالب بود. ممنون که مساعدت کردید و راهنمایی کردید.
ولی متاسفانه نتونستم ماکرو سورت رو از فایل شما تو فایل مورد نظر خودم وارد کنم. هر چقدر کلنجار رفتم ارور می ده و اجرا نمیشه. به خاطر همین فایل خودم رو گذاشتم تا اگه زحمتی نیست ماکرو مرتب کردن (سورت) رو رو اون انجام بدبد. البته در مورد ماکرو از فیلتر درآوردن مشکلی نبود.
با تشکر

سلام مجدد
ببخشید من فایل جدید و مورد نظر خودم رو مثل اینکه آپلود نکردم. پوزش. فایل رو پیوست کردم. منتظر راهنمایی هستم.
با تشکر

[iranweld]

با سلام

فایل پیوست را ملاحظه کنید.

Sub Macro1()

Application.ScreenUpdating = False

Range("f2") = "tarikh chek"

    Range("Table1[#Headers]").AutoFilter
    
          Sheet5.ListObjects("Table1").Sort.SortFields.Add _
        Key:=Range("Table1[[#All],[tarikh chek]]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    With Sheet5.ListObjects("Table1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Range("f2") = ChrW(1578) & ChrW(1575) & ChrW(1585) & ChrW(1740) & ChrW(1582) & ChrW(32) & ChrW(1670) & ChrW(1705)

    
    Range("Table1[#Headers]").AutoFilter
    
    Application.ScreenUpdating = True
    
End Sub 

[maziardm]

با سلام

فایل پیوست را ملاحظه کنید.

Sub Macro1()

Application.ScreenUpdating = False

Range("f2") = "tarikh chek"

    Range("Table1[#Headers]").AutoFilter
    
          Sheet5.ListObjects("Table1").Sort.SortFields.Add _
        Key:=Range("Table1[[#All],[tarikh chek]]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    With Sheet5.ListObjects("Table1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Range("f2") = ChrW(1578) & ChrW(1575) & ChrW(1585) & ChrW(1740) & ChrW(1582) & ChrW(32) & ChrW(1670) & ChrW(1705)

    
    Range("Table1[#Headers]").AutoFilter
    
    Application.ScreenUpdating = True
    
End Sub 

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

[iranweld]

مجددا بررسی کنید

[maziardm]

مجددا بررسی کنید

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

[iranweld]

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

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

[maziardm]

با سلام مجدد و تشکر دوباره

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

درسته. ابتدا این دکمه رو ندیدم. ممنون

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

درسته. باتن رو که می زنیم سورت می کنه. ولی می دونید مشکل کجاست. همونطور که تو پست قبلی هم اشاره کردم؛ ولی دفعات بعد دیگه اینطور نیست. برای مثال وقتی خصوصیت اتو فیلتر رو برای سر ستون ها در جدول فعال می کنم و بعد جدول رو بر اساس شماره چک یا مبلغ و یا هر ستون دیگری به غیر از تاریخ چک سورت می کنم و بعد از اون می خوام دوباره جدول بر اساس تاریخ چک سورت بشه و ماکرو مورد نظر رو ران می کنم (دکمه باتن رو می زنم) دیگه جواب لازم رو نمی ده و سورت نمی کنه. در واقع و ساده تر بگم مشکل برای سورت مجدد هستش.نمی دونم چرا؟
برای نمونه فایل شما رو که آتو فیلترش رو فعال کردم و آخرین بار بر اساس طبق شماره چک ها (ستون شماره چک جدول) جدول رو سورت کردم و طبق صحبت های بالا دیگه ماکرو عمل نمی کنه رو جهت مشاهده و بررسی آپلود کردم.
با تشکر بسیار برای وقتی که میزارید

[ahmad.khanifar]

فایل بر اساس مواردی که گفتید اصلاح شد .

[ahmad.khanifar]

با سلام مجدد و تشکر دوباره



درسته. ابتدا این دکمه رو ندیدم. ممنون




درسته. باتن رو که می زنیم سورت می کنه. ولی می دونید مشکل کجاست. همونطور که تو پست قبلی هم اشاره کردم؛ ولی دفعات بعد دیگه اینطور نیست. برای مثال وقتی خصوصیت اتو فیلتر رو برای سر ستون ها در جدول فعال می کنم و بعد جدول رو بر اساس شماره چک یا مبلغ و یا هر ستون دیگری به غیر از تاریخ چک سورت می کنم و بعد از اون می خوام دوباره جدول بر اساس تاریخ چک سورت بشه و ماکرو مورد نظر رو ران می کنم (دکمه باتن رو می زنم) دیگه جواب لازم رو نمی ده و سورت نمی کنه. در واقع و ساده تر بگم مشکل برای سورت مجدد هستش.نمی دونم چرا؟
برای نمونه فایل شما رو که آتو فیلترش رو فعال کردم و آخرین بار بر اساس طبق شماره چک ها (ستون شماره چک جدول) جدول رو سورت کردم و طبق صحبت های بالا دیگه ماکرو عمل نمی کنه رو جهت مشاهده و بررسی آپلود کردم.
با تشکر بسیار برای وقتی که میزارید

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

[maziardm]

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

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