"Select Case" not working

[jerseyguy1996]

I have a worksheet filled with bond data. Two of the columns contain the maturity date and market value respectively of each bond. I want to group the maturities of the bonds by year. I wrote a macro that evaluates the maturity date in the first column and sums the value next to it, cycling through the selection until it gets to the end. When I run it, the correct case is evaluating to "True" but it is still skipping over the expression directly under the case statement. Why is the programming not performing the action under the case that evaluates to true? I have attached my code and a sample worksheet below.

Sub sortmaturities()

Dim rng As Range
Dim d As Date
Dim e As Date
Dim i As Integer
Dim a() As Single
Dim b As Worksheet

ReDim a(1 To 11)





Set rng = Selection

e = #1/1/2010#

For i = 0 To rng.Rows.Count - 1

d = rng.Resize(1, 1).Offset(i, 0)

Select Case d

    Case (d < DateAdd("yyyy", 1, e))
    a(1) = a(1) + rng.Resize(1, 1).Offset(i, 1)
    
    Case (d < DateAdd("yyyy", 2, e))
    a(2) = a(2) + rng.Resize(1, 1).Offset(i, 1)
    
    Case (d < DateAdd("yyyy", 3, e))
    a(3) = a(3) + rng.Resize(1, 1).Offset(i, 1)
    
    Case (d < DateAdd("yyyy", 4, e))
    a(4) = a(4) + rng.Resize(1, 1).Offset(i, 1)
    
    Case (d < DateAdd("yyyy", 5, e))
    a(5) = a(5) + rng.Resize(1, 1).Offset(i, 1)
    
    Case (d < DateAdd("yyyy", 6, e))
    a(6) = a(6) + rng.Resize(1, 1).Offset(i, 1)
    
    Case (d < DateAdd("yyyy", 7, e))
    a(7) = a(7) + rng.Resize(1, 1).Offset(i, 1)
    
    Case (d < DateAdd("yyyy", 8, e))
    a(8) = a(8) + rng.Resize(1, 1).Offset(i, 1)
    
    Case (d < DateAdd("yyyy", 9, e))
    a(9) = a(9) + rng.Resize(1, 1).Offset(i, 1)
    
    Case (d < DateAdd("yyyy", 10, e))
    a(10) = a(10) + rng.Resize(1, 1).Offset(i, 1)
    
    Case (d < DateAdd("yyyy", 11, e))
    a(11) = a(11) + rng.Resize(1, 1).Offset(i, 1)
    
    
End Select

Next


Set b = Worksheets.Add

b.Range("A1").Resize(11, 1) = a


End Sub

[Leith Ross]

Hello jerseyguy1996,

You syntax is wrong. What is it you want to test for?

[jerseyguy1996]

Hello jerseyguy1996,

You syntax is wrong. What is it you want to test for?

Actually I just figured it out. I needed to have my statement read:

Select Case True

so the program goes:

Sub sortmaturities()

Dim rng As Range
Dim d As Date
Dim e As Date
Dim i As Integer
Dim a() As Single
Dim b As Worksheet

ReDim a(1 To 11)





Set rng = Selection

e = #1/1/2010#

For i = 0 To rng.Rows.Count - 1

d = rng.Resize(1, 1).Offset(i, 0)

Select Case True

    Case (d < DateAdd("yyyy", 1, e))
        a(1) = a(1) + rng.Resize(1, 1).Offset(i, 1)
    
    Case (d < DateAdd("yyyy", 2, e))
        a(2) = a(2) + rng.Resize(1, 1).Offset(i, 1)
    
    Case (d < DateAdd("yyyy", 3, e))
        a(3) = a(3) + rng.Resize(1, 1).Offset(i, 1)
    
    Case (d < DateAdd("yyyy", 4, e))
        a(4) = a(4) + rng.Resize(1, 1).Offset(i, 1)
    
    Case (d < DateAdd("yyyy", 5, e))
        a(5) = a(5) + rng.Resize(1, 1).Offset(i, 1)
    
    Case (d < DateAdd("yyyy", 6, e))
        a(6) = a(6) + rng.Resize(1, 1).Offset(i, 1)
    
    Case (d < DateAdd("yyyy", 7, e))
        a(7) = a(7) + rng.Resize(1, 1).Offset(i, 1)
    
    Case (d < DateAdd("yyyy", 8, e))
        a(8) = a(8) + rng.Resize(1, 1).Offset(i, 1)
        
    Case (d < DateAdd("yyyy", 9, e))
        a(9) = a(9) + rng.Resize(1, 1).Offset(i, 1)
    
    Case (d < DateAdd("yyyy", 10, e))
        a(10) = a(10) + rng.Resize(1, 1).Offset(i, 1)
    
    Case (d < DateAdd("yyyy", 11, e))
        a(11) = a(11) + rng.Resize(1, 1).Offset(i, 1)
    
    
End Select

Next


Set b = Worksheets.Add

For i = 1 To 11

b.Range("A1").Offset(i, 0) = a(i)

Next



End Sub