Error with sumproduct

[YasserKhalil]

Hi everybody
I wrote the following code but I encountered an error at the line of sumproduct

Here's the code
[VBA]Dim LastRow As Integer: Dim cel, rng, rngkind, rngsales As Range
LastRow = Cells(Rows.Count, "D").End(xlUp).Row
Set rng = Range("D2" & LastRow)
Set rngkind = Range("Kind")
Set rngsales = Range("Sales")
Application.ScreenUpdating = False
For Each cel In rng
cel.Offset(0, 2) = Application.WorksheetFunction.SumProduct((rngkind = cel.Value) * (rngsales))
Next cel
Application.ScreenUpdating = True
[/VBA]

[YasserKhalil]

UP

[mdmackillop]

From memory, SumProduct is not available as a WorksheetFunction within vba. You can use Evaluate though.

[Bob Phillips]

[vba]

cel.Offset(0, 2) = Application.Sumif(rngkind, cel.Value, rngsales)
[/vba]

[YasserKhalil]

Thank you very much
It's nice to have different solutions
Here's another link to the same problem
http://www.mrexcel.com/forum/showthread.php?t=505572

[Bob Phillips]

Oh, so you are a cross-poster. Thanks for the info, I know to ignore your posts now.

[YasserKhalil]

Oh, so you are a cross-poster. Thanks for the info, I know to ignore your posts now.

Sorry Mr. xld but I was in a bad need to correct the code
And when I can't get a quick solution, I tried MrExcel to have a quick one
My apology for you...!!

[Bob Phillips]

You don't have to apologise to me, I am a free person and I make my own choices just as you do.

I don't like cross-posting as I feel it shows a total disregard for the people who try and help provide solutions, and as I such as soon as I know about cross-posting I will not get involved in trying to help provide that person a solution, even if it is clear that they still require one.

And, I take that approach forward into future posts.