macro als filter

[MarcSch]

Hoi,
kan iemand mij helpen bij volgend vraag.
Ik heb een excel lijst (3 kolommen) en wil graag een macro om op eenvoudige wijze records te filtreren uit kolom A.
Bedoeling is dat ik in een vakje een zoekopdracht invul en dat deze dan op de lijst wordt toegepast.
Het is bedoeling de autofilter opdracht "cel bevat" te vervangen door macro waar criterium voor zoekopdracht ergens wordt ingebracht en er dan gefiltert wordt op cellen in kolom a die met dit criterium (volledig of gedeeltelijk) overeenkomt.
Alvast bedankt voor de hulp.


groetjes,

Marc

 

[Rommyke]

Volgende code kan al eens geprobeerd worden , waarbij H1 uw filter waarde bedraagt

Sub Filter()

With Sheet1
            .AutoFilterMode = False
            .Range("A1:c20").AutoFilter
            .Range("A1:c20").AutoFilter Field:=1, Criteria1:=Range("H1")
    End With
    
End Sub

Groetjes
Romain

 

[MarcSch]

Bijna..........

Rommyke bedankt voor je tip dit werkt wel maar kan ik nog ergens iets veranderen dat selectie gebeurt op "bevat" waarde in H1 in plaats van = waarde in H1

dank voor je hulp

 

[Wigi]

Vervang naar:

Criteria1:="=*" & Range("H1").Value & "*"

ongetest

Wigi

 

[MarcSch]

lukt niet

Wigi,

bedankt voor je reactie maar er zit blijkbaar nog iets fout in de macro, kan jij zien waar de fout zit? ik krijg melding "verwacht instructieeinde" op einde van rode regel.
Bedankt !!

Sub Filter()

With Blad1
.AutoFilterMode = False
.Range("A2:c20").AutoFilter
.Range("A2:c20").AutoFilter Field:=1, Criteria1:="=*"&Range("H1").Value&"*" End With

End Sub

 

[Wigi]

End With moet op de volgende regel staan.

Wigi

 

[Wigi]

Lees ook regelmatig de andere topics hier op het forum door, dan kweek je vanzelf de nodige kennis en dan zie je zoiets vanzelf

Wigi

 

[MarcSch]

Bedankt

Bedankt Wigi End With was niet het probleem wel de spaties in de aangepaste regel.

groetjes,

Marc