Filter met invoer cel zonder drop down menu

[Gast]

Zo?

Gasten-Lijst Meista 05-05-2018.xlsm

[Cor-Assa]

Bedankt Grote Woef, precies wat ik bedoelde.

Nu nog uitzoeken hoe jij dat gedaan hebt.

Het lukt me bijna maar toch net niet, op de ene kolom wel en dan de andere weer niet.

Ga het eens rustig ontleden.

Nogmaals bedankt en straks een fijne jaarwisseling.

 

[Gast]

Private Sub TextBox1_Change()
    ActiveSheet.ListObjects("gastenlijst").Range.AutoFilter Field:=2, _
    Criteria1:="*" & TextBox1.Text & "*", Operator:=xlFilterValues
End Sub

Zorg ervoor dat de sub Textbox nummer dezelfde is als de Textbox nummer in de tweede regel code.

de tabel noemt gastenlijst, zie formules -> namen beheren

Field:=2 is kolom B Field;=7 is kolom G.

meer is het niet.

[Cor-Assa]

Alles werkt perfect, nu kom ik echter een ander probleem tegen.

Als ik het werkblad beveiligd doet hij het niet dan moet ik de beveiliging uitzetten.

Hoe los ik dit op, welke optie moet ik in de beveiliging vrij geven of gaat dit helemaal niet?

 

M.vr.gr. Cor

[Cor-Assa]

Ik kom nog een klein probleempje tegen.

Als de ingevoerde gegevens in het ActiveX textbox handmatig gedelete worden dan blijft het filter actief staan met alles gedeselecteerd.

Dit is niet met de resetknop voor het filter te herstellen, dan moet je het filter weer handmatig instellen.

Is hier een oplossing voor in de reset knop?

 

B.v.d.

Cor

[Gast]

In bijlage versie met aangepaste code.

Als je wilt werken in een beveiligd blad, beveilig uw blad eerst manueel.

Haal dan de ' tekens weg in de groene stukjes code en vervang 123 door uw wachtwoord.

Gasten-Lijst Meista 05-05-2018 (v2).xlsm