I'm helping a food bank move from paper to Excel. There are multiple worksheets with information about households on each sheet and they need to do a summary report every month and for just that month. Row 3 on each sheet contains all the data required. I found the following code to copy all row 3's but I have not been able to figure out how to filter for a date, which is in Cell "A3". Adding Subtotals at the bottom would be a major plus. I Know I can use the Filter for dates but most of the volunteers are not very computer savvy so I am thinking a button that does it all would be ideal. Your help will be greatly appreciated. Thank you.
Private Sub CommandButton1_Click()
' FoodPantry
Dim ws As Worksheet, nr As Long
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Summary" Then
nr = Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
ws.Rows(3).Copy Sheets("Summary").Rows(nr)
End If
Next ws
End Sub
Bookmarks