How to get the same result given by formula vba Scripting Dictionary?

Please see attached file.

currently  i get the correct result via formula.  but it is too slow. i need help to be able to generate the same result via VBA scripting dictionary. or any other way that would be via VBA.


=SUMPRODUCT(DataAMOUNT,--ISNUMBER(MATCH(DataYear,{2011,2012},0)),1-ISNUMBER(MATCH(DataMonth,{111},0)),--ISNUMBER(MATCH(LEFT(DataPRODUCT&"#",1),{"5","6","7"},0)))

Open in new window

EE.xlsb
LVL 6
FloraAsked:
Who is Participating?
 
Rgonzo1971Commented:
Hi,

pls try
Sheets("Main").Range("B5") = Evaluate("=SUMPRODUCT(DataAMOUNT,--ISNUMBER(MATCH(DataYear,{2011,2012},0)),1-ISNUMBER(MATCH(DataMonth,{111},0)),--ISNUMBER(MATCH(LEFT(DataPRODUCT&""#"",1),{""5"",""6"",""7""},0)))")

Open in new window

Regards
1
 
FloraAuthor Commented:
Thanks very much.  this is good.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.