• 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.

Verticaal zoeken geeft rare resultaten

Status
Niet open voor verdere reacties.

Maysun

Gebruiker
Lid geworden
22 nov 2014
Berichten
361
Zie 1e kolom 'artikelnummer'. Ik heb hier vert.zoeken formule ingevuld om te zoeken in de kolommen rechts naar het bijpassende artikelnummer.

Maar ik krijg alleen maar verkeerde artikelnummers, dubbele en n/b meldingen.

Wat doe ik fout?
Bekijk bijlage verticaal zoeken lukt niet.xlsx

Ik heb ook geprobeerd gewoon beide op alfabet sorteren en dat artikelnummers kopiëren/plakken maar o.m. vanwege dubbelen lukt dit niet. Moet toch lukken met vert. zoeken.
 
Met vert.zoeken gaat het niet lukken.

Probeer het eens met deze UDF
Code:
Function VenA(r1 As Range, r2 As Range)
Dim j As Long, ar
ar = r2
For j = 1 To UBound(ar)
    If InStr(1, r1, ar(j, 1)) > 0 Then
        VenA = ar(j, 2)
        Exit For
    End If
Next j
End Function
 

Bijlagen

  • verticaal zoeken lukt niet.xlsb
    37,2 KB · Weergaven: 475
Laatst bewerkt:
Hoi VenA

Het is me toch gelukt met verticaal zoeken door terug te grijpen naar oorspronkelijk bestand en dubbelen te verwijderen en de referentietabel A-Z te sorteren op naam.

Maar voor een volgende keer wel handig om te weten, waar voer ik een UDF in?
 
In je VERT.ZOEKEN functie heb je benaderen op WAAR gezet. Dat betekend dus dat lijst waarin je zoekt alfabetisch gerangschikt moet zijn.

Als je deze op ONWAAR zet moet de waarde exact voorkomen in de zoeklijst. Dat is bij jou niet het geval, wat er staan in kolom A telkens hoeveelheden achter....

Dus 2 oplossingen:
1) zet de hoeveelheden in een aparte kolom
2) sorteer de lijst

Ik begrijp dat je het tweede gedaan hebt...
 
Laatst bewerkt:
Zoals al in het voorbeeld; gesorteerd.

In b2 en doorvoeren naar onderen.
Code:
=ZOEKEN(1000;VIND.SPEC($C$2:$C$380;A2);$D$2:$D$380)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan