Formülleri Sabit Değere Dönüştürme Kodu

[baydeniro]

Merhaba Arkadaşlar,

Excel dosyasındaki tüm sayfalardaki formülleri tek makro kodu ile SABİT DEĞERE DÖNÜŞTÜRMEK mümkün mü acaba ?

 

[turist]

Deneyin
Sub SabitDegereDonustur()
Dim sayfa As Worksheet
For Each sayfa In ThisWorkbook.Worksheets
sayfa.Cells.Copy
sayfa.Cells.PasteSpecial xlPasteValues
Next
Application.CutCopyMode = False
End Sub

 

[turist]

Alternatif olarak , deneyin.
Sub FormulleriSabitDegereDonustur()
Dim Sayfa As Worksheet
For Each Sayfa In ActiveWorkbook.Worksheets
With Sayfa.UsedRange
.Value = .Value
End With
Next Sayfa
End Sub

 

[baydeniro]

Üstadım turist mükemmelsiniz. Çok çok teşekkür ediyorum. Elinize, emeğinize, aklınıza sağlık. Sağlıcakla kalın.

 

[turist]

Sağ olun, iyi çalışmalar.

 

[İdris SERDAR]

.

Alternatif:

Sub Deger()

With ActiveSheet.UsedRange
    .Value = .Value
End With

End Sub

.

 

[baydeniro]

İdris Serdar üstadım çok teşekkür. Harika bir alternatif oldu. Sağlıcakla kalın.