Tabbladen op volgorde zetten qua Badgenr.

Status
Niet open voor verdere reacties.
S

samui

Verenigingslid
Lid geworden
26 mei 2012
Berichten
207
Ik heb een bestand met een x-tal tabbladen met personen. Nu 9 maar in de toekomst meer of minder.
Vraag 1. Is het mogelijk om deze tabbladen op volgorde, van laag naar hoog, te zetten qua Badgenr welke in cel B2 vermeld staan?
Vraag 2. Het 1e tabblad "Frank" moet hierbij niet meedoen, omdat ik vanuit dit tabblad werk als basis.

Alvast bedankt voor jullie reacties weer.

mvg,
Frank
 

Bijlagen

  • Urenlijsten.xlsm
    100,2 KB · Weergaven: 26
Omdat er een spatie vooraan in de naam van " Reserve 1" zit is er de functie 'Trim' gebruikt.
Code: 
Sub hsv()
Dim i As Long, j As Long
For i = 2 To Sheets.Count
      For j = i + 1 To Sheets.Count
        If LCase(Trim(Sheets(i).Name)) > LCase(Trim(Sheets(j).Name)) Then Sheets(j).Move Sheets(i)
   Next j
  Next i
End Sub

Zonder de spatie "Reserve 1"
Code: 
Sub hsv()
Dim i As Long, j As Long
For i = 2 To Sheets.Count
      For j = i + 1 To Sheets.Count
        If LCase(Sheets(i).Name) > LCase(Sheets(j).Name) Then Sheets(j).Move Sheets(i)
   Next j
  Next i
End Sub
 
Op Badgenummer zo:

Code: 
Sub SjonR()
For i = 2 To Sheets.Count
    For j = i + 1 To Sheets.Count
        If Sheets(i).Cells(2, 2) > Sheets(j).Cells(2, 2) Then Sheets(j).Move Sheets(i)
    Next
Next
End Sub
 
Scherp, te laat met mijn aanpassing. ;)
 
Gelijk aan SjonR maar eventueel het blad "Frank" op naam uitsluiten:
Code: 
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Frank" Then
        For j = i + 1 To Sheets.Count
            If Sheets(i).Cells(2, 2) > Sheets(j).Cells(2, 2) Then Sheets(j).Move Sheets(i)
        Next j
    End If
Next i

Als je de reserve bladen achteraan wilt houden geef deze dan het badgenummer 9999.
 
Dan zou ik het eenmalig bovenaan in de code plaatsen.

Code: 
sheets("frank").move sheets(1)
For i = 2 To Sheets.Count
    For j = i + 1 To Sheets.Count
        If Sheets(i).Cells(2, 2) > Sheets(j).Cells(2, 2) Then Sheets(j).Move Sheets(i)
    Next
Next
 
Kan ook uiteraard, tenzij deze een ander indexnummer dan 1 heeft :)
 
Laatst bewerkt:
Dank jullie wel allemaal voor de reacties. Ik ben weer geholpen.
Topic gesloten
 
Er is geen 'tenzij' @edmoor, verder naar links dan 1 wil niet, dus 'Frank' wordt altijd 1.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan