Taulukot omiksi työkirjoikseen

iban4

Voisinko saada sopivaa koodinpätkää tähän haasteeseen.

Minulla on työkirja, jossa on n. 80 välilehteä. Kaikki taulukot ovat keskenään samankaltaisia, mutta tietenkin hieman eri tietoja niissä on.

Ollaan ekassa taulukossa, jonka nimi on vaikka Asiakas1. Tehdään siitä taulukosta kopio eli sen taulukon nimeksi tulee myös automatic Asiakas1 ja tallennetaan ko. taulukko uuteen työkirjaan. Ko. työkirja voidaan tallentaa levylle nimellä Asiakas1.xlsx eli käytetään taulukon nimeä nimettäessä työkirja.

Sitten siirrytään yksi välilehti oikealle (ctrl pgdown) ja sen nimi on vaikka Asiakas11. Tehdään samalla viisii kopiointi, nimeäminen ja tallennus kuten edelläkin.

Näin käydään kaikki välilehdet läpi ja saadaan n. 80 uutta tiedostoa, jossa kussakin on yksi taulukko.

2

130

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      tallentaa samaan kansioon kuin originaali
      jos samanniminen kysyy tallennetaanko päälle
      saa pois ton kyssärin, jos haluaa, ottamalla hipsun pois riviltä
      'Application.DisplayAlerts = False

      moduuliin...

      Sub copyAndSave()
      Dim ws As Worksheet
      On Error Resume Next
      Application.ScreenUpdating = False
      'Application.DisplayAlerts = False
      For Each ws In Worksheets
      ws.Copy
      ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".xlsx"
      ActiveWorkbook.Close
      Next
      Application.ScreenUpdating = True
      Application.DisplayAlerts = True
      End Sub

      Keep EXCELIng
      @Kunde

      • iban4

        Kiitos paljon, tää on loistava.

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Ketä ikävöit?

      Tuntomerkkejä jos täällä oikeat kohtaavat❤️
      Ikävä
      126
      2668

    2. Juniorivalmennus Jokereissa..

      Mitä hittoa siellä seurassa oikein tapahtuu?? Tämän kauden U14 ikäluokkaan on mahdutettu kaksi päävalmentajaa. Tälle kau
      Nuorten jääkiekko
      56
      2137

    3. Ammuskelua taas

      Keskipohjanmaa tietää kertoa että Yläpubin hujakoilla ammuskeltu lauantain vastaisena yönä.
      Kokkola
      24
      1721

    4. Et saa mua ikinä

      Oma vikasi. Naiselta.
      Ikävä
      129
      1528

    5. Introverttinä osastolla

      Yhdellä lääkäritapaamisella hoitaja valitti lääkärille etten tee mitään muuta kuin makaan ja ulkoilen. Kävin kuitenkin s
      Henkinen hyvinvointi ja mielenterveys
      364
      1288

    6. Päivämääriä

      Minä päivämääränä näit kaivattusi viimeksi?
      Ikävä
      68
      1283

    7. Seksikkäin asu mikä päällä olet nähnyt kaivattusi ?

      Seksikkäin asu mikä yllä olet nähnyt kaivattusi ?
      Ikävä
      71
      1210

    8. Toivotko, että

      hän tulisi juttelemaan sinulle, vai lähestytkö mieluummin itse?
      Ikävä
      89
      1055

    9. VIELÄKIN NAURATTAA

      Seurustelua haluais. 🤣🤣🤣🤣🤣🤣
      Ikävä
      90
      979

    10. Riittääkö 50 euroa jos mennään syömään treffeillä

      Ja haluaa tarjota?
      Ikävä
      128
      931
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt