Tabbladen groeperen

[wieter]

Er zijn 2 regio's.
Elke regio heeft zijn scholen.
De nodige tabs worden automatisch aangemaakt, en achteraan bijgevoegd.
Is het mogelijk om na een nieuwe invoer, de tabs te groeperen per regio.
Dus de tabs van de scholen van regio1 bij elkaar en de tabs van de scholen van regio2 bij elkaar.
Dit kan natuurlijk manueel, maar ik zou dit autom. willen laten uitvoeren.

Benieuwd of dit mogelijk is, en benieuwd of iemand de toch wel lange code wil bekijken.

Bekijk bijlage +Forum.xlsm

 

[Cobbe]

Dit is al eens uitgevonden en wel hier:
http://www.cpearson.com/excel/sortws.aspx

 

[wieter]

Oei Cobbe, dat is een tegenvaller.
Zonder Functie te maken is het dus eigenlijk niet mogelijk.
Ik was in de veronderstelling dat het met iets als

If ......................Then
Move.Before
Else
Move.After
End If

op te lossen was.
Niet dus, het zal manueel moeten gebeuren.

 

[Cobbe]

Geef je tabs een kleur per afdeling(categorie) dan kan je wel sorteren per afdeling(kleur).

 

[snb]

Sub M_snb()
    sn = Array("A_1", "A_2", "A_3", "B_1", "B_2", "B_3")
    
    For j = 1 To 2
      For Each it In Filter(sn, Choose(j, "A", "B") & "_")
         Sheets.Add.Name = it
      Next
    Next
End Sub

en bij bestaande werkbladen:

Sub M_snb()
   For Each sh In Sheets
      c00 = c00 & "|" & sh.Name
   Next
   sq = Split(Mid(c00, 2), "|")
   
   with Sheets(1).Cells(1, 100)
      .Resize(UBound(sq) + 1) = Application.Transpose(sq)
      .CurrentRegion.Sort .offset
      sn = .CurrentRegion
   end with

   Sheets(sn(UBound(sn), 1)).Move , Sheets(Sheets.Count)
   For j = UBound(sn) - 1 To 1 Step -1
     Sheets(sn(j, 1)).Move Sheets(sn(j + 1, 1))
   Next
   
End Sub

 

[wieter]

Bedankt Cobbe, snb
Met de tweede code van snb ga ik aan de slag.
Hopelijk lukt het.