Event Macro's voor wijzigen van filters

[BjornCl]

Hallo,

ik ben zeker en vast geen leek op het gebied van VBA maar voor het volgende ontbreekt mij de kennis :

Ik zou een "event macro willen hebben (genre "Private Sub Worksheet_Change(ByVal Target As Range)").
Het doel is dat ik bij elke wijziging van één van de waarden onder rubriek "filters" (in de voorbeeld excel is dit in sheet summary cel E2 of E3), de filters worden aangepast in sheet "Data".

Aangezien dit een extract is van een groter rapport, kan ik je nu al zeggen dat ik geen draaitabel kan maken van deze tabel.

Alle hulp is welkom ! ! ! !

Mvg,
Bjorn Bekijk bijlage Helpmij_voorbeeld.xlsm

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("E2:E3")) Is Nothing Then Sheets("Data").Columns(Target.Row - 1).AutoFilter 1, Target.Value
End Sub

 

[BjornCl]

Hey snb,

bedankt voor je input.
De code werk voor de filter in cel 2E, maar niet voor de filter in E3....

Kan je me nog effe verder helpen?

thanks
Bjorn

 

[Warme bakkertje]

Op deze manier misschien ?

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("E2:E3")) Is Nothing Then Sheets("Data").Range("A1:O1").AutoFilter Target.Row - 1, Target.Value
End Sub

 

[BjornCl]

Dag Rudi,

werkt perfect!
Hartelijk dank ! ! ! !

Mvg,
Bjorn