Sayfaları kitap olarak kaydet

[mnz]

Çalışma kitalarındaki 50 şer adet sayfaların herbirini çalışma kitabı olarak kaydedecek makro.
Boş kitaplarda çalışıyor.

Sub SayfaKaydet()
Dim sayfa As Worksheet
For Each sayfa In Worksheets
sayfa.Copy
ActiveWorkbook.SaveAs "C:\Belgelerim\test\test_" & sayfa.Name & ".xls"
ActiveWorkbook.Close False
Next sayfa
End Sub

Çok dolu veya birleştirilmiş hücrelerin çok olduğu sayfalarda
sayfa.copy de hada veriyor. Hata şu
1004 "method copy of object'_worksheet' failed "
Yardım rica ediyorum.

 

[mnz]

Arkadaşlar bu konuda yardımınızı rica ediyorum

 

[Kemal Demir]

Sn.Mnz

Ek'te Küçük bir dosya yolluyorum zannedersem işinizi görecektir.


ctrl+r ile kodu çalıştırabilirsiniz.

Dosya içerisindeki kodda

Direkt olarak C:\deneme diye bir folder açacaktır varsa zaten es gececektir.

Bunu kendi isteginize göre duzenleyebilirsiniz.


Umarım Yardımcı olabilmişimdir.

 

[mnz]

Sayın kemaldemir
emekleriniz için Allah sizden razı olsun
verdiğiniz kod süper çalışıyor.