sum product hakkında

[bravo64]

Merhaba arkadaşlar
satılan sayfamdaki malzeme listemdeki ürünlerden tabela sa-1 sayfasındaki çıkışları toplatmak çabasındayım..Çok çeşitli kodlar denedim ama takıldım kaldım.
kod şöyle
Sub satilan()
On Error Resume Next
Set s1 = Sheets("tabela sa-1")
Set s2 = Sheets("satış")
For a = 2 To 100
For b = 2 To 100
s2.Cells(a, 3) = WorksheetFunction.SumProduct((s1!a14:a56=s2.Cells(b, 2)) * (s1!g14:g56 = s2.Cells(b, 1)) * (s1![e14:e56]))
Next
Next
End Sub
teşekkür ederim..
p/s
sayın leventm nin verdiği linki inceledim ama olmadı..Evaluate("sumproduct((...olarakda yapmaya çalıştım..

 

[bravo64]

s2.Cells(a, 3) = WorksheetFunction.SumProduct((s1!a14:a56=s2.Cells(b, 2)) * (s1!g14:g56 = s2.Cells(b, 1)) * (s1!e14:e56))
olarak düzelttim ama yine olmadı..

 

[mehmett]

Bir de şöyle deneyin;

s2.Cells(a, 3) = WorksheetFunction.SumProduct((s2.Cells(b, 2)=s1!a14:a56) * (s2.Cells(b, 1)=s1!g14:g56) * (s1!e14:e56))

 

[bravo64]

Sevgili zeriqe syntaxerror veriyor..
ilgine teşekkürler..

 

[Levent Menteşoğlu]

Sumproduct vba içinde uygulanabilen bir fonksiyon değildir. Bu sebeple aynı işlemi vbanın klasik kodlarını kullanarak elde etmeniz mümkün.

 

[bravo64]

haklısınız,zaten aramada sizin verdiğiniz linktede aynışeye rastladım..Sormamın sebebi belki süreç içerisinde vba ya uyarlanmış olabilir düşüncesiydi..
İlginize teşekkür ederim..