Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 11 van 11

Onderwerp: Zoeken op naam

  1. #1
    Vraag is niet opgelost

    Zoeken op naam

    Beste helpmij-er,

    Ik zit al de hele middag te *****n maar ik snap er niks van .

    Ik heb een voorbeeld bestandje bijgevoegd. Ik wil zoeken op naam. Waarbij ik bijvoorbeeld als ik Danny intyp: ik het nummer bijbehorend bij Danny wil weergeven.
    Echter ook het nummer bij de tweede danny die tegen wordt gekomen. Maar ook als ik bijvoorbeeld "dan" intyp, dat ik een hele lijst krijg met alle nummers waarbij een naam hoort waar "dan" in voorkomt.

    Dit is een voorbeeld lijst maar het daadwerkelijke bestand heeft zon 50.000 rijen. Wie helpt mij uit de brand?!

    Mijn dank is groot.
    Attached Files Attached Files

  2. #2
    Mega Senior AlexCEL's avatar
    Geregistreerd
    3 april 2014
    Locatie
    Groningen
    Afstand tot server
    ±117 km
    Zie bijlage... zoiets?

    Let op: gebruikte formules zijn matrixfuncties, d.w.z. afsluiten met Control+Shift+Enter na invoeren/wijzigen.
    Attached Files Attached Files
    -- een voorbeeldbestandje zegt meer dan 1000 woorden --

  3. #3
    Giga Honourable Senior Member
    Verenigingslid

    Geregistreerd
    12 juni 2008
    Of
    Attached Files Attached Files
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/showthread.php/635117-Tips-om-de-helpers-in-deze-sectie-van-dienst-te-zijn
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  4. #4
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Je kan in het filter 'bevat' gebruiken. Dan heb je geen matrixformules of VBA nodig.

    In het voorbeeldje wel met VBA maar is dus niet echt nodig.

    Nb. Vergeet je niet op andere door jouw gestelde vragen te reageren?
    Attached Files Attached Files
    Laatst aangepast door VenA : 18 augustus 2017 om 19:53 Reden: Nb toegevoegd
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  5. #5
    Wow geniale oplossingen!

    Quote Origineel gepost door AlexCEL Bekijk Bericht
    Zie bijlage... zoiets?

    Let op: gebruikte formules zijn matrixfuncties, d.w.z. afsluiten met Control+Shift+Enter na invoeren/wijzigen.
    Sick! . Hoe werkt deze formule precies? Hij is geniaaal, alleen snap ik niet precies wat ie doet.




    @snb Sorry ik snap echt niet wat er hier gebeurd haha.



    @VenA Thanks. Dit is eigenlijk "de meest schone". Alleen het werkbestand waar ik dit uiteindelijk in wil toepassen staat het bronbestand op blad 1 (+- 50.000 rijen). Als het bronbestand op Blad1 staat en de tekstbox op blad 3. Kan ik dan op 1 of andere manier "de resultaten" op blad 3 krijgen?

    Sheets("Blad1").ListObjects(1).Range.AutoFilter 2, "*" & TextBox1 & "*"

    Hoe vertaal ik deze code precies? Met name wat dit "*" & TextBox1 & "*" doet/betekent?

  6. #6
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Als je een formule niet begrijpt dat kan je formules evalueren gebruiken. Neem in dit geval wel een kleine dataset zoals jouw voorbeeldje en niet de 50k rijen.

    Een '*' is een wildcard hiermee kan je dan filteren. Google maar even op 'wildcards excel'. En als je dan toch aan het googlen bent zoek ook even op 'advanced filter excel' om de gegevens op een ander blad te krigen. Mocht je er niet uitkomen plaats dan een representatief voorbeeld. Want waar het zoekvak staat en waar de gegevens moeten komen ben je vergeten te vermelden.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  7. #7
    Dankjewel! Ik snap de basis van wildcards en advanced filter excel , super handig. Nooit geweten dat dit bestond. De "vba zoekbalk" en uiteindelijke lijst moeten op blad 3 komen te staan - terwijl de brondata op blad 1 staat.
    Echter is de koppeling op 1 of andere manier verloren gegaan. Wanneer ik sowieso de gefilterde tabel naar een andere locatie kopieer, dan wordt deze niet bijgewerkt zodra ik de filtering aanpas?

    Ik heb een bestandje bijgevoegd. Helluupp
    Attached Files Attached Files

  8. #8
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Als je verwijst naar Blad2 en Listobjects(2) dan werkt er natuurlijk niets en komt ook niet overeen met de vraagstelling.

    Code:
    Private Sub TextBox1_Change()
      With Cells(1, 26).Resize(2)
        .Value = Application.Transpose(Array("Naam", "*" & TextBox1.Text & "*"))
        Sheets("Blad1").Range("Tabel1[#All]").AdvancedFilter xlFilterCopy, Range("Z1:Z2"), Range("B5:C5")
        .Clear
      End With
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  9. #9
    Het daadwerkelijke bestand is nogal privacy gevoelig helaas dus lastig om te delen.

    Ik ben even kwijt hoe ik de code moet lezen? Ik zie een vast celbereik in de vba code. Echter loopt het bronbestand op dit moment tot A46698, en hier komen er eenmaal per week een X aantal bij. Ik begrijp ook niet helemaal waar de verschillende "range"-n naar verwijzen. Ik probeer de code om te bouwen maar ik begrijp niet helemaal wat waarnaar verwijst.

    Het bronbestand staat op blad2. Een grote tabel waarbij de relevante gegevens in kolom 1 en 2 staan: "Tussenpersoon nummer" & "bedrijfsnaam".
    &
    Zoekbalk om naam in te typen staan op: Blad1, C126 waarbij de resultaten terecht moeten komen B128:C128 (zie bijlage)
    Bijgevoegde kleine afbeeldingen Bijgevoegde kleine afbeeldingen Klik op afbeelding voor grotere versie

