farklı kaydet

[muhsar]

Sub FormulaConvert()
'Formulleri Değere çevirir
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, _
     Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

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

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 sayfayı 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ün tarihinden ismini alarak farklı kaydet yapmak

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

 

[Muzaffer Ali]

Merhaba.
Şu satır masaüstü klasörünü seçiyor.

filePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator

onun yerine şu satırı kopyalayın.

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

 

[muhsar]

Merhaba.
Şu satır masaüstü klasörünü seçiyor.

filePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator

onun yerine şu satırı kopyalayın.

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

hocam makroyu birleştirip çalıştırdım farklı kaydet ve yol olayı tamam fakat formülleri ile kopyaladı,sebebi ilk kod çalışmadı çünkü seçili alan yok,bu çalışma kitabının tamamını seç kısmını ilk formüle nasıl ilave edebilirim

Sub FormulaConvert()
'Formulleri Değere çevirir
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, _
     Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
Dim filePath As String
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

yukarıdaki şekilde kullandım formülü

 

[Muzaffer Ali]

Şöyle olacak.

Sub FormulaConvert()
'Formulleri Değere çevirir
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Dim filePath As String
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

 

[muhsar]

Şöyle olacak.

Sub FormulaConvert()
'Formulleri Değere çevirir
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Dim filePath As String
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

hocam ilginiz için çok teşekkür ederim ;tek sorunum kaldı içinde bulunduğum sayfayı seçip değere çeviriyor,ben tüm çalışma kitabını yani diğer sayfalarıda seçip onlarıda formülleri değere çevirerek farklı kaydetmek istiyorum,

kısaca çalışma kitabındaki tüm sayfalara ilk formülü uygula kısmını ilave ederseniz çok sevinirim tekrar teşekkürler

 

[Muzaffer Ali]

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

 

[muhsar]

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

çok teşekkür ederim,elinize sağlık