40
Hi BC community,
On many pages, it is possible to save the filter settings, but it seems not possible on the planning Worksheet.
This functionnality would really ease everyday work, especially when several persons are using the planning Worksheet page.
Does anyone know if I can add this functionnality? or if is is planned in a future release?
Thanks in advance
Jérôme
Welcome. Apart from that, you should ask your partner for an update to build an extension for you.
Hello,
You may want to ask your CSP or Dynamics partner to do this for you. Or raise this issue as an idea on https://aka.ms/bcideas . Most likely this has already been done by others, so you need to vote for the ideas.
Thanks.
Have a look at Capture Autofilter state
To prevent link rot, here is the code (credit to original author):
Works with Excel 2010, just delete the commented line marked.
Sub ReDoAutoFilter()
Dim w As Worksheet
Dim filterArray()
Dim currentFiltRange As String
Dim col As Integer
Set w = ActiveSheet
' Capture AutoFilter settings
With w.AutoFilter
currentFiltRange = .Range.Address
With .Filters
ReDim filterArray(1 To .Count, 1 To 3)
For f = 1 To .Count
With .Item(f)
If .On Then
filterArray(f, 1) = .Criteria1
If .Operator Then
filterArray(f, 2) = .Operator
filterArray(f, 3) = .Criteria2 'simply delete this line to make it work in Excel 2010
End If
End If
End With
Next f
End With
End With
'Remove AutoFilter
w.AutoFilterMode = False
' Your code here
' Restore Filter settings
For col = 1 To UBound(filterArray(), 1)
If Not IsEmpty(filterArray(col, 1)) Then
If filterArray(col, 2) Then
w.Range(currentFiltRange).AutoFilter field:=col, _
Criteria1:=filterArray(col, 1), _
Operator:=filterArray(col, 2), _
Criteria2:=filterArray(col, 3)
Else
w.Range(currentFiltRange).AutoFilter field:=col, _
Criteria1:=filterArray(col, 1)
End If
End If
Next col
End Sub
Try using Filter tokens.
#1
YUN ZHU
374
Super User 2025 Season 1
#2
Mansi Soni
247
#3
Gerardo RenterÃa Ga...
231
Most Valuable Professional
Share
Report
All responses (
Answers (
