sorteren tabbladen met uitzondering van bepaalde tabbladen

[Speedykepke]

Hoi,
ondertussen is mijn file facturen in orde gekomen dankzij Cobbe, qua de samenvatting van de bepaalde gegevens van de klanten.
Als ik de tabbladen niet sorteer met een Macro, staan de klanten op het tabblad 'Samenvatting' door elkaar.
Zie voorbeeld :


Echter wanneer ik de tabbladen sorteer = via onderstaande Macro, neemt de Macro oa ook het tabblad 'Samenvatting' mee,
echter dient dit tabblad ALTIJD VOORAAN te blijven staan in de file zelf, maw de Macro mag dit tabblad NIET meenemen bij het sorteren!
Hoe kan ik dit vermijden!

Sub SorterenTabbladen()

Dim i As Integer
Dim y As Integer
Dim x As Integer
Dim mySheet As Object
Dim SheetName As String
i = Sheets.Count

For y = 1 To i
Set mySheet = Sheets(y)
SheetName = mySheet.Name
For x = y To i
If SheetName > Sheets(x).Name Then
SheetName = Sheets(x).Name
End If
Next
Sheets(SheetName).Move Before:=Sheets(y)
Next

End Sub

Kan ik het sorteren van de tabbladen ook via een 'button' doen?
In bijlage een voorbeeld van deze file.
Zou het ontzettend op prijs stellen mocht iemand dit kunnen oplossen voor mij.
Alvast straf wel bedankt op voorhand voor de gedane moeite!
Fijn weekend toegewenst!
Doei
Bekijk bijlage Voorbeeld file Facturen_Macro Samenvoegen.xlsm

 

[HSV]

Hoi,

Sheets("samenvatting").Move before:=Sheets(1)
For y = [B][COLOR=#FF0000]2[/COLOR][/B] To i

Maak een knopje op het blad en hang de code daar aan.

 

[VenA]

Zet je blad samenvatting vooraan en maak van

For y = 1 To i

For y = 2 To i

nu wordt er vanaf het tweede tabblad gesorteerd.

 

[Speedykepke]

SUPER - BEDANKT - 't werkt!!!!!
'k leer ontzettend bij

echter van die 'button' ben ik wel efkes niet mee
is het mogelijk mij wat meer uitleg hieromtrent te geven?
Ciao

 

[VenA]

Alles onder één knop. Welke uitleg wil je erbij?

Nb. Ik heb met name in jouw sorteercode wat lopen "snoeien". Dus wel even testen of deze nog goed gaat.

 

[Speedykepke]

oesje, dat was in feite niet wat ik bedoelde
klein misverstand hé
mijn huidige buttons 'Samenvatten' & 'Wissen' op mijn vorige file in het tabblad 'Samenvatting' vind ik uitstekend en werken perfect

echter is er een mogelijkheid om een 'button' te maken voor het sorteren van de tabbladen zelf?
En ja, op welk tabblad dient deze dan te komen?

alvast bedankt voor de gedane moeite hoor!
Toedeloe

 

[VenA]

Dan maak je toch even drie aparte knoppen en zet je daar de juiste code onder. Het staat er toch allemaal in.

 

[Speedykepke]

oesje, 'k zal dit eens grondig bekijken
BEDANKT voor je reactie
hou je op de hoogte omtrent mijn verdere bevindingen
doch echter niet meer dit weekend
't zal voor maandag zijn
Fijn weekend toegewenst
Doei

 

[VenA]

Hier nog even gesplitst met verschillende knoppen.

 

[Speedykepke]

SUPER - BEDANKT
dit ondertussen al efkes eens bekeken
hou je vast op de hoogte hoor
toedeloe

 

[Speedykepke]

STRAF WEL BEDANKT
de macro werkt PERFECT
voor mij : nu een volgend probleem zien op te lossen
misschien dien ik weer hulp in te roepen
doch eerst zoek ikzelf alle mogelijkheden op
prettige eindejaarsfeesten toegewenst!

 

[Warme bakkertje]

Je samenvattenmacro kan ook zo

Private Sub Samenvatten_Click()
For Each sh In ThisWorkbook.Sheets
  If Not sh.Name = "Samenvatting" Then
     With Sheets("Samenvatting")
         .Cells(.Range("A" & .Rows.Count).End(xlUp).Row + 1, 1).Resize(, 8) = Array(sh.Range("F7"), sh.Range("G14"), sh.Range("G15"), sh.Range("G16"), sh.Range("G18"), sh.Range("G50"), sh.Range("G51"), sh.Range("G52"))
     End With
  End If
Next
End Sub

 

[Speedykepke]

Bedankt!!!!