SAYFAYI KOPYALAYAN MAKRO

[turkanet]

bir şablon sayfam var ve ben bu sayfanın kopyalanıp, aynı belgeye son sayfa olarak eklenmesini ve adının da kendinden bir önceki sayfanın bir fazlası olmasını istiyorum (sayfaların sıralanışı: şablon,1,2,3,4...)

teşekkürler...

 

[cyberwolf1980]

buyur ???
bıraz daha acıklayıcı olabılırmısın yada bı ornek atabılırmısın ??

 

[cyberwolf1980]

BURDA MEVCUT SAYAYI YENI BIR DOSYA OLARAK KAYDETMEK ICIN BIR MAKRO VAR ISINE YARARMI ??


Sub SAYFAKOPYALA()
'
' ISIMLI_SAYFA_GONDERME Makro
' CYBERWOLF1980@GMAIL.COM
'

'
Sheets("Sayfa1").Select
Sheets("Sayfa1").Copy
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:= _
"C:\ISIM.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.Dialogs(xlDialogSendMail).Show
Sheets("Sayfa1").Select
Range("A1").Select
End Sub

 

[turkanet]

bu makro, sayfa1 i kopyalayıp gönderiyor. ben ise, kopyalayıp, aynı kitap içinde son sayfa olarak yapıştırsın istiyorum. diyelim ki bir önceki sayfanın adı "21", bunun adını da 22 yapsın.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Þablon sayfa1 olarak kabul edilmiştir.

[vb:1:ce66cef6ac]Sub kopyala()
Sheets("Sayfa1").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets(Sheets.Count - 1).Name + 1
End Sub
[/vb:1:ce66cef6ac]

 

[turkanet]

MİNNETTARIM....beni büyük bir külfetten kurtardınız...
:dua: :bravo: :dua: :bravo: :dua: :bravo: :dua: :bravo: :dua: :bravo: