Hücredeki Formülü Sayıya Çevirme

[airborne]

s.a.

ekli dosyada E1 hücresindeki formül sonucu yapılan işlemi sayıya dönüştürebiliyorum. Benim istediğim D1 ve E1 hücrelerinin ikisinin de sayıya dönüşmesi. Bunun için makroda nasıl bir düzeltme yapılmalıdır

 

[Mahir64]

Merhaba,

Sayıya çevirmekten kastınız nedir?

 

[YUSUF44]

Sayı makrosuna gerek olmadan aşağıdaki kodları kullanabilirsiniz:

Sub Makro1()

    Range("D1").FormulaR1C1 = "=IF(RC[-3]="""","""",ROUND((RC[-2]*RC[-1]),2))"

    Range("E1").FormulaR1C1 = "=IF(RC[-4]="""","""",ROUND((RC[-1]*15%),2))"
    Range("D1:e1").Select
        For Each fCell In Selection
            fCell.Value = fCell.Value
        Next fCell
    Range("D1").Select
End Sub

 

[airborne]

s.a.

Teşekkür ederim.

Selametle..............................