VBA code to find last entry on a certain date and bring back the text in the adjacent

Hi,

I hope I'm making sense here.

I have a spreadsheet with hundreds of sheets on it (one for each of my customers)

Basically they each have an amount of money from which they can order goods from me. I need to be able to find out the balance of each fund on any given date in the past and wondered if there is a VBA code that create a summary sheet.

There could be several entries for the same date, but at the same time there may be no entries for that date, therefore I need it to search for either the last entry on the date requested or the next date before this with an entry.

I have attached an example speadsheet.

Many thanks in advance.

Here is some code that will search for the specific date and return the information only if the date is found. Not sure how to tweak this to find the next earlier date, but perhaps someone else can tweak this for you.

Code:

---

Option Explicit

Sub Summary()
    Dim w As Worksheet
    Dim i As Long
    'Dim rng As Range
    Dim d As Date
    Dim lrng As Range
    Dim lr As Long
    d = InputBox("What Date to Search")
    'Dim wsFunc As WorksheetFunction
    'Set wsFunc = Application.WorksheetFunction
   

    For Each w In Worksheets
        If w.Name <> "Summary" Then
        'Set rng = w.Range("L6:L" & Range("L" & Rows.Count).End(xlUp).Row)
        Set lrng = w.Range("L:M")
        lr = Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Row
       
            For i = 6 To w.Range("L" & Rows.Count).End(xlUp).Row
                On Error Resume Next
                'If w.Range("L" & i) = wsFunc.VLookup(d, lrng, 2, False) Then
                If w.Range("L" & i) = d Then
                w.Range("L" & i).Resize(, 2).Copy
                Sheets("Summary").Range("B" & lr + 1).PasteSpecial Paste:=xlValues
                Sheets("Summary").Range("A" & lr + 1) = w.Name
                End If
            Next i
        End If
    Next w
    MsgBox ("Complete")

End Sub

---

Hi Alan,

Thanks for the reply, however when I run the macro I get a Run-time error 9 - Subscript out of range.

Which line of code is highlighted when you debug the code?

Attachment 1511

Unable to duplicate your issue. Here is the file that I tested on.

Quote:

---

Originally Posted by pedros23

Hi Alan,

Thanks for the reply, however when I run the macro I get a Run-time error 9 - Subscript out of range.

---

The following is highlighted

lr = Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Row

Do you have a sheet named Summary in your workbook? If not, then replace "Summary" with the name of your summary sheet as described in your first post to this thread. In your first thread you indicated you wanted the results in a Summary Sheet, but you did not have one in your test file. I created one and called it Summary. Whatever yours is called needs to be put in this line of code.

Quote:

---

Originally Posted by alansidman

Do you have a sheet named Summary in your workbook? If not, then replace "Summary" with the name of your summary sheet as described in your first post to this thread. In your first thread you indicated you wanted the results in a Summary Sheet, but you did not have one in your test file. I created one and called it Summary. Whatever yours is called needs to be put in this line of code.

---

Thanks Alan,

I had a feeling I had missed something simple. You're help has been fantastic.

I just need to figure out how to make it find the next previous date and i will save me so much time.