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
Bookmarks