Extracting data from excel table if it is between two given dates and then adding the numbers using VBA code

[ashishscores]

I have a table in excel having eight columns which includes year, date of deposit and total fees. Now, if date of deposit is between two given dates and it pertains to year 2019-20 then I am trying to extract value from corresponding fee column. I am trying to get total fees deposited between two given dates for a particular year. But i am not getting desired result. Kindly help.
I am using If and else statement and For each loop.

Sub Macro12()

Dim Cell As Range

Dim Cell2 As Range

For Each Cell In Range("D2:D25")
  
  
' If (Cell.Value >= DateValue("1 / 5 / 2019")) And (Cell.Value <= DateValue("30 / 4 / 2020")) Then
If (Cell.Value >= 43586) And (Cell.Value <= 43951) Then


    For Each Cell2 In Range("C2:C25")
    
        If Cell2.Value = "2020-21" Then

        Range("I3").Value = Cell2.Value
        Range("J3").Value = Range("J3").Value + Cell2.Offset(0, 5).Value
          
          
        Else
    
        Range("I4").Value = "other years"
        Range("J4").Value = Range("J4").Value + Cell2.Offset(0, 5).Value
       
                        
      End If
    Next Cell2
 
' ElseIf (Cell.Value >= DateValue("1 / 5 / 2021")) And (Cell.Value <= DateValue("30 / 4 / 2022")) Then

ElseIf (Cell.Value >= 43599) And (Cell.Value <= 43599) Then


Range("M3").Value = "step 1 clear"

End If

Next Cell

End Sub

 

[hernantorres23]

Hi, next time please try prepare a data example using add-in specifically for this, it can be found here XL2BB
Note: If would necessary, pay attention to this post XL2BB 2 Squares

Data example ?

Book1
	A	B	C	D	E	F	G	H
1	Start date	01/12/2019			Total
2	End date	30/03/2020
3
4	year	date_deposit	total_fees		date_deposit	amount	cumulative
5	2018	01/10/2018	50
6	2019	12/06/2019	23
7	2019	20/12/2019	58.6
8	2020	13/03/2020	47
9	2020	08/05/2020	59
10	2020	06/07/2020	894
11	2018	06/08/2018	2589
12	2016	05/04/2016	35
13	2020	04/01/2020	21
14	2020	25/02/2020	580
15
Sheet1

And after run code ?

Book1
	A	B	C	D	E	F	G	H
1	Start date	01/12/2019			Total	706.60
2	End date	30/03/2020
3
4	year	date_deposit	total_fees		date_deposit	amount	cumulative
5	2018	01/10/2018	50		20/12/2019	58.60	58.6
6	2019	12/06/2019	23		13/03/2020	47.00	105.6
7	2019	20/12/2019	58.6		04/01/2020	21.00	126.6
8	2020	13/03/2020	47		25/02/2020	580.00	706.6
9	2020	08/05/2020	59
10	2020	06/07/2020	894
11	2018	06/08/2018	2589
12	2016	05/04/2016	35
13	2020	04/01/2020	21
14	2020	25/02/2020	580
15
Sheet1

Code ?

Option Explicit
'by Hernan Torres (Mikel ERP)
'December 25, 2019
'Refer to Sheet1
'Question by ashishscores
'topic: https://www.mrexcel.com/board/threads/extracting-data-from-excel-table-if-it-is-between-two-given-dates-and-then-adding-the-numbers-using-vba-code.1118804/

Sub extraer_segun_fecha()
Dim b()
Dim i As Long, j As Long
Dim sDay As Double, eDay As Double
Dim total As Double

Application.ScreenUpdating = False
sDay = CDbl(Sheet3.Range("B1"))
eDay = CDbl(Sheet3.Range("B2"))
b = Sheets("Sheet1").Range("A5:C" & Range("B" & Rows.Count).End(xlUp).Row).Value2

j = 4 'for start write in Range("E5")
For i = 1 To UBound(b)
Debug.Print CDbl(b(i, 2))
If (b(i, 2) >= sDay And b(i, 2) <= eDay) Then
j = j + 1
Cells(j, 5) = b(i, 2)
Cells(j, 6) = b(i, 3)
Cells(j, 7) = total + b(i, 3)
total = total + b(i, 3)
End If
Next i
Application.ScreenUpdating = True
Range("F1").Value = total
End Sub