Koşullu toplam ={TOPLA(EĞER(............} ifadesinin vba karşılığı nedir?

[hsayar]

Koşullu toplam ={TOPLA(EĞER(............} ifadesinin vba karşılığı nedir?

'=TOPLA(EĞER('2007'!$E$5:$E$2262=K9;EĞER('2007'!$F$5:$F$2262=$C$4;EĞER('2007'!$B$5:$B$2262>=$I$4;EĞER('2007'!$B$5:$B$2262<=$M$4;EĞER('2007'!$G$5:$G$2262=R9;EĞER('2007'!$I$5:$I$2262=F9;'2007'!$J$5:$J$2262;0);0);0)))))

 

[karadami]

yanlış hatırlamıyorsam excel de yeni macro kaydet dedikten sonra bir formul yazılırsa vba koduna macroda dönüştürülüyordu. dener misiniz lütfen.

 

[hsayar]

denedimde koşullu toplam olduğu için
activecellformulada veriyordu ben
onu worksheetfunction.sum gibi kullanmam isityorum. ve ben o kısmı anlayamadım.

 

[Zeki Gürsoy]

"Formula" yerine "FormulaArray" kullanmalısınız.

[a1].FormulaArray = _
        "=SUM(IF('2007'!R5C5:R2262C5=R[6]C[6]," & _
        "IF('2007'!R5C6:R2262C6=R4C3,IF('2007'!R5C2:R2262C2>=R4C9," & _
        "IF('2007'!R5C2:R2262C2<=R4C13,IF('2007'!R5C7:R2262C7=R[6]C[13]," & _
        "IF('2007'!R5C9:R2262C9=R[6]C[1],'2007'!R5C10:R2262C10,0),0),0)))))"

 

[hsayar]

işte sorun burada sayın anemos formulü değil değerini for next içinde döngüde yazmak istyiyorum.

 

[hsayar]

worksheetfunction.sum(ToplanacakErimaralığ&#305 gibi kullanılmakta
worksheetfunction.sum((if(koşul1);if(koşul2));(ToplanacakErimaralığ&#305) gibi
nasıl kullanabilirim hocam


'=TOPLA(E&#286;ER('2007'!$E$5:$E$2262=K9;E&#286;ER('2007'!$F$5:$F$2262=$C$4;E&#286;ER('2007'!$B$5:$B$2262>=$I$4;E&#286;ER('2007'!$B$5:$B$2262<=$M$4;E&#286;ER('2007'!$G$5:$G$2262=R9;E&#286;ER('2007'!$I$5:$I$2262=F9;'2007'!$J$5:$J$2262;0);0);0)))))

 

[exes]

deneyemedim ama yazılı böyle olmalı

son = Range("A65536").End(xlUp).Row
Cells(1, 1) = Evaluate("=SUMPRODUCT(('2007'!E5:5" & son & "=" & Cells(9, 11).Address & _
")*('2007'!F5:F" & son & "=" & Cells(4, 3).Address & ")*('2007'!B5:B" & son & ">=" & Cells(4, 9).Address & _
")*('2007'!B5:B" & son & "<=" & Cells(4, 13).Address & _
")*('2007'!G5:G" & son & "=" & Cells(9, 18).Address & _
")*('2007'!I5:I" & son & "=" & Cells(9, 5).Address & ")*('2007'!J5:J" & son & "))")

 

[hsayar]

te&#351;ekk&#252;r ederim denemeye &#231;al&#305;&#351;aca&#287;&#305;m

 

[hsayar]

"Formula" yerine "FormulaArray" kullanmalısınız.

[a1].FormulaArray = _
        "=SUM(IF('2007'!R5C5:R2262C5=R[6]C[6]," & _
        "IF('2007'!R5C6:R2262C6=R4C3,IF('2007'!R5C2:R2262C2>=R4C9," & _
        "IF('2007'!R5C2:R2262C2<=R4C13,IF('2007'!R5C7:R2262C7=R[6]C[13]," & _
        "IF('2007'!R5C9:R2262C9=R[6]C[1],'2007'!R5C10:R2262C10,0),0),0)))))"

hocam bu kodları e5:g2262 vs şeklinde düzenlemek mümkünmüdür?