Split Worksheet in meerdere Workbooks obv Row Value

[RutN]

Beste VBA Experts,

Ik wil graag bijgevoegd bestand splitten in meerdere excel bestanden obv de teamnaam in kolom A. Dus een apart bestand voor NCTO-1-1, NCTO-1-2 etc. Dit bestand draai ik wekelijks dus ik wil voorkomen dat ik elke week handmatig het bestand moet splitten. De aantallen malen dat het team voorkomt in kolom A verschilt per team maar ook per week dat ik het bestand draai (door bijv. mensen die vertrekken of in dienst treden). Dit is dus flexibel en zal obv team naam moeten gebeuren gok ik? Is er iemand die mij hierbij zou kunnen/willen helpen?

Bij voorbaat dank.

Groet Rutger

 

[snb]

Gebruik een aoart weergavewerkblad met een draaitabel.
Splitsen van gegevens iz zelden of nooit een goed idee.

 

[AHulpje]

SplitWorkbook

Bijgaande macro splitst je bestand. Ik ga er vanuit dat kolom A goed gesorteerd is, en dat is hij in jouw voorbeeld niet.
Run macro: Alt-F8, Enter

 

[JEC.]

Als je het dan toch allemaal op gaat splitsen:
Code zonder selects en activates en zo veel mogelijk met arrays. Zo blijft het snel.

PS: samengevoegde cellen en macro's gaan niet samen.

Sub jec()
 Dim ar, d As Object, i As Long
 Set ar = Sheets(1).Cells(1).CurrentRegion
 Set d = CreateObject("scripting.dictionary")
 
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False
 
 For i = 3 To ar.Rows.Count
   If Not d.exists(ar(i, 1).Value) Then
      With ar
        .Offset(1).AutoFilter 1, ar(i, 1)
        .Copy
         With Workbooks.Add
           .Sheets(1).Paste
           .SaveAs ThisWorkbook.Path & "\" & ar(i, 1) & ".xlsx", 51
           .Close 0
         End With
        .AutoFilter
      End With
      d(ar(i, 1).Value) = Empty
   End If
 Next

 Application.DisplayAlerts = True
End Sub

 

[snb]

Daarvoor heeft MS draaitabellen en slicers uitgevonden.

 

[RutN]

Enorm bedankt voor jullie hulp. Het is gelukt met beide macro's dus dank. @snb de reden dat ik wil splitsen is dat de onderliggende teams geen data van elkaar mogen inzien ivm privacy wetgeving. Met slicers is kunnen zij volgens mij alsnog data van elkaar zien, of zie ik dit verkeerd? Ik hoor graag en vooralsnog bedankt voor de hulp!

 

[snb]

Wie heeft jou die onjuiste interpretatie van de AVG gegeven ?