Makronun VBA da yazım şekli

[Yesilyurtlu]

Formül = TOPLA.ÇARPIM((YUVARLA((C9*E9);2)))

Sumproduct((Round((RC[-3]*RC[-1]);2

Değerli uzmanlarım
yukarıdaki formül işlemini makro olarak "şayet doğru ise yazdığım " bir düğmeye atayabilmem için ne yapabilirim?
Yani düğmeye basınca yukarıdaki işlemi yapacak.

 

[Ömer]

Merhaba,

Sub Formul()
    [A1] = "=SumProduct((Round(C9*E9,2)))"
End Sub

Bu şekilde olabilir.

.

 

[Yesilyurtlu]

Ömer abi yukarıdaki mesajın A1 hücresine yazı ile yazıyor.
benim öğrenmek istediğim ise;
= TOPLA.ÇARPIM((YUVARLA((C9*E9);2))) formülü ile hücrede işlem yapabiliyorum. Bu işlemi
Makro ile nasıl yapabilirim?
Sumproduct((Round((RC[-3]*RC[-1]);2)))
-3 = Teklif Fiyatı
-1 = Adedi

 

[Ömer]

Sorunuz anlaşılmıyor. Detaylı açıklama yapınız. R1C1 stili ile de yapılabilir, sadece tek hücrede değilde soru daha detaylı ise örnek ekleyiniz.

Formül görünmeden hesaplama sonucunun hücreye yazmasını mı istiyorsunuz.

Sub Formul()
    [A1] = Evaluate("=SumProduct((Round(C9*E9,2)))")
End Sub

.

 

[Yesilyurtlu]

öMER Abi bu kod işimi gördü teşekkür ederim

 

[Yesilyurtlu]

[K9] = Evaluate("=SumProduct((Round(E9+I9+G9)/K1),2)))")

öMER ABİ bunuda düzeltebilir misin? Allah rızası için

 

[Ömer]

[K9] = Evaluate("=SumProduct((Round((E9+I9+G9)/K1,2)))")

Bu şekilde olabilir. Yalnız bu formüllerde neden topla.çarpımı kullandığınızı anlayamadım.

[K9] = Evaluate("=Round((E9+I9+G9)/K1,2)")

Bu formülde aynı görevi yapar.

.

 

[Yesilyurtlu]

Yalnız bu formüllerde neden

Ömer abi "topla.çarpımı kullandığınızı anlayamadım." demişsiniz
Hele bana de ki sen makro biliyor musun? Bildiğinden mi yaptın.
Yok vallaha. Aceminin yaptığı da ancak böyle olur abi.

Ama yinede minnettarım abi .Yardımını esirgemediğin için

Dua İle