Makroya formül ekleme

[sirkülasyon]

Cells(.Row, "Q") =

EĞER(F10>0;YUVARLA(((G10/F10)*N10)+((H10/F10)*O10)+((I10/F10)*P10);3);"")

birinci koda altta yer alan formülü nasıl ekleyebilirim?

Yardımlarınızı bekliyorum.

 

[Ömer BARAN]

Merhaba.
.

If [F10] > 0 Then Cells(10, "Q") = Round((([G10] / [F10]) * [N10]) + (([H10] / [F10]) * [O10]) + (([I10] / [F10]) * [P10]), 3)

 

[sirkülasyon]

Sayın Ömer BARAN
Yardımınızı esirgemediğiniz için Teşekkür eder saygılarımı sunarım.

 

[Ömer BARAN]

Tekrar merhaba.

10'uncu satırdan 50'nci satıra kadar işlem yapmak için;
(işlemi bir düğmeye atayacağınız kod ile yapmak istediğinizi düşündüm)
.

[FONT="Arial Narrow"]Sub sirkulasyon()
For brn = [B][COLOR="red"]10[/COLOR][/B] To [B][COLOR="red"]50[/COLOR][/B]
    Cells(brn, "Q") = ""
    If Cells(brn, "F") > 0 Then _
        Cells(brn, "Q") = Round(((Cells(brn, "G") / Cells(brn, "F")) * Cells(brn, "N")) + _
                                ((Cells(brn, "H") / Cells(brn, "F")) * Cells(brn, "O")) + _
                                ((Cells(brn, "I") / Cells(brn, "F")) * Cells(brn, "P")), 3)
    Cells(brn, "Q").NumberFormat = "#,##0.000_ ;[Red]-#,##0.000 "
Next
End Sub[/FONT]

 

[sirkülasyon]

Ellerine Koluna Sağlık.
Teşekkür Ederim.

 

[Ömer BARAN]

Ellerine Koluna Sağlık.
Teşekkür Ederim.

Eyvallah, Malatya'ya selam olsun.