VBA Code For Daily Updates

[DSpink95]

Hi All,

I'm currently in the process of creating a system that will make viewing jobs for each day easier.
I currently have a central sheet with all information in for received work but I want to be able to have an option to click on a button with the current dates on and it shows only information from that date clicked. As the date on the button will change on a daily basis (linked with a formula to change based on todays date) what code could I use that will pull through the info for that date - data is in a worksheet called "All Jobs" cells B2:R and when the date is clicked I want it to open just that dates work - potentially in another tab "Daily View" any help would be appreciated!

 

[Yongle]

Code below assumes that the boxes are all shapes (like rectangles)
- assign the macro below to all the shapes
- ensure that how dates appear in the "box" is identical to how they look in the sheet
- the code filters data in the original sheet
- can modify to dump to another sheet if required

Using Application caller it avoids having to identify the object by name, but it does not work with everything
- modify the code so that the correct object text is read into variable boxText

Sub FilterDates()
    Dim boxText As String
    boxText = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
    
    With Sheets("All Jobs").Range("A1")
        On Error Resume Next
        .Parent.ShowAllData
        .AutoFilter
        .AutoFilter Field:=1, Criteria1:=boxText
        .Parent.Activate
    End With
End Sub

 

[DSpink95]

Yongle - thank you for your help! Looks like it has done the trick