yeni kitap Sadece bir sayfadan oluşsun.

[Yüksel Varlı]

Merhaba,

Dim sFileName As String
sFileName = Format(Now, "dd_mm_yyyy,hh_mm") & " " & [C6] + ".xls"
ActiveWorkbook.SaveAs sFileName

Yukarıdaki kodlarla çalışma kitabını farklı kaydedebiliyoruz. Ancak kitabın tüm sayfalarını, hatta formları bile kaydediyor. Sadece aktif sayfayı kaydetmek mümkü müdür acaba?
Selamlar.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Dim sFileName As String
sFileName = Format(Now, "dd_mm_yyyy,hh_mm") & " " & [C6] + ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs sFileName

 

[Yüksel Varlı]

Teşekkürler leventm kardeş.