Dataselectie filteren

[rudy201]

Beste,

Voor in ons magazijn heb ik een overzicht in excel gemaakt waar elk artikel met unieke produktcode en maat op welke picklocatie ligt.

Nu zo ik graag een snelle zoekfunctie willen inbouwen wat mijn personeel kan gebruiken om te weten op welke picklocatie welk produkt in welke maat ligt.

Zoals je kan zien in bijgevoegd exceldocument heb ik in cel G1 een unieke produktcode staan. Om het makkelijk te maken hoeft het personeel alleen de laatste nummers in te voeren van de code. Deze code kan meerdere malen voorkomen op verschillende locaties. Elke locatie 1 maat. Maar kunnen ook meedere maten zijn of meerdere codes op 1 locatie.

Kan iemand mij hiermee helpen om dit in te bouwen?

Mijn excel kennis is helaas niet zo goed.

Ik hoor het graag

 

[Clemens83]

Als je onderstaande formule gebruik dan zoekt ie de eerste de beste waarde.

=VERT.ZOEKEN(G1;A:C;3;ONWAAR)

Ik denk alleen dat je op meer waardes moet zoeken.
Weet alleen zo niet of dat kan.

 

[Joske2000]

Hi,

Met een vba codetje erachter.

Joske

 

[Warme bakkertje]

Of met een simpel autofilter (VBA)

 

[rudy201]

Hoi Joske,

Super bedankt. Ziet er wel top uit. Ik heb het document geprobeerd te beveiligen maar dan krijg ik een foutmelding.

Is dit ook nog mogelijk dat ze alleen de code kunnen invullen en verder geen schade kunnen aanrichten

 

[Joske2000]

Hi Rudy,

Plak onderstaande code ipv de bestaande code :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("F2:G2")) Is Nothing Then
    ActiveSheet.Unprotect
    Columns("A:C").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "E3:E4"), CopyToRange:=Range("E5:G5"), Unique:=False
    End If
    ActiveSheet.Protect
End Sub

Joske

PS : je moet ook in de celeigenschappen van G2 het vinkje weghalen bij Geblokkeerd