• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

zoeken werkt niet

Status
Niet open voor verdere reacties.

jack009

Gebruiker
Lid geworden
28 aug 2006
Berichten
223
Hallo

ik heb de code voor een zoekmachine in een klanten bestand gekopieerd deze had ik al een keer hier vandaan gehaald.
het heeft altijd prima gewerkt. ik heb het nu gekopieerd in een ander bestand maar het werkt niet
als ik een naam invoer bij de zoekbalk, gebeurt er niets normaal vindt er gelijk een selectie plaats bij de eerste letter die je invoert.

waar is het mis gegaan ik kom er niet uit
zie bijlage
Bekijk bijlage klantenbestand.xlsm
 
De code verwijst naar Sheets(1). Dit moet sheets(2) zijn. Daarnaast heb je de criteria voor de optiebuttons verwisseld. De code moet dus zijn:

Code:
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
If Len(TextBox1.Value) = 0 Then
    Sheets(2).AutoFilterMode = False
Else
    If OptionButton1.Value = True Then
        Sheets(2).Range("$A$5:$O$500").AutoFilter Field:=2, Criteria1:="=" & TextBox1.Value & "*"
    ElseIf OptionButton2.Value = True Then
        Sheets(2).Range("$A$5:$O$500").AutoFilter Field:=2, Criteria1:="=*" & TextBox1.Value & "*"
    Else: TextBox1.Value = "ERROR!"
    End If
End If
Application.ScreenUpdating = True
End Sub

Werkt het ook weer als je een letter in de zoekbalk invoert.
 
Laatst bewerkt:
Hallo Ronald,

Bedankt voor je moeite , het werkt weer prima.

super

Groet

Jack
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan