celinhoud naar juiste rij op ander werkblad

[DieBe]

Op werkblad 1 heb ik een aantal gegevens ingevuld. Nu wil ik deze wegschrijven naar werkblad 2. De gegevens moeten dan in de rij komen welke overeenkomt met een waarde uit een cel op blad 1. Nu heb ik iets gelezen over MATCH maar ik zie nergens een voorbeeld die ik kan aanpassen naar mijn werkblad. Dit komt ook omdat ik niet snap wat de code doet op welk moment.
Als voorbeeld een heel simpel bestandje toegevoegd. Wie kan mij stap voor stap uitleggen wat de juiste code doet zodat ik hem kan aanpassen in het echte bestand.

Bekijk bijlage helpmij.xlsm

 

[JeanPaul28]

werkend op jou voorbeeld

 

[VenA]

Loop met <F8> in de VB-editor door de code en je zal zien dat het alleen maar ellende is. Het is beter om het echte bestand te plaatsen. De opgenomen macro heeft niets met het voorbeeld bestandje te maken en is nagenoeg onleesbaar door alle selects en scrolldowns die niets toevoegen.

Zowel de gebruikte methode Find die door JeanPaul28 is geplaatst kan je gebruiken als onderstaande. En zullen beide niet direct correct werken in het echte bestand.

Sub VenA()
  With Blad1
    ar = Blad2.Cells(Application.Match(.[C1], Blad2.Columns(1), 0), 1).Offset(, 1).Resize(, 6)
    ar(1, 1) = .[B2]
    ar(1, 3) = .[B4]
    ar(1, 4) = .[B5]
    ar(1, 6) = .[B7]
    Blad2.Cells(Application.Match(.[C1], Blad2.Columns(1), 0), 1).Offset(, 1).Resize(, 6) = ar
  End With
End Sub