Alfabetisch sorteren over meerdere tabellen

[swanwil]

Hallo,

Ik heb een document met meerdere tabbladen met ieder hun eigen tabel.
In die tabellen staat een kolom genaamd "Naam"
Nu wil ik op een nieuw tabblad een lijst genereren met alle unieke namen uit de kolom "Naam"en dan alfabetisch gesorteerd.

Ik heb een voorbeeld bestand bijgevoegd waarbij op Blad2, Blad3 en Blad4 een tabel staat en waar op Blad1 het gewenste resultaat is weergegeven

Hopelijk kan iemand me in de juiste richting helpen

groeten, swanwil

 

[VenA]

Met een macro'

Sub VenA()
  With Sheets("Blad1")
    Set d = CreateObject("Scripting.Dictionary")
    For Each sh In Sheets
      If sh.Name <> .Name Then
        ar = sh.ListObjects(1).DataBodyRange
        For j = 1 To UBound(ar)
          d(ar(j, 2)) = ""
        Next j
      End If
    Next sh
    .Cells(2, 1).Resize(d.Count, 1) = Application.Transpose(d.keys)
    .Cells(1).CurrentRegion.Sort .Cells(1), , , , , , , xlYes
   End With
End Sub

 

[glda19]

of misschien zo zelf wel niet getest
http://www.microknowledge.com/link-excel-data-across-multiple-sheets/

 

[swanwil]

@VenA,
Heb geen idee hoe de macro werk maar filtert prima. kan deze ook nog alfabetisch sorteren?

Is dit ook mogelijk met een of meerdere formules?
Ik ben namelijk niet thuis in macro's en wil het graag begrijpen.

@glda19
Volgens mij is dit juist andersom als ik het eerste blad heb en op wil spitsen naar de andere 3 tabbladen.

 

[glda19]

Totaal Zonder macro gedaan met een Query
Heb het werkblad toegevoegd en ook een filmpje van hoe ik het doet is anders te veel tekst

 

[swanwil]

@ glda19
Wow!
Precies wat ik zocht. Merci!

 

[glda19]

Snap niet waarom sommige direkt naar vba gaan als excel het ook kan zonder
En sorry was de link vergeten meegeven vanwaar ik het haalde
https://trumpexcel.com/combine-multiple-worksheets/

 

[VenA]

@glda19, mooie oplossing en uitleg :thumb: Alleen beschikt nog lang niet iedereen over de modernere versies van Excel en dan werkt een macrootje dan weer wel. In oudere versies is het ook wel mogelijk om dmv <Alt> + d + p een draaitabel te maken obv van meerdere tabellen en is het gewenste resultaat ook wel te krijgen. Maar werkt niet zo heel lekker vind ik.