aktif çalışma sayfasının kopyalanıp kapanması

[Erdem Akdemir]

istediğim kod açtığım çalışma kitabının aktif sayfasının kendini yeni bir çalışma kitabına kopyalaması ve kopyalanan çalışma kitabının kapatılması.

 

[Tarkan VURAL]

Yanıt :

Sub benikopyalakapat()
Dim dosyam As String
    dosyam = ActiveWorkbook.Name
        ActiveSheet.Copy
            With ActiveWorkbook
                .SaveAs "c:\" & Date & "_" & dosyam
                .Close
            End With
dosyam = vbNullString
End Sub

Dosyanın kaydedilecek yolunu ve adını saveas satırından değiştirebilirsiniz.

 

[Erdem Akdemir]

Sub benikopyalakapat()
Dim dosyam As String
    dosyam = ActiveWorkbook.Name
        ActiveSheet.Copy
            With ActiveWorkbook
                .SaveAs "c:\" & Date & "_" & dosyam
                .Close
            End With
dosyam = vbNullString
End Sub

Dosyanın kaydedilecek yolunu ve adını saveas satırından değiştirebilirsiniz.

çok çok sağolun

 

[Tarkan VURAL]

Önemli değil...