Automatisch toepassen van filter

[stimmy]

In bijgevoegd voorbeeldbestand zit er op tabblad "planning" een filter op een aantal kolommen. De gegevens in die kolommen zijn afkomstig uit een lijst in tabblad "Medewerkers". Wanneer ik daar iets wijzig en terugga naar tabblad "planning" zou ik graag hebben dat de daar ingestelde filter automatisch wordt bijgewerkt.

In realiteit zal de filter op kolom "Actief" altijd enkel records moeten tonen die op "ja" staan en zal de gebruiker zelf filteren op "Dienst". Het zou dus nog properder zijn door te werken met een uitgebreid filter met keuze uit de bestaande diensten, maar ook dan zou deze automatisch moeten "refreshen". Alvast bedankt voor jullie hulp!

 

[Gijsbert1]

Met een beetje code in vba:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Worksheets("Planning")
   .Range("$A$9:$F$14").AutoFilter Field:=6, Criteria1:="Ja"
End With
End Sub

Bekijk bijlage Kopie van aanwezigheidsplanning gijs.xlsm

 

[VenA]

Als alternatief.
In de bladmodule van de tab 'Planning'

Private Sub Worksheet_Activate()
  Cells(1).CurrentRegion.AutoFilter 6, "Ja"
End Sub

 

[stimmy]

Met een beetje code in vba:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Worksheets("Planning")
   .Range("$A$9:$F$14").AutoFilter Field:=6, Criteria1:="Ja"
End With
End Sub

Bedankt!:d

Bekijk bijlage 283179

 

[stimmy]

Bijkomend vraagje.

Kan de filter enkel refreshen na wijziging op tabblad "Medewerkers". Het gaat om een vrij zware file met veel berekeningen. Nu gaat de filter ook telkens refreshen na wijziging in tabblad "Planning", maar dat zorgt dan weer voor veel wachttijden.

 

[VenA]

Zie #3

 

[stimmy]

Inderdaad, werkt nu zoals het moet!

 

[stimmy]

Extra probleempje nu. Ik heb het werkblad beveiligd (in opties aangegeven dat autofilter wel nog mag), maar krijg dan een fout dat de berekening ui #3 niet kan uitgevoerd worden op een beveiligd blad).

 

[VenA]

Probeer het zo eens. Achter Protect en Unprotect kan je eventueel een wachtwoord zetten.

Private Sub Worksheet_Activate()
  Unprotect
  Cells(1).CurrentRegion.AutoFilter 6, "Ja"
  Protect
End Sub

 

[stimmy]

Toch zo eenvoudig als je 't weet... alweer bedankt!