Automatisch namen vergelijken en opslaan

[Yesper]

Beste

Heb een groot bestand wat ik aangepast heb voor hier als voorbeeld neer te zetten.
Is het mogelijk om in Tabblad alle namen automatisch te laten neerzetten die ik in alle weken mis in de weektabellen.
De week tabellen zijn gevuld met namen in kolom A en J aangezien er in de andere kolommen informatie staat heb ik deze weggehaald.

Gaat er om dat ik op tabblad NAMEN, alle namen zie die in de weken staan , gaat natuurlijk vanaf week 1 t/m week 52

 

[JEC.]

Je hebt in de meeste gevallen geen tabblad per week nodig. Alles doen vanaf 1 tabblad is wenselijk mbt analyse etc.
Ik snap zo nog niet exact wat je uitkomst moet zijn.

Wil je een lijst van van unieke namen die in week 40 t/m 44 voorkomen?
Welke office versie heb je?

 

[JEC.]

Hier in ieder geval een optie voor office 365

=LET(x;TOCOL('Week 40 2022:Week 44 2022'!A3:J30);UNIQUE(FILTER(x;(x<>0)*(x<>"Namen"))))

 

[Yesper]

Hier in ieder geval een optie voor office 365

=LET(x;TOCOL('Week 40 2022:Week 44 2022'!A3:J30);UNIQUE(FILTER(x;(x<>0)*(x<>"Namen"))))

Excel; versie 2010

 

[JEC.]

En mijn eerste vraag? Tijd voor een office update. Er zijn in de tussentijd al heel veel nieuwe functies.

Deze code geeft dezelfde output als de formule.
Als dit niet is wat je wil, zal je op een ander moeten wachten. Het is de bedoeling dat jij de informatie geeft in plaats van dat ik er om moet vragen.

Sub jec()
 Dim sh, it
 With CreateObject("scripting.dictionary")
   For Each sh In Sheets
     If Left(sh.Name, 4) = "Week" Then
       For Each it In sh.Range("A1:J30")
         If Len(it) Then .Item(it.Value) = Array(it.Value, 1)
       Next
     End If
   Next
  Sheets("Namen").Cells(1, 6).Resize(.Count) = Application.Index(.items, 0, 1)
 End With
End Sub

 

[edmoor]

gaat natuurlijk vanaf week 1 t/m week 52

En wat doe je met week 53 dan?

 

[Yesper]

Namen

Beste

Zie bijgevoegd bestand Foutmelding.

Ja en i.d.d. week 53

Misschien nog een oplossing