Gegevens uit 2 sheets samenvoegen

[Smokendrive]

Hoi!

Ik verkoop producten op Bol.com en pas regelmatig de levertijd aan van individuele producten. Dat duurt natuurlijk vrij lang om dat handmatig te doen. Nu kan dat ook in Excel, maar ik weet niet goed hoe ik dat in moet richten om dat fatsoenlijk werkend te krijgen.

Ik heb een voorbeeld als bijlage toegevoegd. In de eerste sheet is de lijst zoals die wordt gedownload van Bol.com. In de tweede sheet staan de producten waarvan ik de levertijd wil aanpassen.

In sheet 1 is kolom B de EAN code en kolom F de levertermijn.
In sheet 2 is kolom A de EAN code en kolom C de levertermijn.

Alle producten in de eerste sheet moeten wel blijven staan en dus alleen de producten die in zowel sheet 1 als sheet 2 staan moeten aangepast worden. In het voorbeeld zou dus product met EAN 0888462603799 levertijd 2-3d moeten krijgen.

Hopelijk is het wat duidelijk
Alvast bedankt en een fijne jaarwisseling toegewenst!

 

[JeanPaul28]

Met vba

 

[emields]

of zo, met wat uitleg in de code

 

[JEC.]

Nog een VBA optie zonder Loop

Sub jec()
 Set jv = Sheets(2).Range("A2", Sheets(2).Cells(Rows.Count, 3).End(xlUp))
 With Sheets(1).Range("B4", Sheets(1).Cells(Rows.Count, 2).End(xlUp))
   .Offset(, 4).Value = Evaluate("iferror(lookup(" & .Address & ",Sheet1!" & jv.Columns(1).Address & ",Sheet1!" & jv.Columns(3).Address & "), """")")
 End With
End Sub

 

[HSV]

Als de EAN nummers gelijk zouden zijn op beide bladen.