Taulukot aakkosjärjestykseen -

muita tapoja kuin käsin järjestely tai macro, tuolta löytyisi koodia:
http://www.cpearson.com/excel/sortws.htm
Googlettamalla löytyy lisää...

taida löytyä kirjoitti:

muita tapoja kuin käsin järjestely tai macro, tuolta löytyisi koodia:
http://www.cpearson.com/excel/sortws.htm
Googlettamalla löytyy lisää...

Lue lisää

:)) Taidanpa järjestellä vähät taulukkoni käsin. :)))

vastauksesta kirjoitti:

:)) Taidanpa järjestellä vähät taulukkoni käsin. :)))

Missä Kunde? No, tässä yksi ehdotus makroksi.

Sub TaulutAakkojärjestykseen()
Dim ApuTaulukko As Worksheet
Dim R As Long
Set ApuTaulukko = ActiveWorkbook.Worksheets.Add
For R = 1 To ActiveWorkbook.Sheets.Count
ApuTaulukko.Cells(R, 1) = ActiveWorkbook.Sheets(R).Name
Next R
ApuTaulukko.Cells(R, 1).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo
For R = 1 To ActiveWorkbook.Sheets.Count - 1
Sheets(ApuTaulukko.Cells(R, 1).Value).Move after:=Sheets(R 1)
Next R
Application.DisplayAlerts = False
ApuTaulukko.Delete
End Sub


Makro ainakin tuntuu toimivan.
Kunde varmasti tekisi fiksumman!

Excelisti kirjoitti:

Missä Kunde? No, tässä yksi ehdotus makroksi.

Sub TaulutAakkojärjestykseen()
Dim ApuTaulukko As Worksheet
Dim R As Long
Set ApuTaulukko = ActiveWorkbook.Worksheets.Add
For R = 1 To ActiveWorkbook.Sheets.Count
ApuTaulukko.Cells(R, 1) = ActiveWorkbook.Sheets(R).Name
Next R
ApuTaulukko.Cells(R, 1).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo
For R = 1 To ActiveWorkbook.Sheets.Count - 1
Sheets(ApuTaulukko.Cells(R, 1).Value).Move after:=Sheets(R 1)
Next R
Application.DisplayAlerts = False
ApuTaulukko.Delete
End Sub


Makro ainakin tuntuu toimivan.
Kunde varmasti tekisi fiksumman!

Lue lisää

tavoin tämä sinun makrosi eroaa tuon vastauksen linkin takaa löytyvästä ?

Excelisti kirjoitti:

Missä Kunde? No, tässä yksi ehdotus makroksi.

Sub TaulutAakkojärjestykseen()
Dim ApuTaulukko As Worksheet
Dim R As Long
Set ApuTaulukko = ActiveWorkbook.Worksheets.Add
For R = 1 To ActiveWorkbook.Sheets.Count
ApuTaulukko.Cells(R, 1) = ActiveWorkbook.Sheets(R).Name
Next R
ApuTaulukko.Cells(R, 1).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo
For R = 1 To ActiveWorkbook.Sheets.Count - 1
Sheets(ApuTaulukko.Cells(R, 1).Value).Move after:=Sheets(R 1)
Next R
Application.DisplayAlerts = False
ApuTaulukko.Delete
End Sub


Makro ainakin tuntuu toimivan.
Kunde varmasti tekisi fiksumman!

Lue lisää

Thaimaa on jalleen kerran kutsunut lokakuun lopusta alkaen ja tammikuun puolenvalin jalkeen kotiudutaan...
No fiksumman ja fiksumman ken tietaa

Sub Lajittele()
Dim a As Integer
Dim b As Integer
Dim c As Integer
c = Sheets.Count
On Error GoTo Virhe:
For a = 1 To c - 1
For b = a 1 To c
If Sheets(b).Name < Sheets(a).Name Then
Sheets(b).Move Before:=Sheets(a)
End If
Next
Next
Sheets(1).Select
Virhe:
End Sub

milläs kirjoitti:

tavoin tämä sinun makrosi eroaa tuon vastauksen linkin takaa löytyvästä ?

Enpä tullut katsoneeksi linkin esimerkkiä, käsitin että kysyjä ei ollut löytänyt linkistä ratkaisua probleemaansa!

Kunde kirjoitti:

Thaimaa on jalleen kerran kutsunut lokakuun lopusta alkaen ja tammikuun puolenvalin jalkeen kotiudutaan...
No fiksumman ja fiksumman ken tietaa

Sub Lajittele()
Dim a As Integer
Dim b As Integer
Dim c As Integer
c = Sheets.Count
On Error GoTo Virhe:
For a = 1 To c - 1
For b = a 1 To c
If Sheets(b).Name < Sheets(a).Name Then
Sheets(b).Move Before:=Sheets(a)
End If
Next
Next
Sheets(1).Select
Virhe:
End Sub

Lue lisää

Eipä osaakaan järjestää jos taulukon nimet ovat numeroita! Esim. viisi taulukkoa jotka on nimetty: Jukka, 1254, 55, Taul1 ja 645, niin eivätpä mene oikein. Ei myöskään cPearsonin koodilla!