Sortering af faneblade

Ret linien
    If objSheet.Name < objLoop.Name Then

til

    If CInt(objSheet.Name) < CInt(objLoop.Name) Then

den vil så fejle, hvis et ark navn hedder f.eks. "2 - Produktion" eller et andet ark kun hedder noget tekst - bare så du kender CInt() begrænsningen.

Det er præcis hvad jeg har... :o(

Jeg har yderligere 8 ark der ikke skal sorteres med og som har et tekst navn.

Er det så bare en umilighed ???

VH
Michael

Jeg tror, at jeg har en mulig løsning ;o)

Man burde kunne lave en midlertidig skjulning af de øvrige ark, mens makroen sortere.

Vender lige tilbage om det virker.

VH
Michael

Det er korrekt at CInt ikke virker, hvis det ikke er rene tal. I så fald er man nok nødt til at vide lidt mere om navnenes struktur.

Problet er at arknavne altid opfattes som tekst. For at få dem sorteret i numerisk orden, er det nødvendigt at kunne isolere de numeriske værdier inden sorteringen.

Øv øv.... det kunne man ikke, er der nogen der har andre gode idéer ???


MH
Michael

Er der nogen systematik i kombinationen af tal og bogstaver? Hvordan er arkene helt uden tal placeret i mappen?

Jeg har et ark "Index" ark der hele tiden er synlig, de øvrige "tekstnavne" ark er skjulte. Alle "Nr." ark er synlige hele tiden og det er dem jeg gerne vil ha´ sorteret, der vil løbende blive oprettet nye "Nr." ark så derfor sorteringen.

VH
Michael

Arkene er ikke kombineret med tal og bogstaver, jeg har 8 hovede ark, der hver især har et navn for at jeg kan finde rundt mellem dem, de skal ikke sorteres.

Tror at jeg løser det ved at kalde "tekst" arkene ved nr. istedet.

VH
Michael

Hvis du har alle dine tekstark længs til venstre så prøv denne:

Sub SortArk()
Dim sh()
ReDim sh(Sheets.Count)
Application.ScreenUpdating = False

For t = 9 To Sheets.Count
  sh(t) = Sheets(t).Name
Next

For t = 9 To Sheets.Count
  For tt = t To Sheets.Count
    If CDec(sh(t)) > CDec(sh(tt)) Then x = sh(t): sh(t) = sh(tt): sh(tt) = x
  Next
Next

For t = 9 To Sheets.Count
  Sheets(sh(t)).Move After:=Sheets(Sheets.Count)
Next

Application.ScreenUpdating = True
End Sub

Lige umiddelbart, så gør den ingenting.

Har lavet et test ark og sat den i et modul, tilknyttet en knap for at aktivere den, når jeg aktivere den springer jeg frem til sidste ark til højre, ligesom et link.


MH
Michael

Er dine tekst ark placeret længst til venstre, og tal ark ud mod højre ?

og der er 8 tekst ark - resten tal ?

Den sorterer fra og med ark nr. 9 fra venstre til og med sidste ark ude til højre

Der er point til dig exelent, havde selvfølgelig ikke lige fået 8 tekst ark med i test arket, det virker nu.

Mange tak for hjælpen, du er for genial.

VH
Michael

mente nok den skulle funke, har ski selv lavet den :-)
velbekom