SHEET EKLEME

[erkan_hakan]

Merhaba herkese kolay gelsin

Bir proje üstünde çalışıyorumda takıldığım bazı noktalar var. Mesela userformda üstünde bulunan textboxda yazan değeri çalışma kitabına buton ile sheet olarak nasıl ekletebilirim.

Bir Mum Başka Bir Mumu Yakmakla Ateşinden Bir Þey Kaybetmez

:kafa:

 

[Haluk]

[vb:1:f68b1870ed]Private Sub CommandButton1_Click()
Set NewSh = Worksheets.Add(After:=Sheets(Sheets.Count))
NewSh.Name = TextBox1
Set NewSh = Nothing
End Sub
[/vb:1:f68b1870ed]

 

[erkan_hakan]

Sn. Raider ilginiz için teşekkürler

Soruyu eksik sordum kod işime yarıyor ama şu sorun var. Sayfa eklerken mesela hakan sayfasını seçip kopyalayıp ismini textbox1 deki isimle değiştiricek. Bu mümkünmü? :agla:

 

[Haluk]

[vb:1:ba4069eb35]Private Sub CommandButton1_Click()
Sheets("hakan").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = TextBox1
End Sub
[/vb:1:ba4069eb35]

 

[erkan_hakan]

Sn raider ilginiz için teşekküğr ederim. Verdiğiniz kod işime yarıyor yine sizi rahatsız edicem ama bu koda sayfa eklerken aynı sayfa adı ile kaydını nasıl önleyebilirz. Mesela hakan sayfasını eklerken bu isimde sayfa var tekrar deneyin deyip başa (userforma) dönebilirmi ?

İyiki varsınız.

 

[erkan_hakan]

İyi akşamlar sanırım raider bu akşam yok sorunuma yardım edecek bir arkadaş varmı acaba :yardim:

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:10e877eddd]Private Sub CommandButton1_Click()
On Error GoTo 10
Sheets("hakan").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = TextBox1
Exit Sub
10 MsgBox "AYNI İSİMLİ SAYFA MEVCUTTUR"
Application.DisplayAlerts = False
ActiveSheet.Delete
TextBox1.SetFocus
End Sub
[/vb:1:10e877eddd]

 

[erkan_hakan]

Valla ellerine sağlık sn. leventm kod tam istediğim gibi

şimdilik herkese iyi geceler
:dua: