پرسش ایجاد شیت جدید

[میثم مقدم نیا]

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

[میثم مقدم نیا]

دوستان و اساتید بزرگ وار
راهنمای نمیکنید؟

[میثم مقدم نیا]

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

سلام دوستان
من چند روزی که این سوال رو پرسیدم کسی نیست که راهنمایی کنه

[iranweld]

با سلام

فایل پیوست را بررسی کنید

Private Sub CommandButton1_Click()


If Len(TextBox2) > 0 Then

    
     sheetfound = False
     
        For i = 1 To Sheets.Count
      
        If Sheets(i).Name = TextBox2 Then
            
       sheetfound = True
                
        MsgBox "this sheet name exist"
               
            
            End If
            
        Next i
        
        
  If sheetfound = False Then

Sheets.add After:=Sheets(Sheets.Count)

ActiveSheet.Name = TextBox2

Sheets("data").Cells.Copy
   
 ActiveSheet.Paste
 
 Range("A1").Select
 

End If

End If

End Sub