Yalnız Çalışma Sayfası Kaydetme

[Seyit Tiken]

Bir çalışma kitabında açık olan sayfayı (aktif olan) makro ile nasıl kaydedebilirz? Butonla. Yani çalışma kitabında hangi sayfa açık ise yalnız o sayfadaki veriler kaydedilsin. Teşekkür ediyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Bu kod active sayfayı yeni bir dosyaya aktarır ve o dosyayı açık olan dosyanızın bulunduğu klasöre kaydedip kapatır.

Sub kopyala()
ad = ActiveWorkbook.Name
adr = ActiveWorkbook.Path
Workbooks.Add
ad2 = ActiveWorkbook.Name
Set s1 = Workbooks(ad2)
Workbooks(ad).Activate
ActiveSheet.Copy after:=s1.Sheets(s1.Sheets.Count)
For a = 1 To s1.Sheets.Count - 1
Application.DisplayAlerts = False
s1.Sheets(1).Delete
Next
s1.SaveAs Filename:=adr & "\" & s1.Name & ".xls"
s1.Close
End Sub