Yardımcı Olabilecek Var mı ?

[67kanka67]

Aşağıda verdiğim kodlar sorunsuz çalışıyor. Benim istediğim şey bu kodu çalıştırınca excelde formül varsa onları iptal ediyor. Farklı kaydediyor ve orjinal sayfayı kapatıyor. Her şey sorunsuz ama değiştiremediğim 2 nokta var bu noktalarda yardım gerekiyor.

1) Düğmeye tıklayınca asıl çalışma sayfasını istediğim şekilde kaydetsin. ( Örneğin : Çalışma Kitabı4 )
2) Asıl çalışma sayfasında yapılan değişiklikleri kaydetmesin.

Sub Dikdörtgen4_Tıkla()
    Dim w As Long
    For w = 1 To Sheets.Count
        Sheets(w).UsedRange = Sheets(w).UsedRange.Value
    Next w

    ThisWorkbook.SaveAs _
      ThisWorkbook.Path & Chr(92) & _
        Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, Chr(46)) - 1) & Format(Date, "_yyyy-mm"), _
      xlOpenXMLWorkbook '
       MsgBox Prompt:="Sorunsuz kaydedildi"
End Sub

 

[Necdet]

Merhaba,
Konu başlığınız sorunuzu özetler nitelikte olmalı.
Kimse l"Yardımcı olabilecek var mı" diye arama yapmaz.