Dosyadaki Formülleri silmek

[Cihat KORKMAZ]

Merhabalar,

Her sayfasında muhtelif formüller bulunan bir dosyayı , başkalarıyla paylaşmam gerektiğinde tüm sekmeleri seçip tüm sayfaları kopyalayıp, daha sonra özel yapıştır diyerek değerleri yapıştırmak suretiyle formülleri silerek paylaşıyorum.

Bu işin daha kolay bir yöntemi var mıdır ? Bir formül ya da makro yolu ile çözebilmenin yolu varsa yardımcı olabilirseniz sevinirim.

 

[turist]

Aşağıdaki Makro'yu deneyin.

Sub FormulSil()
Dim sayfa As Worksheet
    For Each sayfa In ActiveWorkbook.Worksheets
         With sayfa.UsedRange
             .Copy
             .PasteSpecial xlPasteValues
          End With
    Next sayfa
    Application.CutCopyMode = False
End Sub