2 tabellen met elkaar vermenigvuldigen

[kammakanezie]

ik heb 2 tabellen.

in tabel 1 heb ik namen met letters staan
in tabel 2 heb ik namen met cijfers staan.

nu als de uitkomst wil ik alle letters met cijfers combineren als de naam hetzelfde is.

in de bijlage heb ik het gewoon door kopiëren plakken gedaan, maar ik wil dit automatisch kunnen.

Want als een naam 10 cijfers heeft en 7 letters gaat het dus om 70 combinaties.

Met vriendelijke groet,

Kammakanezie

 

[arrie23]

Dergelijke koppelingen zijn niet echt iets voor Excel. Een simpele join tussen 2 tabellen kan je heel eenvoudig uitvoeren met een (eenvoudig) databaseprogramma zoals Access. In Excel is het een stukje moeilijker maar vermoedelijk is er vast wel iemand met voldoende VBA-kennis om dit voor elkaar te krijgen.

 

[rebmog]

Ik heb wat in elkaar geflanst met formules. Voorwaarde is wél dat de lijsten met letters en met cijfers, net zoals in jouw voorbeeld, op naam zijn gesorteerd.

 

[snb]

Sub M_snb()
    sn = Sheet1.Cells(1).CurrentRegion
    sp = Sheet1.Cells(1, 4).CurrentRegion
    
    For j = 2 To UBound(sn)
      For jj = 2 To UBound(sp)
        If sp(jj, 1) = sn(j, 1) Then c00 = c00 & " " & sn(j, 1) & "_" & sn(j, 2) & sp(jj, 2)
      Next
    Next
    sn = Split(Trim(c00))
    
    Cells(20, 1).Resize(UBound(sn) + 1) = Application.Transpose(sn)
End Sub

 

[OctaFish]

leuk bedacht snb, maar je voldoet niet aan de vraag . TS wil het resultaat in 2 kolommen, niet 1.

 

[snb]

Ik dacht dat jij wel bekend zou zijn met texttocolumns.
Bovendien pretendeer ik nimmer met oplossingen te komen, slechts met suggesties waarmee de vraagsteller kan gaan werken.
Er gaat niets boven zelfredzaamheid, en die wil ik juist stimuleren (ook bij degenen die een draad volgen).
Dus als jij dan nog eens keurig de VBA-code voor tekst naar kolommen toevoegt.....

 

[OctaFish]

Ik had een oplossing met 2 matrixen; één voor elke kolom. Maar TS mag natuurlijk ook iets doen, dus de TextToColumns laat ik nog even open