VBA to display data based on dates

Hi folks,

First post so be gentle

Need to add a few buttons to my sheet so that I can essentially filter the data quickly with one click and shows the relevant rows.

VBA Buttons seem the best idea.

I need to write the VBA code so that when button 81 is clicked, it filters the sheet to show work outstanding based on dates in K5:K171. Basically anything with blank or a date between today and 01/01/2005.

Second button is to show work due again using data in K5:K171. Work due will be anything with a date between 01/01/2005 and 30 days in the future.

If only I had to use VBA everyday this would be so much easier - I use it so infrequent I tend to forget how to do things

Noone got any ideas?

Try using the AutoFilter

Autofilter works great for today ... and if I'm the only one using it.

Other folks who dont know what to select with autofilter may be using it and its so I can have a single button click for them in order that they can see what work is needing done now.

Got this to almost work - needs to be tweaked but not sure where I went wrong....

Sub Button81_Click()
Application.ScreenUpdating = False
Dim r As Range
Set myRange = ActiveSheet.Range("K7:K171")
For Each r In myRange
If r.Value > [TODAY()+30] Then
r.EntireRow.Hidden = True
End If
If r.Value < [TODAY()-3650] Then
r.EntireRow.Hidden = True
End If
If r.Value <> [BLANK] Then
r.EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True
End Sub

Try putting it like this:

Please Login or Register  to view this content.

Or like this

Please Login or Register  to view this content.