Hücredeki formülü makro olarak yazma

[desinger07]

Sayın Arkadaşlar önemli bir yerde takıldım kaldım
hücrede yazılı olan bu formülü makroda kod satırına bir türlü yazamadım hata veriyor hep yardımcı olabilirmisiniz

=1,325/(LN((J10/3,7/D10)+(5,74/L10^0,9)))^2

Teşekkürler

 

[ReBiwAr]

Sub designer07()
Range("I283").Select
ActiveCell.FormulaR1C1 = _
"=1.325/(LN((R[-273]C[1]/3.7/R[-273]C[-5])+(5.74/R[-273]C[3]^0.9)))^2"
End Sub

Buradaki Range kısmı formülün yazılacağı hücredir.

İyi Çalışmalar.

 

[desinger07]

teşekkürler