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

[علی فاطمی]

با سلام ،
ضمن تشکر از همه دوستان بخصوص اساتید که همیشه پاسخگو هستند ، مشکل من در مورد تغییر نام خودکار شیت هاست.
اگر دوستان فایل پیوست رو ملاحظه کنند.من توی شیت 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~]

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

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