Formülü değere çevirme...

[hsamli]

Merhaba Arkadaşlar
Bir hücredeki formülden elde edilen sayısal değeri "Özel Yapıştır" kullanmadan makro ya da fonksiyonla başka bir hücreye nasıl aktarırım ? Yardımcı olursanız memnun olurum...

 

[Leoncio]

Merhaba;
Aşağıdaki kod işinizi görür mü?

Sub formullerin_hepsini_deger_yap()
Dim sayfa As Integer
Dim hucre As Range
'alttaki kod olmazsa ilk sayfanın formülleri kalıyor diğerleri değer oluyor.
On Error Resume Next 'bu kodu ilave edince sayfalarýn hepsini deðer yaptý
For sayfa = 2 To Sheets.Count
For Each hucre In Sheets(sayfa).Cells.SpecialCells(xlCellTypeFormulas)
hucre.Value = hucre.Value
Next
Next

End Sub

 

[Seyit Tiken]

Bu kodui bir deneyin. B1 hücresi formüllü olarak varsayılmıştır. C1'e değer olarak aktarma yapmaktadır.

Sub Düğme1_Tıklat()
[C1] = [B1]
End Sub

 

[hsamli]

Çok Teşekkürler...