Çalışma Sayfalarını Kopyalama isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub CalismaSayfalariniKopyala()
Dim kaynakKitap As Workbook
Set kaynakKitap = ThisWorkbook
Dim hedefKitap As Workbook
For Each ws In kaynakKitap.Sheets
Set hedefKitap = Workbooks.Add
ws.Copy Before:=hedefKitap.Sheets(1)
hedefKitap.SaveAs Filename:="C:KaydedilenDosyalar" & ws.Name & ".xlsx"
hedefKitap.Close SaveChanges:=False
Next ws
End SubAçıklama
Üstteki kod, Excel'de açık olan çalışma kitabındaki tüm çalışma sayfalarını tek tek yeni bir çalışma kitabına kopyalar ve her birini ayrı bir dosya olarak kaydeder. Bu işlem, her sayfanın ayrı bir dosya olarak saklanmasını ve paylaşılmasını sağlar, böylece veri yönetimi ve dağıtımı daha verimli ve düzenli hale gelir. Kod, her bir çalışma sayfasını yeni bir kitaba kopyalar, bu kitabı belirtilen yere kaydeder ve ardından kitabı kapatır. Bu süreç, büyük çalışma kitapları için idealdir ve raporlama ve veri paylaşımı işlemlerini basitleştirir.Faydalanılması temennisiyle