Vullen lege velden

[gelens]

Forumleden,

Ik krijg regelmatig data waarbij niet alle velden gevuld zijn. Zie de gele velden in de bijlage.
Deze wil ik graag gevuld hebben op basis van de oranjevelden.
Dit is uiteraard mogelijk via vert.zoeken maar ik wil dit graag via een stukje VBA.
De op te zoeken gegevens staan op het tabblad Stamgegevens.

Dus voor de duidelijkheid : Als er in kolom B niets staat moet er op basis van kolom D gezocht worden in de stamgegevens en het resultaat moet als waarde in kolom B komen.

Ik hoop dat ik duidelijk ben.

 

[Wigi]

Sub Macro1()
    Columns(2).SpecialCells(xlCellTypeBlanks).Formula = "=VLOOKUP(RC[2],Stamgegevens,3,FALSE)"
End Sub

Wigi

 

[gelens]

Wigi

Bedankt voor de snelle reactie.
Ik wist niet dat je de formule ( Vlookup ) zo in VBA kon toepassen.

Weer iets geleerd.

Nogmaals bedankt.