Trying to make a filter list based on dates

The below vba code attempts to extract a smaller list from a larger list based on Maturity Dates. However, it doesn't seem to work when I copied this code into a new spreadsheet.

The red portion is the one first highlighted by Microsoft visual basic to be erroneous. There could very well be more errors.

Please help.
Thank you.

Sub maturityRange()
Dim i, j, k As Integer


With Sheet12
Do While .[Maturity].Offset(i + 1, 0).Value <> ""

If .[Maturity].Offset(i + 1, 0).Value <= .[EndDate].Value And .[Maturity].Offset(i + 1, 0).Value >= .[StartDate].Value Then
For k = 0 To 2
.[List].Offset(j + 1, k) = .[Description].Offset(j + 1, k).Value
Next k
j = j + 1
End If
i = i + 1
Loop
End With
End Sub

Is there any value contained in variable i ? if i empty or a null value, VBA will give you an error.

Can you post your workbook?

Please take a moment to read the forum rules and then amend your thread title to something descriptive of your problem. Once you have done this please send me a PM and I will remove this request. (Also, include a link to your thread - copy from the adress bar)

To change a Title on your post, click EDIT POST then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

Try

Please Login or Register  to view this content.