Zoek functie

[Bertus78]

Bekijk bijlage fiets register.xlsm

Wie kan en wil mij even helpen.
Ik ben een programma aan het maken om fietsen te registeren.

Dit gaat goed, via helpmij.nl heb ik een zoekfunctie toegevoegd waar ik erg blij mee ben.
Echter werkt die plotseling niet meer en krijg ik steeds een foutmelding.


Kan iemand mij helpen om de fout te vinden, want dat is net te hoog gegrepen voor mij.


# beginner

 

[edmoor]

Als je zegt een foutmelding te krijgen, laat dan weten wat je doet om deze veroorzaakt te krijgen en wat exact de melding is.

 

[Bertus78]

Als ik naar zoeken ga.
En ik druk bij "zoek op"(F8) gemeente
en ik voer bij "filter op" (F9) Barendrecht in dan krijg ik een foutmelding bij:

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  Select Case Target.Address
      Case "$F$8"
      ar = Sheets("overzicht Barendrecht").Cells(1).CurrentRegion
      t = Application.Match(Range("F8"), Application.Index(ar, 1), 0)
      For j = 2 To UBound(ar)
        If InStr(c00, ar(j, t)) = 0 Then c00 = c00 & "," & ar(j, t)
      Next j
      Range("F9").ClearContents
      Range("F9").Validation.Modify 3, 1, 1, Mid(c00, 2)
    Case "$F$9"
      Sheets("printen").Range("E3") = Target
      Sheets("overzicht Barendrecht").Cells(1).CurrentRegion.AdvancedFilter 2, Range("F8:F9"), Sheets("printen").Range("A6:U6")
      Application.GoTo Sheets("printen").Range("A5")
  End Select
  Application.EnableEvents = True
Sheets("zoeken").Select
End Sub


Maar ik weet niet waarom.

PS. Als je in de eerste blad naar A51 gaat, dan kan je daar de scherm weer terug zetten.

 

[VenA]

Dit linkje al eens doorgenomen https://www.helpmij.nl/forum/announcement.php?f=5

Een paar citaten:

Beperk de inhoud van het bestand tot de vraag die u heeft.
Zet in het bestand een beperkt aantal, gevarieerde voorbeeldgegevens.

Voorkom dat door het openen van het bestand wijzigingen worden aangebracht op het systeem van de helper.

 

[Bertus78]

Oke dan weet ik dat ook voor de volgende keer.
Maar kan iemand mij helpen ?

 

[edmoor]

Vast wel, maar niet met het document zoals je deze plaatste.
Vandaar de reactie van VenA.