Çalışma kitabındaki 40 adet sayfayı nasıl ayrı ayrı kaydederim.

[cengizhantunga]

Merhaba,

Arkadaşlar ek deki çalışma kitabında 40 adet çalışma sayfası mevcuttur. Bunu tek bir hareketle her sayfayı ayrı ayrı çalışma kitabı olarak kaydetmem mümkün müdür?

Teşekkürler,

https://www.dosyaupload.com/hZk2

 

[levo26]

Merhaba,

Çalışma kitabını kaydet yaptığınıda bir bütün olarak SAYFALARIN tamamını zaten kaydeder. Sayfa sayfa kayıt diye bir şey yok..

 

[cengizhantunga]

Merhaba,

Çalışma kitabını kaydet yaptığınıda bir bütün olarak SAYFALARIN tamamını zaten kaydeder. Sayfa sayfa kayıt diye bir şey yok..

Hocam belki ben anlatamamış olabilirim. Aşağıdaki şekilde kayıt yapıyoruz. Müşteri bunu ara ara her birini aynı çalışma sayfası olarak istiyor.

 

[levo26]

Siz çalışma kitabı içinde bulunan sayfaları ayrı ayrı çalışma kitabı olarak mı kaydetmek istiyorsunuz.

 

[cengizhantunga]

Siz çalışma kitabı içinde bulunan sayfaları ayrı ayrı çalışma kitabı olarak mı kaydetmek istiyorsunuz.

Aynen öyle

 

[cedi007]

Siz çalışma kitabı içinde bulunan sayfaları ayrı ayrı çalışma kitabı olarak mı kaydetmek istiyorsunuz.

Bu konuda benim de yardıma ihtiyacım var. Bu işlemi nasıl yapabiliriz?

 

[Necdet]

Merhaba,

Aşağıdaki linkte tek bir sayfayı başka ad ile saklanıyor.
Kendinize uyarlayabilirsiniz.

http://www.excel.web.tr/f48/sayfayy-farkly-kaydetme-makrosu-t91364.html

 

[byfika]

Merhabalar, Necdet bey öneride bulunmuş, buda alternatif olsun.
Aşağıdaki kodu module kaydedin. Sayfaları nereye kayıt edecekseniz kodu o bölümü ve klasör adını yazın (kırmızı yazılı olanlar), sonra kayıt yapacağınız bölüme klasör adında bir klasör açıp sayfa1 e koyacağınız butonla kayıt yapın. Umarım işinizi görür.
İyi Çalışmalar.

Sub ayrıayrı_kaydet()
Dim sht As Worksheet
Dim NFName As String
Const WBPath = "D:\ayrıayrıkayıt\"
For Each sht In ActiveWorkbook.Worksheets
sht.Copy
sht.Cells.Copy
Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)
Range("A1").Select
Application.CutCopyMode = False
NFName = WBPath & sht.Name & ".xls"
ActiveWorkbook.SaveAs Filename:=NFName, _
FileFormat:=xlNormal, CreateBackup:=False
ActiveWindow.Close
Next
End Sub