Naam:  Resultaat.PNG‎
Bekeken: 11
Grootte:  21,9 KB  
    Laatst aangepast door TWDR : 23 augustus 2017 om 13:56

  10. #10
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Privacy gevoelige informatie kan je aanpassen door fictieve gegevens.

    De "vba zoekbalk" en uiteindelijke lijst moeten op blad 3 komen te staan - terwijl de brondata op blad 1 staat.
    Het bronbestand staat op blad2. Een grote tabel waarbij de relevante gegevens in kolom 1 en 2 staan: "Tussenpersoon nummer" & "bedrijfsnaam".
    &
    Zoekbalk om naam in te typen staan op: Blad1, C126 waarbij de resultaten terecht moeten komen B128:C128 (zie bijlage)
    Tegen de tijd dat je eruit bent waar nu wat staat en wat waar moet komen dan zien we wel een representatief voorbeeld tegemoet. (Plaatjes hebben over het algemeen weinig toegevoegde waarde.)

    Hier een linkje voor waar de verschillende ranges voor staan. https://msdn.microsoft.com/en-us/vba...r-method-excel
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  11. #11
    Ik heb lopen stoeien met de formules maar ik kom er niet uit. Ik heb een representatief voorbeeld van het bestand, waarbij de originele data is geanonimiseerd.

    Het brondata tabblad bevat oorspronkelijk meerdere kolommen, ivm privacy heb ik deze verwijderd. Dit is de reden dat veel van de andere formules niet meer werken.


    Ik probeer echter de “ZOEKEN OP NAAM” formule werkend te krijgen op het tabblad ‘ZOEK FORMULES’.

    Ik probeer een advanced filter toe te passen, waarbij ik op het tabblad ‘zoek formules’ een bedrijfsnaam intyp, en hierbij het juiste personeel nummer wordt weergegeven. In het daadwerkelijk bestand bestaat de kolom personeelnummer uit enkel unieke nummers.


    Hellluupppp
    Attached Files Attached Files

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren
Aanbiedingen