Her Sayfayı Ayrı Bir Dosya Haline Getirme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Alt + F11 ile kodları inceleyin, yolun değiştirip F5 ile çalıştırın.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub SayfalariAyriDosyaOlarakKaydet()
Dim ws As Worksheet
Dim kayitYolu As String
Dim dosyaAdi As String
kayitYolu = "C:KaydedilenDosyalar" ' Kayıt yolunu isteğinize göre değiştirin
For Each ws In ThisWorkbook.Sheets
dosyaAdi = kayitYolu & ws.Name & ".xlsx"
ws.Copy
Application.ActiveWorkbook.SaveAs Filename:=dosyaAdi, FileFormat:=xlOpenXMLWorkbook
Application.ActiveWorkbook.Close False
Next ws
End SubAçıklama
Üstteki kod, Excel'de bulunan her çalışma sayfasını ayrı bir dosya olarak kaydeder, böylece veri organizasyonu ve paylaşımı daha verimli hale gelir. Kod, öncelikle kaydedilecek yolu tanımlar. Daha sonra, aktif çalışma kitabındaki her bir çalışma sayfasını döngü içinde gezerek, her birini yeni bir Excel dosyası olarak kopyalar ve önceden belirlenen yola kaydeder. Bu süreç, çalışma kitapları içindeki veri yönetimini basitleştirir ve raporların ayrı ayrı saklanmasını ve paylaşılmasını kolaylaştırır.Alt + F11 ile kodları inceleyin, yolun değiştirip F5 ile çalıştırın.
Faydalanılması temennisiyle
