Text Box to set filters

[WendyHubard]

Hello Wizards,

I'm trying to use a text box disguised as button to set the filters. Have attached a sample. I'm trying to avoid using macros/vba if possible as my workplace has everything locked down
Many thanks in advance

Sample.xlsx
	H
6
Sheet1

 

[Kaper]

Seems your data is in excel table.
If you don't want to use VBA, a good idea will be to use slicer.

Active cell inside a table and Insert->Filters-> Slicer

The slicer (marked with asterisk ona a screenshot allows you to filter with several categories switched on and off) - a sample is from other file as your XL2BB shows no data.

 

[Fuji]

1) To a standard code modue.

Sub FilterTable()
    Dim s$
    With ActiveSheet
        s = .Shapes(Application.Caller).TextFrame.Characters.Text
        With .ListObjects(1)
            If .ShowAutoFilter Then
                If .AutoFilter.FilterMode Then .AutoFilter.ShowAllData
            End If
            .Range.AutoFilter 3, s
        End With
    End With
End Sub

2) Assign above to the buttons.

 

[WendyHubard]

Thank you both for your replies. I'm liking the Slicer option as it's quick and easy. Just wondered how to hide empty rows? I've set the Slicer to Hide items with no data, but how do I remove the button "(Blank)".

Again. thanks in advance

Sample.xlsx
	A	B	C	D	E	F	G	H	I	J	K
1
2
3
4
5
6	Date	Person	Status	Due	Due Status	Description
7	1/02/1935	Blogg, Peter	Complete	1/06/2025	Other	Gardening
8	2/02/1935	Smith, jones	Under Investigation	5/03/2025	Due in 7 Days	Road works
9	3/02/1935	Blogg, Danny	Complete	1/04/2025	Other	Sleep outs
10	4/02/1935	Fish, Peter	Under Investigation	30/03/2025	Other	Roofing
11	5/02/1935	Brett, James	Complete	1/02/2025	Over Due	Gardening
12	6/02/1935	Noddy, Slev	Under Investigation	1/01/2025	Over Due	Road works
13	7/02/1935	Blogg, Peter	Complete			Sleep outs
14	8/02/1935	Smith, jones	Under Investigation			Roofing
15	9/02/1935	Blogg, Danny	Complete	1/10/2024	Over Due	Gardening
16	10/02/1935	Fish, Peter	Under Investigation	1/09/2024	Over Due	Road works
17	11/02/1935	Brett, James	Complete	1/08/2024	Over Due	Sleep outs
18	12/02/1935	Noddy, Slev	Under Investigation	1/07/2024	Over Due	Roofing
19	1/02/1935	Blogg, Peter	Complete	1/06/2024	Over Due	Gardening
Sheet1

Cell Formulas
Range	Formula
E7:E19	E7	=IFS([@Due]="","",[@Due] <TODAY(),"Over Due",AND([@Due] >=TODAY(), [@Due]<=(TODAY()+7)),"Due in 7 Days",[@Due]<=(TODAY()>8),"Other")

 

[Kaper]

Sorry to say so, but I don't know how to get rid of these extra filters for blanks.

 

[WendyHubard]

Sorry to say so, but I don't know how to get rid of these extra filters for blanks.

Thanks for all your help. Very much appreciated.