de ene macro is de andere niet...

[Willem Blaas]

Geacht forum,

in het bijgevoegde bestand zit een macro "jordaan" , deze tovert een aantal regels tevoorschijn welke aan de
criteria van deze macrovraag voldoen.
wanneer ik deze macro verwerk in een formulier , welke ik met de button "zoek" laat verschijnen en ik vul dezelfde criteria in (jordaan)
geeft deze geen resultaat.
ik vermoed zelf (?) zelf dat er iets in de voorwaarden fout zit , alleen wat ?

kunt u mij helpen ?

met vr groet , willem blaas

 

[edmoor]

Gebruik dit achter die knop:

    ActiveSheet.Range("$A$2:$A$12419").AutoFilter Field:=1, _
    Criteria1:="=**" & Texteven.Text & "**", Operator:=xlAnd

 

[Willem Blaas]

Gebruik dit achter die knop:

    ActiveSheet.Range("$A$2:$A$12419").AutoFilter Field:=1, _
    Criteria1:="=**" & Texteven.Text & "**", Operator:=xlAnd

hartelijk dank voor de zeer snelle oplossing, ik ga met uw oplossing kijken en proberen uit te vogelen wat ik verkeerd deed

 

[snb]

Dat kan simpeler:

ActiveSheet.Range("$A$2:$A$12419").AutoFilter 1, "*" & Texteven.Text & "*"