yeni çalışma sayfası

[mudurad]

slm arkadaşlar, benim merak ettiğim konu : yeni eklenen çalışma sayfasının önceden hazırlanan bir çalışma sayfası şeklinde açılabilmesini nasıl sağlarız , teşekkürler şimdiden herkese iyi çalışmalar.

 

[AS3434]

Aşağıdaki kodları bir butona bağlayın.

Sub Kopyala()
Dim i As Integer
Dim kopya
For i = 1 To Worksheets.Count
sayfa = Sheets(i).Name & vbNewLine & sayfa
Next i
kopya = InputBox("Kopyalamak İstediğiniz Sayfanın adını giriniz" _
& vbCrLf & sayfa, "Kopya", "")
If kopya = Empty Then Exit Sub
Sheets(kopya).Copy After:=Sheets(Worksheets.Count)
On Error GoTo hata
ActiveSheet.Name = InputBox("Sayfanın Adını Giriniz", _
"Yeni Sayfa Ad", "YeniSayfa Ekle")
[B1].Value = ActiveSheet.Name
hata:
Sayfa1.Select
'Call Listele
End Sub

 

[mudurad]

Tam istediğim gibi olmuş bir yerinde değişiklik yaptım sadece elinize sağlık gerçekten çok işime yaradı, allah herşeyi gönlünüze göre versin ...