Sütundaki isimle yeni sayfa açmak

[armandos]

Merhabalar

d2 sütununa kaydettiğim isimlerle yeni sayfa nasıl açabilirim?

 

[armandos]

Private Sub CommandButton1_Click() (KAYDET BUTONU)

If Not TextBox3 = Empty Then
For i = 1 To Worksheets.Count
If Sheets(i).Name = TextBox3 Then
MsgBox ("Bu isimde bir şirket var, değişik bir isim girmelisiniz !")
TextBox3 = Empty
TextBox1.SetFocus
Exit Sub
End If
Next
Set NewSh = Worksheets.Add

With NewSh

aşağıdaki kodla Sayfa1 i kopyalattırıp yeni oluşturduğum sayfaya textbox3 ün ismini verdim.[/COLOR]

Sheets("sayfa1").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = TextBox3

End Sub
userformda texbox3 girdiğim isimle ve sayfa1 deki şablona göre yeni bir sayfa oluştu.

Öğreniyor muyum ne