textbox ile yeni bir sayfa ismi??

[udentr2002]

Merhaba arkadaşlar textbox a girdiğim bir isim ile yeni bir sheet açılıp o sheet inde ismini textboxa girdiğim isim ile aynı olabilmesi için nasıl bi kod yazabilirim.
ekli dosya içinde bulunan userformda daha ayrıntılı olarak anlatmaya çalıştım. Şimdiden hepinize teşekkür ederim.

 

[Zeki Gürsoy]

Merhaba,
Form üzerinde checkbox yerine optionbutton kullanmışsınız.

Private Sub CommandButton1_Click()
Dim sh As Worksheet
    If OptionButton1.Value = True Then
        Set sh = Worksheets.Add
        sh.Name = TextBox1
    End If
End Sub

 

[ileriexcel]

alternatif
Private Sub OptionButton1_Click()
For i = 1 To Sheets.Count
If Sheets(i).Name = TextBox1 Then
MsgBox "bu sayfa mevcut"
Exit Sub
End If
Next
Sheets.Add
ActiveSheet.Name = TextBox1.Value
Unload Me
UserForm1.Show
End Sub

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

 

[udentr2002]

teşekkürler

Saolun aekadaşlar sayın anemos un ve ileriexcelin kodlarını birleştirdim ve textboxdaki adla yeni bir sayfa açtıktan sonra Sayfa1 i kopyalayıp o yeni sayfaya yapıştırıyor belki başka bir arkadaşa lazım olur diye gönderiyorum ellerinize sağlık kodlar aşağıda ekli dosyayıda gönderiyorumm

Private Sub CommandButton1_Click()
For i = 1 To Sheets.Count
If Sheets(i).Name = TextBox1 Then
MsgBox ("Bu Adla bir sayfa mevcut")

Exit Sub
End If
Next

Dim sh As Worksheet
If OptionButton1.Value = True Then
Set sh = Worksheets.Add
sh.Name = TextBox1
End If
Sheets("Sayfa1").Select
[a1:j10].Copy
sh.Select
ActiveSheet.Paste

End Sub