Data tonen aan de hand van meerdere selecties/keuzes

[malibuman]

Beste mensen,

Ik zou graag op het blad : "keuze" naar aanleiding de aangegeven selectie de bijbehorende data willen tonen.
De data staat op blad : data
De gegevens voor de lijsten staan op blad 3

Kortom als ik de keuze maak:

Training en examen
B-VCA
Pools
Locatie laat ik dan open

Wil ik graag alle locaties en data zien waar ik een training kan gaan volgen

 

[namliam]

Iets in de richting van:

Sub Test()
    Sheets("Data").Select
    ActiveSheet.ListObjects("Tabel1").Range.AutoFilter Field:=1, Criteria1:="B-VCA"
    ActiveSheet.ListObjects("Tabel1").Range.AutoFilter Field:=2, Criteria1:="training en examen"
    ActiveSheet.ListObjects("Tabel1").Range.AutoFilter Field:=3, Criteria1:="Pools"
    Selection.CurrentRegion.Select
    Selection.Copy
    Sheets("Keuze").Select
    Range("A24").Select
    ActiveSheet.Paste
    Range("A23").Select
end Sub