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

De invoer van meerdere cellen moet het artikelnummer bepalen.

Status
Niet open voor verdere reacties.
G

Gerrit1981

Nieuwe gebruiker
Lid geworden
18 jan 2023
Berichten
3
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
 

Bijlagen

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.
 

Bijlagen

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,
 

Bijlagen

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?!
 
Hier een optie met alleen Power Query.
Rechtermuisknop in de groene tabel om te verversen.
 

Bijlagen

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

Bijlagen

Prachtig mooi gemaakt Albert!

Groetjes Johan
 
@AD

wat dacht je van ?

Code: 
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
 
Laatst bewerkt:
Zou het graag eens bekijken, maar mis het bestand.

edit: sorry, ik had het codeblok niet helemaal bekeken.
 
Laatst bewerkt:
@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
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan