Avatar billede limic Nybegynder
24. januar 2008 - 14:48 Der er 15 kommentarer og
1 løsning

Sortering af faneblade

Hej alle...

Har været inde og finde denne udemærkede makro, som er lavet af bak http://www.eksperten.dk/spm/287425 og den viker også fint, hvis man har under 10 ark, men kan den laves så den også virker hvis man har over 100 ark.

Den sortere ikke fra eks. 1 - 100, men deler sorteringen op, ud fra det første tal der står i hele i nummeret.

Kan det på nogen måde laves anderledes ?

VH
Michael
Avatar billede jkrons Professor
24. januar 2008 - 14:54 #1
Ret linien
    If objSheet.Name < objLoop.Name Then

til

    If CInt(objSheet.Name) < CInt(objLoop.Name) Then
24. januar 2008 - 15:00 #2
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.
Avatar billede limic Nybegynder
24. januar 2008 - 15:18 #3
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
Avatar billede limic Nybegynder
24. januar 2008 - 15:27 #4
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
Avatar billede jkrons Professor
24. januar 2008 - 16:05 #5
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.
Avatar billede limic Nybegynder
24. januar 2008 - 17:40 #6
Øv øv.... det kunne man ikke, er der nogen der har andre gode idéer ???


MH
Michael
Avatar billede jkrons Professor
24. januar 2008 - 17:49 #7
Er der nogen systematik i kombinationen af tal og bogstaver? Hvordan er arkene helt uden tal placeret i mappen?
Avatar billede limic Nybegynder
24. januar 2008 - 18:24 #8
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
Avatar billede limic Nybegynder
24. januar 2008 - 18:36 #9
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
Avatar billede excelent Ekspert
24. januar 2008 - 19:02 #10
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
Avatar billede limic Nybegynder
24. januar 2008 - 19:25 #11
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
Avatar billede excelent Ekspert
24. januar 2008 - 19:29 #12
Er dine tekst ark placeret længst til venstre, og tal ark ud mod højre ?
Avatar billede excelent Ekspert
24. januar 2008 - 19:29 #13
og der er 8 tekst ark - resten tal ?
Avatar billede excelent Ekspert
24. januar 2008 - 19:33 #14
Den sorterer fra og med ark nr. 9 fra venstre til og med sidste ark ude til højre
Avatar billede limic Nybegynder
24. januar 2008 - 19:35 #15
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
Avatar billede excelent Ekspert
24. januar 2008 - 19:37 #16
mente nok den skulle funke, har ski selv lavet den :-)
velbekom
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester