With yardımı

[kadir78]

İyi günler. Aşağıdaki kodlar ile yazılan aralıkdaki hücrelere formül yazıyor. Formülü hücre içerisine yazmadan işlem yapmasını sağlayamadım. Yardımcı olurmusunuz.

dim s1 as worksheet

set s1 = sheets("Anasayfa")

son = s1.cells(s1.rows.count, 1).end(3).row

with range("H2:H" & son)
.formula = "=ROUND(E2*F2,0)*G2"
end with

with range("I2:I" & son)
.formula = "G2-(K2+N2)"
end with

 

[Muzaffer Ali]

Merhaba.

Sub tets()
    With Sheets("Anasayfa")
        son = .Cells(.Rows.Count, 1).End(3).Row
        .Range("H2:H" & son) = WorksheetFunction.Round(.Range(E2) * .Range(F2), 0) * .Range(G2)
        .Range("I2:I" & son) = .Range(G2) - (.Range(K2) + .Range(N2))
    End With
End Sub

 

[Korhan Ayhan]

İlk blok için örnek veriyorum. Diğerini siz yazarsınız.

With range("H2:H" & son)
.Formula = "=ROUND(E2*F2,0)*G2"
.Value = .Value
End With