Hi NIKO,
Use an ActiveX button on Sheet Front. If using xl2007 then on Developer
ribbon select Insert in the Controls block and select from the ActiveX
controls. If earlier version of xl then select button from the Controls
Toolbox Toobar (Not from the Forms toolbar). Design mode will switch on (Set
square, ruler and pencil in the button icon).
Right click the button while in Design mode and select View code. A default
sub name will appear for the click event on the button. This is the sub name
that must be used for the first sub of the following code so if the sub name
I have used does not match then use your default one.
Copy the following code into the VBA editor. Note there are 2 subs. The
first one belongs in the button click sub; the second one leave out on its
own below the first sub.
You will need to edit the filtNumb to the filter you want set. Count the
filters from the left for the number of the filter to set.
Close the VBA editor. (X with red background top right of VBA editor screen.)
On the worksheet, Click the Design mode button to tun it off. (Should change
from orange to blue.)
To get back to the code, right click the worksheet name tab and select View
code.
Private Sub CommandButton1_Click()
Dim crit1 As Variant 'Holds criteria cell values
Dim filtNumb As Integer 'Holds filter number to set
crit1 = Sheets("Front").Range("I6")
'Edit filter number to suit
'count filters from left for number.
filtNumb = 1
Call SetFilters("Main", crit1, filtNumb)
Call SetFilters("Revenue Costs", crit1, filtNumb)
End Sub
Sub SetFilters(strShtName, crit, filt)
With Sheets(strShtName)
'Ensure that AutoFilter is turned on.
'This avoids error problems if not turned on.
If .AutoFilterMode Then
If .FilterMode Then
.ShowAllData 'Remove existing filtering
End If
With .AutoFilter.Range
.AutoFilter Field:=filt, Criteria1:="=" & crit
End With
Else
MsgBox "AutoFilter not turned on for sheet " _
& strShtName & "." & vbCrLf & _
"Processing for sheet " & strShtName & " terminated."
End If
End With
End Sub
