Aanvullen via VBA

[Woordvoerder]

Hallo,

Zoals de titel al aangeeft zoek ik een VBA code die voor mij een tabel aanvult.
Op blad1 staat de tabel en deze zou ik dan kunnen aanvullen met blad2 via een macro.
Ik heb zo'n beetje half google afgezocht met waarschijnlijk verkeerde engelse zoektermen, maar ik kan geen resultaten vinden.

Wat belangrijk is om te weten is dat de naam altijd uniek is en niet kan veranderen.
en dat de aantal kolommen niet overeenkomen.

Hierbij het bestand.
Bekijk bijlage Voorbeeld.xlsm

 

[Timshel]

Dat kan toch gewoon met Verticaal Zoeken?
Gaat nog sneller ook.

 

[Woordvoerder]

Beste Timshel,

De bedoeling is aanvullen van de tabel op blad1 via het ingevoerde gegevens van blad2.
Dus de verticaal opzoeken moet in VBA omgezet worden zodat de overige cellen op blad 2 worden gekopieerd.

 

[mvw64]

Misschien kan je er zo iets mee ?

 

[Cobbe]

Je moet een en ander omdraaien om een goed resultaat te bekomen:

Sub xxx()
Dim c As Range
Set c = Sheets("Blad1").Range("B7:B20").Find(Range("D11").Value, , , xlWhole)
If Not c Is Nothing Then
Sheets("Blad1").Cells(c.Row, "E") = Range("E11"): Range("E11").ClearContents
Sheets("Blad1").Cells(c.Row, "F") = Range("F11"): Range("F11").ClearContents
End If
End Sub

 

[Woordvoerder]

Toppers !!

Perfect bedankt.