Soru Gizli Şablon sayfasından kopya oluşturma

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,471
Excel Vers. ve Dili
2021 LTSC TR
Kod:
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

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
Aynı isimde olduğu için olabilir mi ? Eğer öyleyse, kodun başında ŞABLON isimli sayfayı silecek bir satır ekleyin.
 

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,471
Excel Vers. ve Dili
2021 LTSC TR
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

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
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

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,471
Excel Vers. ve Dili
2021 LTSC TR
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

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
Aşağıdaki şekilde deneyin.
Kod:
Sheets("ŞABLON").Visible = True
Sheets("ŞABLON").Copy After:=Sheets(Worksheets.Count)
Sheets("ŞABLON").Visible = False
 

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,471
Excel Vers. ve Dili
2021 LTSC TR
Hamit Abi

ActiveSheet.Name = ComboBox1.Value

bu satırda hata veriyor.
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
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.
 
Üst