Sayıyı Formüle Çevirme

[Seyit Tiken]

Herkese Selamlar,
Aşağıdaki kod formülleri sayıya çeviriyor. Yani çalışma sayfasında formül(ler) varsa, çalıştırıldığında normal sayıya dönüşüyor.

Sub Form2val()
For Each c in Selection.Cells
c.formula=c.value
Next c
End Sub

Bu kod tersten yapılabilir mi? Yani sayıya dönüştürülmüş formül(leri) tekrar formül haline getirilebilir mi?
Teşekkür ediyorum.

 

[Levent Menteşoğlu]

Kodlarınızı aşağıdaki gibi düzenlerseniz formüllerinizi gerial isimli prosedürü çalıştırarak geri alabilirsiniz. Yalnız şunuda hatırlatayım sadece son yaptığınız dönüşümü geri alabilirsiniz.

[vb:1:ac1345e0ba]Dim f, adr, say

Sub Form2val()
say = Selection.Cells.Count
ReDim f(say), adr(say)
For Each c In Selection.Cells
d = d + 1
f(d) = c.Formula
adr(d) = c.Address
c.Formula = c.Value
Next c
End Sub

Sub gerial()
For a = 1 To say
Range(adr(a)) = f(a)
Next
End Sub
[/vb:1:ac1345e0ba]

 

[Seyit Tiken]

Allah razı olsun.