Soru Farklı Kaydet

[velim32]

Merhaba,
Excel dosyasındaki "Gün_sonu" isimli sayfayı tek başına mevcut olan günün adı ile (ör 17.02.2021 ) xlsx dosyası olarak kaydetsin ama aynı isimli dosya varsa soru sormaksızın var olanla değiştirsin istiyorum. Çok şey mi istiyorum bilmiyorum ama yardım ederseniz sevinirim.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Farkli_Kaydet()
    Sheets("Gün_sonu").Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Date & ".xlsx", 51
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
End Sub

 

[velim32]

Teşekkür ederim
Forumdaki ilk sorum bu kadar hızlı cevap ve harika bir sonuç