topla.çarpım

[heft]

Merhaba,
TOPLA.ÇARPIM((G2:G15=G17)*(H2:H15=H17)*(I2:I15=I17)*(J2:J15))
formulünü VBA da nasıl yazmam gerekir?
Bir türlü çözemedim.

 

[Orion1]

Sub topla_sartli()
Dim i As Long, topla As Double
On Error Resume Next
    For i = 2 To 15
        If Cells(i, "G").Value = Range("G17").Value _
        And Cells(i, "H").Value = Range("H17").Value _
        And Cells(i, "I").Value = Range("I17").Value Then
            topla = topla + Cells(i, "J").Value
        End If
    Next i
    MsgBox "SONUÇ : " & Format(topla, "#,##0.00")
End Sub

 

[heft]

Teşekkürler,
cevap gelene kadar bende siteden destek alarak kucaladım.Şöyle bir kod yazdım
Range("G30").Value = Evaluate("=(SUMPRODUCT(G2:G15 = G17)*(H2:H15 = H17)*(I2:I15 = I17)*(J2:J15))")
neden sürekli sıfır (0) çıkıyor sonuç ?

 

[Korhan Ayhan]

Selamlar,

Siz bu şekilde yazmışsınız;

Range("G30").Value = Evaluate("=[COLOR=red]([/COLOR]SUMPRODUCT[COLOR=red]([/COLOR]G2:G15 = G17)*(H2:H15 = H17)*(I2:I15 = I17)*(J2:J15))")

Birde aşağıdaki şekilde yazıp denermisiniz. (Yaptığım değişikliği kırmızı renkle belirttim.)

Range("G30").Value = Evaluate("=SUMPRODUCT[COLOR=red]([/COLOR](G2:G15 = G17)*(H2:H15 = H17)*(I2:I15 = I17)*(J2:J15))")

 

[heft]

Çok teşekkür ederim gerçekten sağ olun...