sumproduct not calculating the correct dates

[Lman]

I have put together the following code (with help from this and another forum):

Dim Res1 As Integer
Res1 = Worksheets("sheet1").Evaluate("=sumproduct(--(am1:am30000>=date(2009,08,01)),--(am1:am30000>date(2009,09,01)),BN1:BN30000)")
MsgBox Res1

it seems to work (by which i mean it runs error free). However the number it calculates is not correct.

I came up with this code to do the following:

Check for a date between 2 dates (08/01/09 and 09/01/09 for example).
Then add up and return all the values in BN1:BN30000 for any rows that have a date matching that query.


However what the code above seems to give me is anything greater that 9/1/09

thanks

[royUK]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

[royUK]

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution. Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.
To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

[Lman]

i can get it to work using the following code:

Dim Res1 As Long
Dim Res2 As Long
Res1 = Worksheets("sheet1").Evaluate("=sumproduct(--(am1:am30000>=date(2009,08,01)),BN1:BN30000)")
Res2 = Worksheets("sheet1").Evaluate("=sumproduct(--(am1:am30000>=date(2009,09,01)),BN1:BN30000)")
MsgBox Res1 - Res2

however i can't see to combine it under one statement

[NBVC]

How about?

Res1 = Worksheets("sheet1").Evaluate("=SUMPRODUCT(--(AM1:AM30000>=DATE(2009,8,1)),--(AM1:AM30000<=DATE(2009,9,1)),BN1:BN30000)")

[Lman]

duh!!...thanks..i knew it was something simple..i couldn't see the wood for the trees i guess....thanks for your help!!!