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

140

Ää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. Näin Enter-napilla tehdään miljardi euroa - Helsingissä

      "Ei se nyt niin kovin ihmeelliseltä näytä. Tavallinen nappi, musta muovinpala, joka kököttää parikymppiä maksavan mustan
      Maailman menoa
      20
      18864

    2. Minulla ei ole ketään muita

      Enkä halua ketään muita kuin sinut.
      Ikävä
      69
      5825

    3. 4,5 promillee

      Aika rajut lukemat joku eilen puhaltanut.
      Suomussalmi
      24
      5407

    4. Perussuomalaiset kirjoittaa vain positiivisista uutisista

      Ei tarvitse palstaa paljon seurata, kun sen huomaa. Joka ainoa positiivinen uutinen Suomen taloudesta tai ylipäätään, ni
      Maailman menoa
      41
      5291

    5. Jätä minut rauhaan

      En pidä sinusta. Lopeta seuraaminen. Älä tulkitse keskustelutaitoa tai ystävällisyyttä miksikään sellaiseksi mitä ne eiv
      Ikävä
      38
      5134

    6. Ben Z: "SDP ei ole ollut 50 vuoteen näin huolissaan velasta"

      "– Olen ollut eduskunnassa noin 50 vuotta, eikä SDP ole koskaan ollut niin huolissaan velasta kuin nyt. Se on tietysti h
      Maailman menoa
      89
      5050

    7. Harmittaako sinua yhtään?

      Tuntuuko pahalta ollenkaan?
      Ikävä
      62
      4553

    8. Voiku saisi sen sun

      Rakkauden kokea. Tykkään susta niin paljon edelleen.
      Ikävä
      43
      4227

    9. Mitä luulet, miten Martina Aitolehti pärjää Erikoisjoukoissa?

      Kohujulkkis, yrittäjä ja hyvinvointivalmentaja Martina Aitolehti on mukana Erikoisjoukot-realityssä. Erikoisjoukot on
      Suomalaiset julkkikset
      54
      3535

    10. Olitpa ikävän

      Kylmä eilen. Miksi ihmeessä?
      Ikävä
      49
      3205
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt