verschillende namenlijsten samenvoegen

[descheep]

Goedemiddag,

Vraag: Ik wil graag 4 lijsten (met gebruikersnamen) uit 4 verschillende tabbladen samenvoegen op 1 tabblad. Hierbij moeten de unieke maar 1 x genoemd worden.

Hoe? Dat is nu de vraag :thumb:

Bedankt alvast voor het meedenken.

Groet Marco

 

[descheep]

de dubbele moeten natuurlijk maar 1x genoemd worden.....

 

[robdgr]

Alles samenvoegen op één blad en ontdubbelen?

 

[descheep]

yep, de namen moeten onder elkaar op 1 werkblad komen en dan ontdubbelen.

 

[sylvester-ponte]

plaats ze gewoon in 1 sheet bij elkaar en dan klik op bij duplicaten verwijderen.
dat zij Rob ook al met een "?"

 

[descheep]

ik wil juist die handmatige copy paste actie voorkomen...van 4 sheets naar 1
moet toch zeker automatisch kunnen, dacht ik

 

[descheep]

naast de gebruikersnamen staat er in die andere sheets nog meer wat ik middels verticaal zoeken wil combineren....
ik meende trouwens dat dat van Rob een vraag was...las hem net even anders dan jij.

 

[robdgr]

Rob ook al met een "?"

Inderdaad. Het vraagteken gaf aan dat ik me afvroeg of er heel iets anders achter de vraag weg zou komen. Nu mijn vraag bevestigd wordt, is het dus een kwestie van gewoon doen: vier keer kopiëren en plakken en vervolgens ontdubbelen. Het verticaal zoeken is dan de volgende stap. Kun je niet een simpel voorbeeld met niet-persoonlijke informatie plaatsen?

 

[descheep]

ik begrijp dat het met copy paste kan...die vraag hoefde ik niet te stellen, maar is het mogelijk om die vier 4 kolommen uit die 4 verschillende sheets onder elkaar te krijgen.
en dan bedoel ik automatisch

het aantal records kan verschillen.

zal een voorbeeld maken.

 

[descheep]

Bekijk bijlage licentietypen.xlsx

De namen in kolom A van DEV, PRD, DSR en PSR moeten automatisch (dus zonder handmatig copy paste werk) onder elkaar komen in kolom B (vanaf regel 5) in sheet 'overview'.
Het aantal records in DEV, PRD, DSR, PSR kan verschillen.

Alvast bedankt.

 

[VenA]

Probeer het eens met deze

Sub VenA()
For Each sh In Sheets(Array("DEV", "PRD", "DSR", "PSR"))
    sh.Columns(1).SpecialCells(2).Offset(1).Copy Sheets("Overview").Cells(Cells(Rows.Count, 2).End(xlUp).Row, 2).Offset(1)
Next sh
End Sub

 

[descheep]

ziet er goed uit :thumb:

dank daarvoor!!