Soru Gizli Şablon sayfasından kopya oluşturma

[sirkülasyon]

Private Sub CommandButton1_Click()
Dim i As Integer
If TextBox1.Value = "" Then
MsgBox "Sayfa Adını Yazmadınız.."
Exit Sub
End If
For i = 1 To Worksheets.Count
If Worksheets(i).Name = TextBox1.Value Then
MsgBox "Bu İsimde Bir Sayfa Var.."
Exit Sub
End If
Next i
Sheets("ŞABLON").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = TextBox1.Value
End Sub

Yukarıdaki kod ile ŞABLON sayfasını oluşturuyor. Ancak ŞABLON sayfasını gizlemek istiyorum, bu seferde ŞABLON sayfası oluşmuyor.
Nasıl bir düzenleme yapmam lazım.

Saygılarımla

 

[hamitcan]

Aynı isimde olduğu için olabilir mi ? Eğer öyleyse, kodun başında ŞABLON isimli sayfayı silecek bir satır ekleyin.

 

[sirkülasyon]

Hamit abi
ŞABLON sayfasını gizledim. Buton ile şablon oluştur yeni isim ve dediğim zaman ŞABLON sayfası gizlenmiş olduğu için kod çalışmıyor.
Gizlenmiş sayfa üzerinden nasıl çalışabilirim

 

[hamitcan]

Ben denedim, gizli iken kod çalıştı. Ayrıca verdiğiniz kod, ŞABLON sayfasından kopyalama yapıyor. ŞABLON sayfasını oluşturmuyor.

 

[sirkülasyon]

Hamit abi
İLGİLİ DOSYA

Combobox ile veri seçip ekle dediğininiz zaman seçilen ad ile şablon açmıyor.
Sil dediğimiz zamanda silmiyor.

Bakabilir misin abi sana zahmet

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Sheets("ŞABLON").Visible = True
Sheets("ŞABLON").Copy After:=Sheets(Worksheets.Count)
Sheets("ŞABLON").Visible = False

 

[sirkülasyon]

Hamit Abi

ActiveSheet.Name = ComboBox1.Value

bu satırda hata veriyor.

 

[hamitcan]

Başka bir şey olmalı. Benim yaptığım ŞABLON sayfasını önce görünür yapıp sonra gizlemek. Önceki kod ile arasında bir fark yok.