De invoer van meerdere cellen moet het artikelnummer bepalen.

[Gerrit1981]

Hallo,

Wie kan mij helpen aan de formule om het juiste artikelnummer te achterhalen.

Er zijn een viertal cellen die ingevoerd moet worden.
Aan de hand van deze invoer moet het juiste artikelnummer geselecteerd worden.

Ik ben al een poos aan het stoeien geweest met de ALS functie, maar ik kom er niet uit.

Zie ook bijgevoegd excel document.

Alvast bedankt,
Gerrit

 

[AlexCEL]

Zie bijlage (Excel 365 oplossing). Heb eerst de tabel omgezet met Power Query in iets bruikbaars. Daarna de FILTER functie gebruikt om het kleinste artikelnummer te vinden, daarna een VERT.ZOEKEN functie om een omschrijving bij het artikelnummer te vinden.

 

[Gerrit1981]

De invoer van meerdere cellen moet het artikelnummer bepalen - aanvulling

Beste AlexCEL,

Allereerst bedankt voor je hulp - ik heb er veel aan als dit goed functioneert.

Ik heb het bestand volledig gemaakt, maar krijg het niet compleet werkend.
Wilt u de formules nog eens nakijken?

Tevens heb ik een aanvullende vraag:
De monteurs moeten een aantal zaken invullen - deze zijn te vinden bij de variabelen.
Zijn deze cellen zo te maken dat men alleen kan kiezen uit de vaiabelen.
Geen vrije tekst, maar alleen de variabelen.

Hopelijk omschrijf ik het zo goed.

Alvast bedankt,

 

[AD1957]

vraag 2: verdiep je eens in "gegevensvalidatie"

 

[Gerrit1981]

Beste Ad1957

De gegevensvalidatie is gelukt.

De verwijzing naar de tabel met het artikelnummer gaat mij echt boven de pet.

Hopelijk kan/wil iemand dit voor mij doen?!

 

[JeanPaul28]

met een hulpkolom

 

[JEC.]

Hier een optie met alleen Power Query.
Rechtermuisknop in de groene tabel om te verversen.

 

[jverkerk]

Misschien nog een optie!

 

[AD1957]

Met VBA, klick op de groene knop om te starten.
p.s. nog niet helemaal getest.

 

[AD1957]

Met enkele aanpassingen gaat het beter.

 

[jverkerk]

Prachtig mooi gemaakt Albert!

Groetjes Johan

 

[AD1957]

Nu nog even wachten of Gerrit er iets aan heeft.

 

[snb]

@AD

wat dacht je van ?

Private Sub ListBox2_Click()
    M_filter 2
End Sub

Private Sub ListBox3_Click()
  M_filter 3
End Sub

Private Sub ListBox4_Click()
  M_filter 4
End Sub

Private Sub ListBox5_Click()
  M_filter 5
End Sub

Private Sub ListBox6_Click()
    M_filter 6
End Sub

Private Sub ListBox7_Click()
  M_filter 7
End Sub

Sub M_filter(y)
    With Me("ListBox" & y)
        If .ListIndex > -1 Then
            Blad2.ListObjects(1).DataBodyRange.AutoFilter y, .Value
            Blad2.ListObjects(1).DataBodyRange.Columns(y + 1).AdvancedFilter 2, , Blad2.Cells(1, 100), True
            Me("Listbox" & y + 1).List = Blad2.Cells(1, 100).CurrentRegion.Offset(1).Value
            Blad2.Cells(1, 100).CurrentRegion.Clear
            
            Me("ListBox" & y + 1).Visible = True
                If ListBox1.ListCount = 1 Then
                    TextBox1 = ListBox1.List(0, 0)
                    TextBox2 = ListBox1.List(0, 8)
                    Lb_Gevonden.Visible = True
                    Lb_ArtNummer.Visible = True
                    Lb_OmschArtikelnr.Visible = True
                    TextBox1.Visible = True
                    TextBox2.Visible = True
                End If
        End If
    End With
End Sub

NB. Ik heb de Listboxes allemaal op columncount = 1 gezet en geen columnwidths ingesteld.


Kijk voor een vervolg eventueel hier:

https://www.snb-vba.eu/VBA_Userform_invoercontrole.html

 

[AD1957]

Zou het graag eens bekijken, maar mis het bestand.

edit: sorry, ik had het codeblok niet helemaal bekeken.

 

[jverkerk]

@snb
Hallo even vraagje, kun je die code in een module zetten en aan een knop koppelen zonder problemen.
Of is het toch iets geclompiceerder.
Zou je het uit willen leggen eventueel, wil het graag leren.

Groetjes Johan