Check for date and add other cell value to variable

[jarhead58]

Hey all! I am trying to check a range of cells in col a to see if they fall within this year and if so, add the value of a column/cell, say "I" in the same row to "b". Here is the code I'm trying to use.

Private Sub Worksheet_Activate()
Dim a As Integer
Dim b As Integer
Dim StartDate As Long
Dim EndDate As Long
Dim totl As Long
Dim rng As Range
Dim daterng As Range

StartDate = "1/1/2021"
EndDate = "12/31/2021"

a = 0
b = 0

Set daterng = Range("A2:A366")
Set rng = Range("I2:I366")

For Each cell In rng
If daterng >= StartDate And daterng <= EndDate Then
If cell > -15 Then
        b = cell.Value + 15
        totl = totl + b
      Else
      End If
    End If
Next cell
Range("J9").Value = totl
    
End Sub

 

[jarhead58]

Disregard the references to "a". Never removed them.

 

[jarhead58]

Admins, just wanted to let you know that I am also inquiring with excelforum.com on the same subject to broaden the field. If it's a problem, feel free to remove my post. I understand that there is a lot going on so I'm not going to press anyone for answers; you all do this for free and it is greatly appreciated!

 

[Fluff]

Thanks for letting us know that you have asked this question elsewhere, can you please a link to your thread on Excel Forum.

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

 

[jarhead58]

compare cells to dates [SOLVED]

Hey all! I am trying to check a range of cells in col a to see if they fall within this year and if so, add the value of a column/cell, say "I" in the same row to "b". Here is the code I'm trying to use. TIA Private Sub Worksheet_Activate() Dim b As Integer Dim StartDate As Date Dim...

www.excelforum.com