Waarde van meerdere cellen copieren naar andere cellen

[Marc666]

Ik zit met het volgende probleem. (zie voorbeeldbestand in bijlage)
er zijn 2 tabellen met gegevens, TRS en ITM
ITM bevat de items, TRS is de transactie. er is telkens 1 transactie voor een groep items
ik moet de items kunnen vergelijken met de transactie.
in beide tabellen is er een kolom transactienummer
in de derde tabel wil ik de zaken gaan vergelijken. controleren of het bedrag van de transactie overeenkomt met de daarbij horende items

aangezien er in de transactie telkens maar 1 rij is per transactienummer haal ik deze gegevens op met een vlookup

het probleem waar ik mee zit is hoe ik alle items met hetzelfde transactienummer kan gaan zoeken en de waarden uit bepaalde kolommen kan gaan kopieren in de derde tabel.... heb lang gezocht maar heb geen enkele formule of functie gevonden die me daarbij kan helpen....

tabel vergelijking:
het te vergelijken transactienummer wordt handmatig ingegeven. (in cel B1)
in rij 4 staan de "velden" (uit de tabel TRS) waarvan de waarden belangrijk zijn voor de vergelijking
in rij 5 worden deze "velden" ingevuld met een vlookup

in rij 7 staan de "velden" (uit de tabel ITM) waarvan de waarden belangrijk zijn voor de vergelijking
vanaf rij 8 moeten de waarden ingevuld worden, telkens een nieuwe rij zolang het opgezochte transactienummer voorkomt in de kolom transactienummer in de tabel ITM

dus eigenlijk een do while transactienummer = "het opgezochte transactienummer" en dan telkens naar de volgende rij gaan en het transactienummer vergelijken.

allicht dat dit met VBA dient opgelost te worden maar mijn kennis van VBA reikt hier (nog) niet ver genoeg in....

alle hulp is welkom

 

[emields]

zoiets?

 

[Marc666]

zoiets?

Yes! dankjewel!

 

[HSV]

Zorg dat in beide bladen de kopteksten gelijk zijn; zie bestand.

Geen loopje nodig.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B1" And Target.Count = 1 Then
 If Target <> "" Then
    Application.EnableEvents = False
      Range("r1:r2") = Application.Transpose(Array(Cells(7, 1), Target.Value))
      Sheets("ITM").Cells(1).CurrentRegion.AdvancedFilter 2, Range("r1:r2"), Range("a7:p7")
      Range("r1:r2").ClearContents
    Application.EnableEvents = True
 End If
End If
End Sub