excel vba filter opheffen zonder eerder verborgen rijen terug zichtbaar te maken

[MARINA111]

Beste

Ik slaag er maar niet in om bij het opheffen van filters via vba de eerer verborgen rijen verborgen te laten en enkel de "recent" geplaatste filter op te heffen.
(showalldata is niet de oplossing)
Kan iemand mij helpen?

 

[HSV]

Hallo Marina,

Het verhaal is me niet helemaal duidelijk.
Zoals ik het lees heb je filters gezet dmv code.
Daarnaast heb je handmatige filters gezet, en die moeten weer uit dmv code.

Stel je hebt een filter gezet dmv code in de eerste kolom.

Sub hsv()
 Sheets(1).Cells(1).CurrentRegion.AutoFilter 1, "a"
End Sub

Je hebt handmatige filters gezet (recent) die weer uit moeten behalve die in de eerste kolom.

Sub hsv_2()
Dim ftr As Filter, y As Long
 With Sheets(1)
  If .AutoFilterMode Then
     For Each ftr In .AutoFilter.Filters
       y = y + 1
       If ftr.On And y > 1 Then .Cells.AutoFilter y
     Next ftr
   End If
 End With
End Sub

Zit ik in de richting goed?
Zo niet, plaats een voorbeeldbestand met een goede omschrijving.

 

[MARINA111]

Excel vba filterprobleem

beste

In bijlage een voorbeeldje met een beetje uitleg.

 

[HSV]

Beste,

Test het maar eens.
Op basis van cel XFD1 → subtotaal, wordt er een calculate_event in werking gezet die als je de filter gebruikt de jaartallen voor het jaar waar in we zitten opnieuw filtert.

Private Sub Worksheet_Calculate()
 Application.EnableEvents = False
  Me.ListObjects(1).DataBodyRange.AutoFilter 3, , xlFilterValues, Array(0, Format(Date, "m-d-yyyy"))
 Application.EnableEvents = True
End Sub

 

[MARINA111]

vbafilterprobleem

Beste

Dit is echt waar ik naar op zoek was, heel erg bedankt !!:thumb: