پاک کردن خودکار شیت

[ali.b]

با سلام
چطور میشه کدی استفاده کرد که با زدن اون دکمه همه شیتها پاک بشن جز شیت شیت های مورد نظر
یعنی فرض در فایلی 3 تاشیت اصلی دارم و در طی فرایندی چندتا شیت درست میشه و میخوام با زدن دکمه اون شیت ها پاک بشن جز 3 شیت اصلی خودم
کدی که من نوشتم فقظ یک شیت رو پاک میکنه

[s.cheraghi]

احساس میکنم درست متوجه منظورتون نشدم، به هر حال این فایل نگاه کنین ببینین مشکلتون حل میشه یا نه؟

[ali.b]

درسته اما نمی خوام سوالی بپرسه جوری باشه که خودش بدون مثلا شیهای 1 و 2 و 3 رو پاک نکنه و بقیه رو پاک کنه
چنین حالی میشه؟
درضمن این فایلی که فرستادین خیلی عالیه اما خود شیتی که دکمه توش هست رو میتونه پاک کنه که باعث اختلال تو vb شده
ممنونم از وقتی که برام گذاشتن

[s.cheraghi]

چیزی که شما میفرمائید زیر مجموعه ای از جوابی هست که بهتون دادم
یعنی شما میتونین اون شرطی رو که گذاشتم تغییر بدین که تنها شیت های دیگه رو پاک کنه که در اینصورت دیگه نیازی به listbox نیست.
یکم در موردش فکر کنین و سعی کنین درستش کنید، اگه نتونستین بیشتر کمکتون میکنم.
در مورد مسئله دوم شما:
شما میتونین این دکمه رو تو یکی از اون سه شیتی که قراره پاک نشه قرار بدین
یا اینکه کلید میانبر برای این ماکرو بذارین و تنها با استفاده از این کلیدها کارتون رو انجام بدین.

[علی فاطمی]

چیزی که شما میفرمائید زیر مجموعه ای از جوابی هست که بهتون دادم
یعنی شما میتونین اون شرطی رو که گذاشتم تغییر بدین که تنها شیت های دیگه رو پاک کنه که در اینصورت دیگه نیازی به listbox نیست.
یکم در موردش فکر کنین و سعی کنین درستش کنید، اگه نتونستین بیشتر کمکتون میکنم.
در مورد مسئله دوم شما:
شما میتونین این دکمه رو تو یکی از اون سه شیتی که قراره پاک نشه قرار بدین
یا اینکه کلید میانبر برای این ماکرو بذارین و تنها با استفاده از این کلیدها کارتون رو انجام بدین.

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

[s.cheraghi]

از فرمول زیر در حلقه استفاده کنید:

For Each i In Worksheets
    Select Case i.Name
        Case "#", "#", "#", "#"
        Case Else
            i.Delete
    End Select
Next i 

در قسمت # نام شیت ها رو بذارین

[ali.b]

اقا ممونم
میشه کاری کرد پیغام نده ؟
فایل من شیت زیاد داره و کلافه کننده هست همش پیغام del رو بزنم
اگه راهی هست ممنون میشم

[s.cheraghi]

از دستور زیر قبل از حلقه استفاده کنید:

Application.DisplayAlerts = False 

*توجه کن که بعد از حلقه دستور زیر رو قرار بدی:

Application.DisplayAlerts = True