VBA'da Formül Yazma

[efsane81]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A2:A50")) Is Nothing Then
Application.EnableEvents = False
Cells(Target.Row, 4).Value = "=RC[-1]*AltinFiyati!RC"
Application.EnableEvents = True
End If
End Sub

Yukarıdaki Makroyu Sayfanın kod Bölümüne yazıyorum. Gayet iyi çalışıyor ama istediğim şekilde çalışmıyor.
Cells(Target.Row, 4).Value = "=RC[-1]*AltinFiyati!RC"
Formulu bu şekilde değilde
Cells(Target.Row, 4).Value = "=RC[-1]*AltinFiyati!D2"
şeklinde yazmasını istiyorum.
yani her satırda RC[-1] değişkeninin AltinFiyati!D2 sabiti ile çarpılmasını istiyorum mümkünmü

 

[bykursat]

dosya ekleyebilrisen yardımcı olmak daha kolay olur, tşk.

 

[efsane81]

Örnek dosyayı ekledim

Hocam Çok Araştırdım buna benzer bir örnek bulamadım sabahtan beri kendim uğraşıyorum artık midem ağrımaya başladı sıkından
ilginiz için teşekkürler bykursat

 

[bykursat]

Cells(Target.Row, 4).Value = "=RC[-1]*AltinFiyati!RC" kodunu

Cells(Target.Row, 4).Value = "=RC[-1]*AltinFiyati!R2C4" olarak değiştirin

 

[fedeal]

"=RC[-1]*AltinFiyati!RC"
yukardaki kodu alttakiyle degiştirip deneyin
"=RC[-1]*AltinFiyati!R2C"

 

[efsane81]

Çok Teşekkürler Gerçekten Ellerinize sağlık Bu Sitedeki arkadaşların hakkı nasıl ödenir. Allah Razı olsun hepinizden.