Kaydedilen bir kitap sayfasına Şablon sayfasını kopyalama

[nziya]

Makro ile bir klasöre yeni bir kitap açıp aktif kitaptaki şablon sayfasını yeni açtığımız kitabın sayfasına kopyalama hakkında yardım almak istiyorum.

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir çözüm isteğinizi karşılarmı?

[vb:1:224ee3d5a9]Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
If TextBox1 = "" Then
MsgBox "Önce isim girmelisiniz.", , "Boş"
Exit Sub
End If
ad1 = ActiveWorkbook.Name
Workbooks.Add
ad2 = ActiveWorkbook.Name
Workbooks(ad1).Sheets("ŞABLON").Copy Before:=Workbooks(ad2).Sheets(1)
For a = Workbooks(ad2).Sheets.Count To 1 Step -1
If Workbooks(ad2).Sheets(a).Name <> "ŞABLON" Then Sheets(a).Delete
Next
ActiveWorkbook.SaveAs Filename:="C:\Program Files\Cari\giris\" & TextBox1 & ".xls"
ActiveWorkbook.Close
MsgBox "KİTAP OLUŞTURULDU"
End Sub[/vb:1:224ee3d5a9]

 

[nziya]

Sayın leventm çok teşekkür ederim tam istediğim gibi.