Kun työkirjassa on useita taulukoita, niin saako niitä jotenkin, ja jos niin miten, järjestettyä automaattisesti aakkosjärjestykseen.
Tiedän, että käsin yksitellen siirtämällä se kyllä käy.
Taulukot aakkosjärjestykseen -
8
1404
Vastaukset
- vastausta
Onko asia kenellekään tuttu? Tai eikö vastausta tule siksi, kun siihen ei ole muuta mahdollisuutta kuin yksitellen järjestely?
- taida löytyä
muita tapoja kuin käsin järjestely tai macro, tuolta löytyisi koodia:
http://www.cpearson.com/excel/sortws.htm
Googlettamalla löytyy lisää... - vastauksesta
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ää...:)) Taidanpa järjestellä vähät taulukkoni käsin. :)))
- Excelisti
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! - milläs
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!tavoin tämä sinun makrosi eroaa tuon vastauksen linkin takaa löytyvästä ?
- Kunde
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!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 - Excelisti
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!
- Jukkis
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 SubEipä 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!
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Mihin Ilkka Kanerva kuoli?
Kun näin jokin aika sitten kuvan riutuneen näköisestä Kanervasta, sanoin vaimolle että haimasyövältä vaikuttaa. Vaimon isä oli kuollut kyseiseen tauti40330893Martinan lapset JÄLLEEN valjastettu valkopesureiksi
Ei tuo nainen todellakaan täysillä käy. Vauvakin tajuaa että kysymykset ja vastaukset ovat Martinan itsensä tekemiä, lapset vastaa mitä on käsketty. J4764215Sofia Belorf ja Sonja Aiello
Viihtyvät yhdessä dinnerillä. Pienet piirit. Mitä ajatuksia herättää ?972735Stefu LOISTAVAA!
Ilmeisesti joku vedonlyönti tms, selvinpäin-elämästä👍👍👍 ilmankos ei ole Sofiaa näkynyt. Miten tän parin nyt käy, kun viimi ei maksettuna enää virta1331901Teille, Venäjällä pelottelijat
Oletatteko ja väitättekö te, että Venäjä pystyisi tuosta vain miehittämään Suomen?5911670- 861596
Kakista se ulos nainen vihdoin viimein
Että haluat, kummatkin halutaan. Otan sinut kuumaan syleilyyn sitten.751570Ujostuttaa eräs aikuinen mies...
Mitä se tämmönen on... tuo mies aiheuttaa minulle ylimääräsiä tykytyksiä... Rohkeampana pyytäsin häntä ulos mut jospa hän... Miten mun vaistot ilmoit591506Jos me käytäs nainen
Ulkona niin mitkä olisi ne kolme asiaa joita tahtoisit kysyä tai kertoa minulle?721250