Çalışma Kitabı içinde tek bir sayfayı kaydetmek

[eronyat]

Merhaba.

Çalışma kitabı içerisindeki sayfalardan sadece bir tanesini kaydetmek mümkün müdür? Farklı kaydet seçeneklerini kurcaladım ancak göremedim. Öğrenmek için soruyorum. Sorunu, yeni bir dosya oluşturup sayfa içindeki verileri kopyala yapıştır yaparak ve ön tanımlı sayfaları silerek halletim. Daha pratik bir yolu var mıdır diye, merak ettim.

Teşekkür ederim.

 

[muhasebeciyiz]

Sub sayfalara_ayir()
Application.DisplayAlerts = False
Dim sayfa As Worksheet, kitap As Workbook
For Each sayfa In ThisWorkbook.Sheets
If sayfa.Name <> "Genel" Then
Set kitap = Workbooks.Add
sayfa.Copy kitap.Sheets(1)
kitap.SaveAs ThisWorkbook.Path & "\" & sayfa.Name & ".xls", xlExcel8
kitap.Close False
End If
Next sayfa
Set sayfa = Nothing
Application.DisplayAlerts = True
MsgBox "İşlem Tamamlandı.", vbInformation, "BİLGİ"
End Sub

Alıntı bu kod excel dosyanızdaki tüm sayfaları ayrı ayrı olarak masaüstüne olduğu gibi kopyalar.

veya

Sekme üzerinde sağ tıkla/taşı ve kopyaya/yeni kitap yaptığımızda sekme, farklı bir excel sayfası olarak kopyalanmaktadır

veya

Sub Farklı_Kaydet()
ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close
End Sub

 

[eronyat]

Cevabınız için teşekkür ederim ama özür dileyerek belirtmek isteim ki; anlamadım.

 

[muhasebeciyiz]

Sayın eronyat

Bunlar makro kodları olup kullanımını aşağıdaki şekilde yapıp çalıştırınız

----- ALT + F11 tuşlarına birlikte bas, VBE penceresi ekrana gelsin.
----- Bu pencerede Insert >> Module menusunu tıkla (Ekle >> Modül)
----- Ekranın sağ tarafındaki büyük pencereye, yukarıdaki kodu kopyalayıp, yapıştır.
----- F5 tuşuna basarak sözkonusu makro kodlarının çalıştırılmasını sağla.

 

[eronyat]

Çok iyi bir şeymiş bu!

Meraktan soruyorum, sayfaları kayıt edeceği yeri atamak da mümkün mü? Yani kitabın bulunduğı yere değil de, farklı bir klasör tanımlayabilir miyiz?

Teşekkür ederim.

Edit: Bütün sayfaları kaydediyor bu fonksiyon, sadece bir sayfayı kaydetmek mümkün mü? Teşekkür ederim.

 

[muhasebeciyiz]

Sub Farklı_Kaydet()
ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close
End Sub

bu makroyu çalıştırdığın vakit tek sayfayı kaydeder ve kaydedeceği yeri size sormaktadır.

 

[huseyinn31]

Sub Farklı_Kaydet()
ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close
End Sub

bu makroyu çalıştırdığın vakit tek sayfayı kaydeder ve kaydedeceği yeri size sormaktadır.

Merhaba,

Bu koda belli bir hücre aralığını ve dosya ismini 2 hücrenin birleşiminden alması için nasıl düzenleme yapmamız gerekir? Örneğin butona bastığımızda 56R x 10C aralığını, E1 ve B4 hücrelerinde yazanı birleştirip dosya ismi olarak alabilir mi?

 

[schlecht]

Merhaba,

Sub Farklı_Kaydet()
ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close
End Sub

burada sayfa adı belirleme şansımız var mı?

 

[schlecht]

Merhaba,

Sub Farklı_Kaydet()
ActiveSheet.Copy
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close
End Sub

burada sayfa adı belirleme şansımız var mı?

Pardon dosya adı belirlemek istiyorum