hücreden formül kopyalama

[k0081]

Merhaba arkadaşlar;

D7 de uzun bir formül var. diyelim. bunu E8 e bire bir olarak,, buton yardımıyla nasıl kopyalatabilirim..? hiçbir değişiklik olmadan yani... D7 de aldığım sonucu E8 de almak istiyorum. (E8 içine =D7 şeklinde değil...)

 

[k0081]

Merhaba arkadaşlar;

D7 de uzun bir formül var. diyelim. bunu E8 e bire bir olarak,, buton yardımıyla nasıl kopyalatabilirim..? hiçbir değişiklik olmadan yani... D7 de aldığım sonucu E8 de almak istiyorum. (E8 içine =D7 şeklinde değil...)

Private Sub CommandButton3_Click()
xFormula = Range("B3").Formula
Range("G3").FormulaArray = xFormula
xFormula = Range("B4").Formula
Range("H3").FormulaArray = xFormula
xFormula = Range("B5").Formula
Range("I3").FormulaArray = xFormula
xFormula = Range("B6").Formula
Range("J3").FormulaArray = xFormula
xFormula = Range("B7").Formula
Range("K3").FormulaArray = xFormula
xFormula = Range("B8").Formula
Range("L3").FormulaArray = xFormula
Application.CutCopyMode = False
End Sub

J3 te 1004 formülarray özelliği kullanılamıyor diye bir hata alıyorum...