Autofilter VBA gebruiken met een criteria

[HUTD]

Beste allemaal,

Bij deze weer een hoofdpijn vraagje....

Ik wil graag in excel automatisch een lijst laten weergeven vanuit een database.

Daarvoor wilde ik de autofilter in vba gebruiken maar het lukt me niet.
In een excel bestand staan een kolom bedrijven en een kolom groepen. Elk bedrijf kan meerdere groepen hebben. Nu zou ik graag in een cel aangeven dat ik van een bepaald ingevoerd bedrijf een lijst met de aanwezige, unieke groepen vraag. Deze lijst met unieke groepen kan gewoon een of twee kolommen verder geplaatst worden in dezelfde sheet. Hoe moet ik dit doen??

Bijgevoegd een voorbeeldje van excel en een stukje macro code
Bekijk bijlage Test.xlsm

De macro code is in het groen weergegeven maar ik krijg het niet werkend...
Hulp zou gebaat zijn!

Alvast dank

 

[snb]

Wil je 1 criterium gebruiken of verschillende criteria ?

 

[ExcelAmateur]

HUTD,

In het stukje code heb ik Select eruit gehaald.

Sub toevoegen()
' toevoegen Macro
    Sheets("Blad2").Rows("5:5").Insert Shift:=xlDown
    
    Sheets("Blad1").Range("B3:D3").Copy _
    Sheets("Blad2").Range("B5")
    
    Sheets("Blad1").Range("B3:D3").ClearContents
End Sub

 

[HSV]

Ik dacht dat het om onderstaande code ging.

Private Sub Worksheet_Change(ByVal Target As Range)
 Range("B1:C24").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("E1:F2"), CopyToRange _
:=Range("J1:K1"), unique:=True
End Sub

Code nog wel aanpassen anders loopt het bij iedere wijziging.

 

[ExcelAmateur]

HSV,

Ik dacht dat het om onderstaande code ging.

Daar heb je helemaal gelijk in.
Ik vond het leuk om dit te doen.

Volgens mij is het de bedoeling, als hij in cel I1 een x of y plaats, enkel van deze het resultaat te laten zien.
Dat wil bij mij maar niet lukken.

 

[HSV]

Hallo ExcelAmateur,

Zet in het bestandje dat ik plaatste in E2 eens een x of y.
Je krijgt met 'Advancefilter' de x of y er wel bij in kolom J.

 

[ExcelAmateur]

HSV,

Je heb helemal gelijk. :thumb:
Nu maar hopen dat "HUTD" het ook zo bedoel.

Prettige dag verder.

 

[HUTD]

Hartelijk dank beiden!

Het werkt precies zoals ik wilde hebben. Ik krijg nu in de gaten dat je dus bij criteria ook duidelijk groep en bedrijf moet vermelden anders snapt de filter het niet.
Nogmaals bedankt en ik zet de vraag op opgelost!