حذف ردیف و شیت مرتبط با آن و تغییر نام شیتهای بعد از آن

[علی فاطمی]

با سلام ،
ضمن تشکر از همه دوستان بخصوص اساتید که همیشه پاسخگو هستند ، مشکل من در مورد تغییر نام خودکار شیت هاست.
اگر دوستان فایل پیوست رو ملاحظه کنند.من توی شیت input یه فرم دارم که اطلاعاتش رو از یه یوزرفرم می گیره، توی یوزرفرم سه تا کامن باتن دارم که یکیش ردیف و شیت جدید ایجاد می کنه دومی ثبت میکنه و سومی در صورت نیاز یا دلخواه یه ردیف و طبعا یه شیت رو حذف میکنه . توی شیت input ردیفها به صورت خودکار ایجاد یا کسر میشه و مشکلی در حذف ردیف ندارن ، حالا مثلا اگر ردیف 3 یا ... بخوام حذف کنم شیت اون رو هم حذف میکنه مشکل من اینه که مثلا تعداد شیتهای ما از 1شروع شده و در حال حاضر تا شیت 8 اضافه شده حالا میخوام وقتی شیت 3 حذف شد و شیتها ی 3 به بعد یه شماره ازشون کم بشه و در نهایت از شیت 1 تا 7 شماره گذاری بشن. من خودم یه کارایی (سعی و خطا) کردم و خوب نتیجه کامل نگرفتم یعنی فقط اگر شیت یکی مونده به آخر رو حذف کنم جواب میده.
ممنون از تئجه شما.

[~M*E*H*D*I~]

یه حلقه باید بذارید که بعد از حذف یک شیت فرخوانی بشه و تعداد شیت هارو بشماره و بعد مثلا 8 تا شیت وجود داره از 1 تا 8 شماره گذاری کنه

[علی فاطمی]

یه حلقه باید بذارید که بعد از حذف یک شیت فرخوانی بشه و تعداد شیت هارو بشماره و بعد مثلا 8 تا شیت وجود داره از 1 تا 8 شماره گذاری کنه

ممنون از شما ولی اطلاعات کم نتونست فرمایش شما رو پیاده کنه

[علی فاطمی]

با سلام و خسته نباشید استاد وطن پرست لطفا فایل پیوست رو ملاحظه بفرمائید من با یه راه ( آماتوری ) به نتیجه رسیدم . فقط می خواستم نظر حرفه ای شما بدونم . ممنون میشم اگر ملاحظه بفرمائید.

[علی فاطمی]

با عرض پوزش استاد فایل پیوست نمیشه

[علی فاطمی]

فایل پیوست

[علی فاطمی]

فایل پیوست

با سلام و صبح بخیر،
استاد وطن پرست فایل پیوست رو ملاحظه کردین؟

[~M*E*H*D*I~]

با سلام و صبح بخیر،
استاد وطن پرست فایل پیوست رو ملاحظه کردین؟

For Each i In Worksheets
    Select Case i.Name
    
        Case "Input", "Sheet1"
        Case Else
       
        k = TextBox2.Value + j
        If k <= Sheets.Count Then
        Sheets(k).Name = k - 2
        Sheets(Sheets(k).Name).Range("AC4") = k - 2
        j = j + 1
       End If
    End Select
    
Next i 

یعنی از طریق تکست باکس شماره شیت هارو تعیین کردی؟

[علی فاطمی]

For Each i In Worksheets
    Select Case i.Name
    
        Case "Input", "Sheet1"
        Case Else
       
        k = TextBox2.Value + j
        If k <= Sheets.Count Then
        Sheets(k).Name = k - 2
        Sheets(Sheets(k).Name).Range("AC4") = k - 2
        j = j + 1
       End If
    End Select
    
Next i 

یعنی از طریق تکست باکس شماره شیت هارو تعیین کردی؟

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

[~M*E*H*D*I~]

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

ایده که خوبه ، اپتنها فرقش با ایده من اینه که از اول دیگه نام گذاری نمیشه یعنی فقط همون تکست باکس اضافه شده بقیش همونه که منم مدنظرم بود

[علی فاطمی]

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



آیا راهی وجود داره که این پیغام داده نشود و مستقیماً شیت حذف شود چراکه قبل از حذف شیت یه پیغام تایید برای حذف پیغام قرار داده شده است.

ممنون از توجه شما.

[امين اسماعيلي]

با درود
بازم سوال تکراری چی بگم بهتون اخه
اینو بزار اولین خط کدت

Application.DisplayAlerts = False

اینم بزار اخرین خط کدات

Application.DisplayAlerts = True

در کل هر جا که دوست داری زود تر ایتن پیام دوباره فعال بشه بزار

[علی فاطمی]

با درود
بازم سوال تکراری چی بگم بهتون اخه
اینو بزار اولین خط کدت

Application.DisplayAlerts = False

اینم بزار اخرین خط کدات

Application.DisplayAlerts = True

در کل هر جا که دوست داری زود تر ایتن پیام دوباره فعال بشه بزار

با سلام و تشکر
بخشش از بزرگانه.......