Results 1 to 10 of 10

SUMIF function don't return same result with Evaluate and Application.WorksheetFunction

Threaded View

zbor SUMIF function don't return... 10-31-2012, 09:16 AM
JosephP Re: SUMIF function don't... 10-31-2012, 09:23 AM
zbor Re: SUMIF function don't... 10-31-2012, 09:29 AM
zbor Re: SUMIF function don't... 10-31-2012, 10:03 AM
JosephP Re: SUMIF function don't... 10-31-2012, 10:14 AM
zbor Re: SUMIF function don't... 10-31-2012, 10:17 AM
JosephP Re: SUMIF function don't... 10-31-2012, 10:33 AM
zbor Re: SUMIF function don't... 10-31-2012, 10:41 AM
JosephP Re: SUMIF function don't... 10-31-2012, 10:49 AM
zbor Re: SUMIF function don't... 10-31-2012, 12:48 PM
  1. #1
    Forum Moderator zbor's Avatar
    Join Date
    02-10-2009
    Location
    Croatia
    MS-Off Ver
    365 ProPlus
    Posts
    16,143

    SUMIF function don't return same result with Evaluate and Application.WorksheetFunction

    Can someone look here to see why Aplication.WorksheetFunction.SumIf return 0 at this:

    Sub test()
    Dim ws1 As Worksheet, ws2 As Worksheet 'There's more
    Set ws1 = Worksheets("Sheet1")
    Set ws2 = Worksheets("Sheet2")
    
    Dim test As Double
    
    Dim rng As Range, rng2 As Range
    
    ws1.Range("A1").Value = ""
    Set rng = ws2.Range("A1:A1500")
    Set rng2 = ws2.Range("A1:A1500").Offset(0, 6)
    
    ' test = Evaluate("=COUNTIF(A1:A1500,""<= "" & Now())")
    test = Evaluate("SUMIF(Sheet2!A2:A1500, ""<="" & NOW(), Sheet2!G2:G1500)")
        MsgBox "test 1: " & test
    test = Application.WorksheetFunction.SumIf(rng, "<=" & Now(), rng2)
    ws1.Range("A1").Value = test
    
        MsgBox "test 2: " & test
    
    End Sub
    Attached Files Attached Files
    Last edited by zbor; 10-31-2012 at 09:29 AM.
    Never use Merged Cells in Excel

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1