formülsüz farlı kaydet

muhsar' Alıntı:

Kod:

Sub FormulaConvert()
'Formulleri Değere çevirir
    Selection.Copy
[CODE]Sub FormulaConvert()
    Dim syf As Worksheet
    Dim filePath As String
    For Each syf In ThisWorkbook.Worksheets
        syf.Cells.Copy
        syf.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Next
    Application.CutCopyMode = False
    Application.EnableEvents = False
    Application.DisplayAlerts = False
    filePath = "F:\EVDE SAĞLIK\yedekler\"
    ThisWorkbook.SaveAs filePath & Format(Date, "dd-mm-yyyy") & ".xlsm", FileFormat:=52
    Application.EnableEvents = True
    Application.DisplayAlerts = True
End Sub

Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub[/CODE]

yukardıda formül ile seçili alanı formülsüz olarak kayıt yapıyorum

Kod:

Sub file_date_save()
Dim filePath As String
Application.EnableEvents = False
Application.DisplayAlerts = False
filePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
ThisWorkbook.SaveAs filePath & Format(Date, "dd-mm-yyyy") & ".xlsm", FileFormat:=52
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub

bu kod ilede saydayı masa üstüne farklı kayıt ediyorum

benim yapmak istediğim ;
içinde bulunduğum çalışma kitabını benim gösterdiğim yol a (F:\EVDE SAĞLIK\yedekler)formülsüz olarak günü tarihinden ismini alarak farklı kaydet yapmak

yukarıdaki formülleri nasıl birleştirip istediğimi sağlayabilirim.teşekkürler

Genişletmek için tıklayın ...

Sub FormulaConvert()

    Dim syf As Worksheet

    Dim filePath As String

    For Each syf In ThisWorkbook.Worksheets

        syf.Cells.Copy

        syf.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    Next

    Application.CutCopyMode = False

    Application.EnableEvents = False

    Application.DisplayAlerts = False

    filePath = "F:\EVDE SAĞLIK\yedekler\"

    ThisWorkbook.SaveAs filePath & Format(Date, "dd-mm-yyyy") & ".xlsm", FileFormat:=52

    Application.EnableEvents = True

    Application.DisplayAlerts = True

End Sub