Sütunda makro ile formül yazdırma

[s.savas]

Merhaba arkadaşlar.
Ekli dosyada RAPOR isimli sayfanın;
D sütununa: 6 satırdan son dolu satıra kadara

"=Ocak!RC[1]"

formülünü
E sütununa: 6 satırdan son dolu satıra kadara

"=SUM(Ocak:Aralık!RC[35])"

formülünü
F sütununa: 6 satırdan son dolu satıra kadara

"=SUM(Ocak:Aralık!RC[31]:RC[33])"

formülünü
G sütununa: 6 satırdan son dolu satıra kadara

"=SUM(Ocak:Aralık!RC[34])"

formülünü
H sütununa: 6 satırdan son dolu satıra kadara

"=Aralık!RC[34]"

formülünü
bir procedur veya bir buton vasıtasıyla nasıl yazdırırız.
Yardımcı olacak arkadaşlara teşekkür ederim.

 

[s.savas]

Arkadaşlar aşağıdaki kod ile çözüme bir adım yaklaştım, fakat kod tüm sütuna formülü yazıyor. Kodu 6.satırdan son dolu satıra kadar yazacak şekilde nasıl düzenleriz.

Sub formül_yaz()
Range("D6:D" & Range("D:D").Rows.Count).Formula = "=Ocak!RC[1]"
Range("E6:E" & Range("E:E").Rows.Count).Formula = "=SUM(Ocak:Aralık!RC[35])"
Range("F6:F" & Range("F:F").Rows.Count).Formula = "=SUM(Ocak:Aralık!RC[31]:RC[33])"
Range("G6:G" & Range("G:G").Rows.Count).Formula = "=SUM(Ocak:Aralık!RC[34])"
Range("H6:H" & Range("H:H").Rows.Count).Formula = "=Aralık!RC[34]"
End Sub