Twee excel bestanden mergen met als uitvoer een derde bestand

[Nortel]

Excel 2003 engels

Ik heb twee excel bestanden die ik wil mergen tot een derde bestand (zie attachments).
Book1.xls en Book2.xls
Book1 heeft data in kolomen A en B
Book2 heeft data in kolomen A en B en C en D ...etc etc.

er moet een vergelijking komen van beide books op kolomen A en/of B en waardoor de data van book2 van A tot en met J in book 3 komen.

Ik hoop dat ik het zo goed heb uit gelegd.
De bedoeling is een adres excel lijst te maken, in de ene bestand hebben we halve informatie, de andere informatie staat in de andere bestand dat moet een geheel worden in een andere bestand.

Ik hoop dat iemand mij kan helpen.

 

[popipipo]

Kun je een iets duidelijker voorbeeld posten want book1 is een exacte kopie van kolommen A en B uit book2
Dan zou Book3 dus gelijk moeten worden aan book2
Denk niet dat dit zo is.
maw wat zijn de verschillen tussen book1 en book2

 

[Nortel]

Book3 moet een lijst tonen die combineerd is van book1 en book2.
Book1 en Book2 hebben gemeen de klanten nummer en klanten naam.

Als in Book1 en Book2 op klant nummer wordt vergelijkt, dan moet in Book3 de kolomen A tot J getoond worden. Mits natuurlijk de klant nummer over een komt.

 

[popipipo]

Je antwoord heeft het voor mij nog steeds niet duidelijker gemaakt.

Wat kan er bv wel in Book1 staan en niet in Book2
en ook omgekeerd natuurlijk.
En hoe zou je Book3 er dan (in beide gevallen) hebben willen uitzien.
In je voorbeelden zou Book3 er het zelfde uit zien als Book2.
Als ik je vraag tenminste goed heb begrepen.

 

[Nortel]

Antwoord deels gevonden

Ik heb het antwoord deels gevonden, zie hier het resultaat, zoek alleen nog een manier om het van book1 en book2 naar book3 geplaatst te krijgen. (zie attachment)

Dit is de formule die er gebruikt wordt:

=IF(ISERROR(VLOOKUP(A2;Book2!$A$2:$H$16;3;FALSE));"";VLOOKUP(A2;Book2!$A$2:$H$16;3;FALSE))

 

[snb]

Hiermee moet je een eind kunnen komen:
Pas de namen van de workbooks aan.

Sub tst()
  With Workbooks(1).Sheets(1)
    .UsedRange.Copy Workbooks(3).Sheets(1).Cells(1, 1)
    sq = .UsedRange
  End With
  With Workbooks(2).Sheets(1)
    For j = 1 To UBound(sq)
      .Columns(1).Find(sq(j, 1)).Resize(, .UsedRange.Columns.Count).Copy Workbooks(3).Sheets(1).Cells(j, 3)
    Next
  End With
End Sub

 

[Nortel]

WOW,

waar plaats ik dat stukje code, de formule heb ik van een kennis gehad, ben dus niet goed erin.

 

[snb]

via de VBEditor (alt-F11) in een module van een van de werkboeken(bestanden).
Voor nadere details: kijk op diverse websites naar het gebruik van de VBEditor.