Filter dmv userform

[ZZ1]

Hallo,

Ik wil graag een filter net zoals je die met crl+f kunt starten een filter volgens een userform kunt starten.

Als ik een macro op laat nemen werkt dit niet want hij moet uit zijn textbox halen wat hij moet zoeken.
Hoe laat ik zeggen dat hij met een cmd button laat zoeken wat er in tekstvak 1 staat in blad 1 op moet zoeken.

Hoop dat iemand me op weg kan helpen.


Alvast bedankt

 

[Hoornvan]

ZZ1,

Kijk hier eens, daar zoeken / filteren ze met een TextBox.

 

[Hoornvan]

ZZ1,

Onderstaande code werkt voor TextBox1 met getallen (Cel opmaak eigenschappen standaard).

Private Sub TextBox1_Change()
If TextBox1 = "" Then
    Selection.AutoFilter field:=1 
Else                                          'Criteria1:="=*" & TextBox1 & "*", Operator:=xlAnd   '[COLOR="Red"]Voor tekst[/COLOR]
    Selection.AutoFilter field:=1, Criteria1:=TextBox1.Value, Operator:=xlAnd   [COLOR="red"]'Voor getallen[/COLOR]
End If                            
End Sub

 

[Hoornvan]

ZZ1,

Ik heb op Helpmij nog wat gevonden en verwerkt in het bestandje.
Kijk, of dit de bedoeling is / of je er wat mee kunt.