Regels aanvullen met Data van andere sheet/bestand

[corel072]

Hallo,

Iedere maand moet ik 2 bestanden samenvoegen die 1 cel als overeenkomst heeft (ID).
Het ID op BLAD1 komt 1x voor, deze regel zou reperterend op iedere rij op BLAD2 geplakt moeten worden die hetzelfde ID heeft.
Het liefst zou ik een VBA willen laten uitvoeren of zo dat de formule niet tot aan de laatste rij 'getrokken' hoeft te worden.

Ik heb een heel simpel voorbeeld gemaakt met 1,2,3 en AAA, BBB, CCC en dit als voorbeeld toegevoegd.
Hoop dat iemand een antwoord voor mij heeft.

Bij voorbaat bedankt.

Gr, Simon

p.s. Het gaat in de uiteindelijke versie om het samenvoegen van 2 bestanden, maar in het voorbeeld heb ik er 2 werkbladen van gemaakt.

 

[AHulpje]

Maak een map D:\samenvoegen en plaats daar de bijlagen in, open het Excelbestand en kies "Gegevens", "Alles vernieuwen". Heb je geen D: schijf of wil je de bestanden in een andere map plaatsen dan moet je in het Excelbestand eerst de "Gegevensbroninstellingen" wijzigen.

 

[corel072]

Beste AHulpje,

Prachtige oplossing, mijn dank is groot.

 

[corel072]

Beste,

Toch nog even een vraag; waar kan ik de instellingen aanpassen? In het definitieve model heb ik namelijk te maken met andere kolommen.
Is het ook mogelijk om in plaats van .txt bestanden, xlsx bestanden samen te voegen?

 

[AHulpje]

Je kunt allerlei soorten bestanden samenvoegen.
Probeer het zelf maar eens:

Open een nieuw excel bestand.

Selecteer achtereenvolgens:

• Gegevens
• Nieuwe query
• Uit bestand
• Excel-werkmap
• Kies bestand en daarna werkblad
• Laden

Doe dit nogmaals voor de tweede Excel-werkmap

Kies daarna achtereenvolgens:

• Gegevens
• Nieuwe query
• Query's combineren
• Samenvoegen
• Selecteer Blad1, Blad2, de overeenkomende kolom (bijvoorbeeld ID) en type join
• OK

Selecteer vervolgens de kolommen die je in het eindresultaat wilt zien.

 

[snb]

In VBA:

Sub M_snb()
   sn = Sheet1.Cells(1).CurrentRegion
   
   For j = 2 To UBound(sn)
     With Sheet2.UsedRange
       .AutoFilter 1, sn(j, 1)
       .Columns(3) = sn(j, 2)
       .AutoFilter
     End With
   Next
End Sub