Zoeken op meerdere kolomen

[HWV]

Beste,

Ik gerbuik onderstaande code voor te zoeken in kolom E
Hoe kan ik deze uitbreiden dat ik ook bv in kolom A en kolom E tegelijk kan zoeken.

Private Sub TextBox1_Change()
On Error Resume Next

Application.ScreenUpdating = False

' beveiliging van de sheet "Database" halen
    Sheets("Database").Unprotect
    
' Zoekfunctie dat zoekt in kolom E, doormiddel van een filter
    If Len(TextBox1.Value) = 0 Then
        Sheets("Database").AutoFilterMode = False
    Else
        Sheets("Database").Range("A2:Ak" & Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter 5, "=*" & TextBox1.Value & "*"
    End If
    
' beveiliging op de sheet "Database" zetten
    Sheets("Database").Protect
Application.ScreenUpdating = True
End Sub

Alvast dank voor de reactie

Henk

 

[VenA]

Ik zie alleen een filter en dat heeft niet zo heel veel met zoeken te maken. Als je wil filteren op meerdere kolommen met een EN/OF voorwaarde dan moet je het geavanceerde filter gebruiken.

 

[HWV]

idd filter

Beste,

Het is idd filteren, verkeerd verwoord in vorige topic.
Ik heb een bijlage toegevoegd met een voorbeeld hoe ik het gebruikt.
Ik hoop dat dit nu een stuk duidelijker is wat ik bedoel.
Filteren op kolom E als het daar niet in voorkomt dan filteren in kolom A mits dit mogelijk is.

Groet Henk

Bekijk bijlage Helpmij filteren.xlsm

 

[VenA]

Probeer het zo maar eens

Private Sub TextBox1_Change()
  If TextBox1 = "" Then ActiveSheet.ShowAllData Else Cells(3, 1).CurrentRegion.AdvancedFilter 1, Range("G1:G2")
End Sub
Private Sub CommandButton1_Click()
  TextBox1 = ""
End Sub

 

[HWV]

Opgelost

Top VenA.

Dit geeft het gewenste resultaat.
Ik kan nu filteren op kolom A of E en dat vanuit 1 textbox

Groet Henk
:thumb: