Zoekopdracht voor meerdere

[FleurB]

Hallo allemaal!

Ik werk sinds een week bij een bedrijf waar met heel veel prijslijsten van verschillende leveranciers wordt gewerkt. Nu wil ik op basis van een productcode alle resultaten (de prijzen) in kunnen zien.
Ik dacht dit te doen door middel van query's (aangezien ik vaak nieuwe tabellen met prijslijsten moet toevoegen) en vervolgens index en vergelijk functie op de query te gebruiken die alle tabellen samenvoegt. Nu loop ik vast op de index-vergelijkfunctie en het feit dat het niet lukt om meerdere resultaten op te vragen.

Daarnaast is het belangrijk dat bij de resultaten de juiste valuta verschijnt van het resultaat. Ik heb een voorbeeld (zonder formules) bijgevoegd.

Hebben jullie een idee hoe ik dit het beste kan gaan opzetten?

 

[AlexCEL]

Een optie in bijlage via powerquery. Weet niet of het helemaal de bedoeling is, maar bekijk maar eens.

 

[Timshel]

Anders zo? (in module van het werkblad)

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cl As Range, Rng As Range
    Dim Sh
    
    If Target.Address = "$B$2" Then
        Range("C2:D" & Cells(Rows.Count, 3).End(xlUp).Row + 1).ClearContents
        For Each Sh In Sheets
            If Sh.Name <> "Zoekblad" Then
                Set Cl = Sh.UsedRange.Find(Target.Value, LookAt:=xlWhole)
                If Not Cl Is Nothing Then
                    Set Rng = Cells(Rows.Count, 3).End(xlUp).Offset(1)
                    Rng = Sh.Name
                    Cl.Offset(, 2).Copy Rng.Offset(, 1)
                End If
            End If
        Next
        Columns(4).Interior.Color = xlNone
    End If
End Sub