Taulukot aakkosjärjestykseen -

käsinkö?

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.

8

1404

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • vastausta

      Onko asia kenellekään tuttu? Tai eikö vastausta tule siksi, kun siihen ei ole muuta mahdollisuutta kuin yksitellen järjestely?

      • taida löytyä

      • 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 Sub

        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!


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. 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 tauti
      Maailman menoa
      403
      30893
    2. Martinan 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. J
      Kotimaiset julkkisjuorut
      476
      4215
    3. Sofia Belorf ja Sonja Aiello

      Viihtyvät yhdessä dinnerillä. Pienet piirit. Mitä ajatuksia herättää ?
      Kotimaiset julkkisjuorut
      97
      2735
    4. Stefu 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ää virta
      Kotimaiset julkkisjuorut
      133
      1901
    5. Teille, Venäjällä pelottelijat

      Oletatteko ja väitättekö te, että Venäjä pystyisi tuosta vain miehittämään Suomen?
      Maailman menoa
      591
      1670
    6. Ilkka Kanerva on kuollut

      74-vuotiaana.
      Maailman menoa
      86
      1596
    7. Kakista se ulos nainen vihdoin viimein

      Että haluat, kummatkin halutaan. Otan sinut kuumaan syleilyyn sitten.
      Ikävä
      75
      1570
    8. Ujostuttaa 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 ilmoit
      Ikävä
      59
      1506
    9. Jos me käytäs nainen

      Ulkona niin mitkä olisi ne kolme asiaa joita tahtoisit kysyä tai kertoa minulle?
      Ikävä
      72
      1250
    Aihe