Makrolu dosyayı makroyla makrosuz olarak kaydetme

[caca85]

Arkadaşlar merhaba;

Mesela "Ali" isminde makroyla hesap yapan bir dosyam var. Ben bunu "Veli" isminde makrosuz olarak masaüstüne kaydetmek istiyorum.Makro her hesap yaptığında bunu otomatik hale getirmek istiyorum. Ayrıca "aynı isimde bir dosya var.varolanla değiştirilsin mi?" gibi bir uyarı da çıkmasını istemiyorum. Kod satırının sonuna ne yazmalıyım ki böyle bir işlem yapabilsin?

Bu konuda yardımlarınızı bekliyorum.

 

[askm]

Aşağıdaki şekilde deneyin.

Sub askm_Makrosuz_Kaydet()

    With ThisWorkbook
        .Sheets.Copy
        ActiveWorkbook.SaveAs _
            Filename:=Replace(.FullName, ".xlsm", ".xlsx"), _
            FileFormat:=xlOpenXMLWorkbook
    End With
    ActiveWorkbook.Close False 'xlsx doyayı kapatmak için

End Sub

 

[caca85]

Aşağıdaki şekilde deneyin.

Sub askm_Makrosuz_Kaydet()

    With ThisWorkbook
        .Sheets.Copy
        ActiveWorkbook.SaveAs _
            Filename:=Replace(.FullName, ".xlsm", ".xlsx"), _
            FileFormat:=xlOpenXMLWorkbook
    End With
    ActiveWorkbook.Close False 'xlsx doyayı kapatmak için

End Sub

Sayın askm denedim ve çalıştı. Çok teşekkür ederim. Ancak bişey daha sormak istiyorum.2.kez çalıştırıldığında " aynı isimde bir dosya var.varolanla değiştirilsin mi?" gibi bir uyarının çıkmasını engelleyemeyiz değil mi?

 

[askm]

Kodların başına aşağıdaki kodu ekleyin.
Application.DisplayAlerts = False