Sayfa Kopyalama

[excelman]

Merhabalar;

*Excel çalışma kitabımdaki Data sayfasını A4 satırında yazan rakam kadar yeni çalışma kitabı açarak kopyalamak istiyorum.

Bunun makrolu çözümü nasıl olur?

 

[excelvba]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=6594&highlight=sheets+add

Not:özür yukarıdaki link sayfa ekleme içindi siz kitap ekleme diye sormuşsunuz.

 

[excelvba]

Aşağıdaki kodu deneyin. Çalışma kitabınızın adı "kitap1.xls" kabul edilmiştir.

[vb:1:cfd169ec63]Sub kitapekle()
Application.ScreenUpdating = False
For a = 1 To [a4]
Workbooks.Add
ad = ActiveWorkbook.Name
Workbooks("Kitap1").Activate
Sheets("data").Copy Before:=Workbooks(ad).Sheets(1)
Next
End Sub
[/vb:1:cfd169ec63]

 

[excelman]

Sayın excelvba cevabınız için teşekkür ederim.Benim sorduğum soruya göre cevabınız yeterli.Fakat ben soruyu yanlış sormuşum.
Benim istediğim;
*Yeni bir çalışma kitabı açılacak.
*Data sayfasının A4 satırında yazan rakama göre Data sayfası yeni açılan çalışma kitabına kopyalanacak.Yani Data-A4 de 5 yazıyorsa data sayfası 5 kopya olarak(Data-1,Data-2...şeklinde) yeni çalışma kitabına eklenecek.

Yardımlarınız için şimdiden teşekkür ederim.

 

[excelvba]

Aşağıdaki kodu deneyin.

[vb:1:583fc17e5c]Sub kitapekle()
Application.ScreenUpdating = False
Workbooks.Add
ad = ActiveWorkbook.Name
Workbooks("Kitap1").Activate
For a = 1 To [a4]
Sheets("data").Copy Before:=Workbooks(ad).Sheets(1)
Next
End Sub
[/vb:1:583fc17e5c]

 

[excelman]

İstediğim buydu.
Teşekkür ederim excelvba.

 

[baydeniro]

Paylaşım İçin Teşekkürler

Sayın excelvba Paylaşım İçin Teşekkürler.