Tabbladen samenvoegen en sorteren

[Sfinqs]

Ik heb een xls met meerdere tabbladen. Elk tabbled staat gesorteerd op naam.
Niet elke naam komt op alle tabbladen voor. Hoe kan ik ervoor zorgen dat, op
elk tabblad alle namen voorkomen? Het is de bedoeling om persoon x die op rij
12 staat op tabblad 1 ook op rij 12 in tab 2, 3 , .. te hebben.

[zonder dit @hotmailpuntcom john philippen]

of je formuleert het niet goed genoeg (voor mij) of je opdracht is onmogelijk

stel
blad 1
anton
piet
klaas
truus

blad 2
antond
bernard
piet
.....
dan krijg je ze dus nooit meer op een blad één op één rij1

john
--
Vragen is nooit dom.
Met een vraag blijven lopen wel.
Want dat lost nooit iets op.

[Sfinqs]

Ik probeer te verduidelijken:

blad 1 blad 2 blad 3 oplossing
carl carl bert bert
danny peter danny carl
danny
peter

in de oplossingstab zouden dus alle namen moeten komen te staan uit de
vorige tabbladen.

"john philippen" schreef:

[maurrieske]

Sfinqs, wat je de tweede keer vraagt is iets anders dan de eerste keer. Maar
het is dan wel mogelijk. Maar eerst even checken of ik jou goed begrijp. Je
wil van alle namen op alle tabbladen (behalve het blad oplossing) een
gesorteerde totaallijst maken op blad oplossing waarbij elke naam slechts
een keer voorkomt.

Dat kan op twee manieren
Handmatig:
Zet op een extra blad alle namen van de voorgaande bladen.
Maak van deze lijst met namen een draaitabel. De draaitabel heeft dan de
unieke namen en gesorteerd.

Of je kunt ook met een macro werken.
Ga naar de vba editor (ALT+F11)
Menu: invoegen - module
zet onderstaande code op het moduleblad

De macro kun je opstarten door ALT+F8 en dan de macro aan te klikken
(dubbelklik op de macronaam)

Sub alle_namen()
Sheets("oplossing").Select
Columns("A:A").ClearContents
For i = 1 To Sheets.Count
If LCase(Sheets(i).Name) <> "oplossing" Then
Sheets(i).Select
x = 1
While Range("A" & x) <> ""
If aantal_namen(Range("A" & x).Value) = 0 Then
rij = Range("'oplossing'!A65536").Offset.End(xlUp).Row + 1
Range("A" & x).Copy Range("'oplossing'!A" & rij)
Sheets(i).Select
End If
x = x + 1
Wend
End If
Next
Sheets("oplossing").Select
Range("A1").Delete xlShiftUp
Columns("A:A").Sort Key1:=Range("A1")
End Sub

Function aantal_namen(st_naam As String)
aantal_namen = WorksheetFunction.CountIf(Range("'oplossing'!A:A"), st_naam)
End Function

Succes,
Maurrieske

"Sfinqs" <Sfi...@discussions.microsoft.com> schreef in bericht
news:98809A07-6791-4921...@microsoft.com...