Application.WorksheetFunction.SumProduct

[merakli_72]

mrb,
Aşağıdaki formülü hücre içine yazdırınca sorun yok;

Cells(SatiR, j) = "=(SUMPRODUCT((Kotalar!R2C4:R" & Kotalar_Son_Satir & "C4=Sonuc!RC1)*" _
& "(Kotalar!R2C11:R" & Kotalar_Son_Satir & "C11=Sonuc!R1C)* " _
& "(Kotalar!R2C10:R" & Kotalar_Son_Satir & "C10))/" _
& "SUMIF(Kotalar!R2C11:R" & Kotalar_Son_Satir & "C11,Sonuc!R1C,Kotalar!R2C10:R" & Kotalar_Son_Satir & "C10))*R3C"

Formülü yazdırnak yerine Application.WorksheetFunction.SumProduct ile sonucu hesaplayıp yazdırayım dediğimde hata veriyor
Yukarıdaki formül Application.WorksheetFunction.SumProduct ile nasıl yazılabilir acaba.
Teşekkürler

 

[Korhan Ayhan]

Selamlar,

Forumda EVALUATE şeklinde arama yapın.

 

[merakli_72]

Sayın Korhan bey, örnekleri inceledim;
MsgBox Evaluate("=SUMPRODUCT((Kotalar!R2C4:R" & Kotalar_Son_Satir & "C4=Sonuc!RC1)*" _
& "(Kotalar!R2C11:R" & Kotalar_Son_Satir & "C11=Sonuc!R1C)* " _
& "(Kotalar!R2C10:R" & Kotalar_Son_Satir & "C10))")

şeklinde yazınca Type Mistmach hatası veriyor

iew/Immediate windows penceresinden yazdırınca fonksiyon aşağıdaki şekilde görünüyor, hata nerde acaba
=SUMPRODUCT((Kotalar!R2C4:R5794C4=Sonuc!RC1)*(Kotalar!R2C11:R5794C11=Sonuc!R1C)* (Kotalar!R2C10:R5794C10))

Teşekkürler

 

[merakli_72]

NOT:Kota lar şeklinde yazım yok kotalar, kopyalarken hatalı olmuş

 

[hamitcan]

Dosya eklerseniz daha çabuk cevap bulabilirsiniz.