[ÇÖZÜLDÜ] Fonksiyona yardım edermisiniz

[Maksim]

NewBook.Sheets(1).Range("D7") = "=sum(c7*c4)"

NewBook.Sheets(1).Range("D8") = "=sum(c8*c4)"
NewBook.Sheets(1).Range("D9") = "=sum(c9*c4)"
NewBook.Sheets(1).Range("D10") = "=sum(c10*c4)"
NewBook.Sheets(1).Range("D11") = "=sum(c11*c4)"
NewBook.Sheets(1).Range("D12") = "=sum(c12*c4)"
NewBook.Sheets(1).Range("D13") = "=sum(c13*c4)"
NewBook.Sheets(1).Range("D14") = "=sum(c14*c4)"
NewBook.Sheets(1).Range("D15") = "=sum(c15*c4)"
NewBook.Sheets(1).Range("D16") = "=sum(c16*c4)"
NewBook.Sheets(1).Range("D17") = "=sum(c17*c4)"
NewBook.Sheets(1).Range("D18") = "=sum(c18*c4)"
NewBook.Sheets(1).Range("D19") = "=sum(c19*c4)"
NewBook.Sheets(1).Range("D20") = "=sum(c20*c4)"
NewBook.Sheets(1).Range("D21") = "=sum(c21*c4)"
NewBook.Sheets(1).Range("D22") = "=sum(c22*c4)"
NewBook.Sheets(1).Range("D23") = "=sum(c23*c4)"
NewBook.Sheets(1).Range("D24") = "=sum(c24*c4)"
NewBook.Sheets(1).Range("D25") = "=sum(c25*c4)"
NewBook.Sheets(1).Range("D26") = "=sum(c26*c4)"
NewBook.Sheets(1).Range("D27") = "=sum(c27*c4)"
NewBook.Sheets(1).Range("D28") = "=sum(c28*c4)"​

NewBook.Sheets(1).Range("D29") = "=sum(c29*c4)"

Bu kodlamanı nasıl sade yapa bilirim?
C9 dan C29-a kadar olan hücreler C4-e burulsun.Ve D9 dan D29 a kadar yazılsın

 

[hsayar]

Sub deneme_maksim()
'Workbooks.Add
'Sheets(1).Range("c4") = 40
For i = 7 To 29
    Sheets(1).Range("D" & i).Formula = "=c" & i & "*c4"
Next i
End Sub

' bulunan satırları eklediğimizde sromuş olduğunuz gibi formüller oluşur ancak yeniş açılan kitpta c kolonunda veri olmadığı için d sütunundaki değerler 0 olacaktır.

 

[hsayar]

workbooku mutlaka belirtmek zorunda iseniz;

Sub deneme()
Set YnKtp = Workbooks.Add
For i = 7 To 29
    YnKtp.Sheets(1).Range("D" & i).Formula = "=c" & i & "*c4"
Next i
Set YnKtp = Nothing
End Sub

 

[Maksim]

Yardımınız için Teşekkür ederim....