Sayfa Kopyalamak?

[udentr2002]

Ekli dosyada da anlatmaya çalıştım deneteim araç çubuğundan oluşturduğum textbox1 e girdiğim isim ile yeni bir sayfa açıp aynı dosyadaki bir sayfayı olduğu gibi kopyalayıp yeni açılan sayfaya yapıştırmak istedim ancak yeni sayfayı açan kodları yazabişldim ama kopyalanacak sayfayı yeni açılan sayfaya yapıştıramadım bunun için nasıl bir kod eklemesi yapabilirim
Not Kopyalanıp yapıştırılacak sayfa hücre özellikleri ile birlikte aynı olduğu gibi yapıştırılmalı

Şimdiden ilgilenen arkadaşlarıma teşekkür ederim SAYGILARIMLA

 

[Zeki Gürsoy]

Kopaylama için buton kodlarının en alt kısma,

Sheets("Format").Cells.Copy Sheets("" & sh.Name).[a1]

ekleyin.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki linkide inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=15924

 

[udentr2002]

Saol Hocam Allah razı olsun

 

[N.Ziya Hiçdurmaz]

Yanıt

Altarnatif.
Private Sub CommandButton1_Click()
For i = 1 To Sheets.Count
If Sheets(i).Name = TextBox1.Text Then
MsgBox ("Bu Adla Kayıtlı Bir Sayfa mevcut. Girdiğiniz Adı Kontrol Ediniz!!!"), vbCritical, ("Sayfa Hatası")
Exit Sub
End If
Next
Sheets("Format").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = TextBox1.Value
End Sub