Sumif with dates

[Natit]

Hi,
I want to sum the cells in Column A in condition that the date in Column B is later than 1/1/2016.
I need it for VBA because I'm running this on 100 sheets.
TIA
Nati

 

[PCL]

Try
Somewhere put =SumDate(A1:B14;"1/1/2016")
Adjust the range to your need

Option Explicit
Function SumDate(WkRg As Range, WkDate As Date) As Double
Dim Rg  As Range
    For Each Rg In WkRg.Columns(1).Cells
        If (Rg.Offset(0, 1) < WkDate) Then SumDate = SumDate + Rg
    Next Rg
End Function

 

[Natit]

I thought there is a simple SUMIF option' to save the loop

 

[PCRIDE]

Just curious how this works as a VB. I use SUMIFS all the time with multiple columns /rows and nest several. If I did VB how does it execute ? I guess it’s all programmed

 

[PCL]

there is a simple SUMIF option' to save the loop

Yes of course

Function SumDate1(WkRg As Range, WkDate As Date) As Double
Dim Rg  As Range
    SumDate1 = Application.SumIf(WkRg.Columns(2).Cells, "<1/1/2016", WkRg.Columns(1).Cells)
End Function