کپی از شیت مرجع و ایجاد شیت با نامی مشخص

[rb_reza]

دوستان من یک فایل با 2 sheet با نام های form و list دارم و قصد دارم وقتی در فرم مطالبی را تعریف کردم با زدن یک دکمه از شیت List ( این شیت مرجع است) یک کپی ایجاد شود و نام شیت به صورت خودکار از List به نامی که من در فرم تعیین کردم تغییر کند.
می توانید راهنمایی نمایید و در صورت امکان کدهای VBA را قرار دهید.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

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

Private Sub CommandButton1_Click()
Dim i As Integer, blnFound As Boolean
    blnFound = False
    
    With ThisWorkbook
        For i = 1 To .Sheets.Count
            If .Sheets(i).Name = Sheet1.Range("B1").Value Then
                blnFound = True
                MsgBox "sheet ready"
                Exit For
            End If
        Next i
        
        If blnFound = False Then
            .Sheets.Add After:=Sheets(Sheets.Count)
            With ActiveSheet
                .Name = Sheet1.Range("B1").Value
            End With
        End If
        
    End With
    
End Sub 

[rb_reza]

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

[iranweld]

با سلام

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

Sub Macro1()

Sheets("DATA").Select
    Cells.Select
    Selection.Copy
    Range("A1").Select
    X = Sheets.Count
    Sheets(X).Select
    Cells.Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("DATA").Select
End Sub 

[entezarian17]

راه حل این که من بتونم این ماکرو رو روی فایلم اعمال کنم په جوریه؟

[iranweld]

مطابق تصویر پیوست کدها را در قسمت کدنویسی شیت مد نظر کپی کنید.

کدها قبلی اندکی اصلاح شد.