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

133

Ää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. Kylläpä on nautinnollista taas tämä palstan vassari valitus!

      Lähes jokainen avaus on vassareiden kitinää ja valitusta. Eikö se tarkoitakin, että silloin asiat menee maassamme parem
      Maailman menoa
      102
      3304

    2. Palkansaajilta kupattiin 27,5 mrd euroa työeläkkeisiin

      Jo pelkän himmelin toimintakulut olivat 400 miljoonaa euroa, jolla olisi mukavasti tuottanut myös sote-palveluja hyvinvo
      Maailman menoa
      17
      2707

    3. HS: persujen v. 2015 turvapaikanhakijoista alle puolet töissä

      Aikuisina Suomeen tulleista ja myönteisen päätöksen saaneista vain 42 prosenttia oli vuonna 2023 töissä, vaikka he ovat
      Maailman menoa
      76
      2562

    4. Mikä kaivatussasi herätti mielenkiintosi

      Kun tapasitte ensi kerran? Ulkonäössä? Luonteessa tai olemuksessa? Kuinka nopeasti mielenkiinto muuttui ihastukseksi?
      Ikävä
      97
      1544

    5. Persut muuten hyväksyvät 2 + 8 mrd. euron maatalous- ja yritystuet

      Vaikka molemmat tukimuodot tiedetään haitallisiksi, koska ovat käytännössä pelkkää säilyttävää tukea, eivätkä kannusta k
      Maailman menoa
      74
      1498

    6. Valkoinen Golf

      Kukahan on tämä ukko, joka työkseen kyylää pienen ässän asiakkaita viikon jokaisena päivänä.
      Kuhmo
      16
      1105

    7. Kaikki ovat syntisiä!!!

      Näin täällä koko ajan vakuutellaan uskovaisten toimesta. Myös Päivi Räsänen on toistanut tätä samaa matraa jatkuvasti. N
      Luterilaisuus
      352
      1023

    8. Martina Aitolehti podcastissa: Ero

      Martina Aitolehti podcastissa: Ero Martina Aitolehti kertoi BFF-podcastin https://www.iltalehti.fi/viihdeuutiset/a/696
      Kotimaiset julkkisjuorut
      192
      1019

    9. Moottorisahalla kauppaan

      Missäs päin kaupunkia tämä yöllä moottorisahalla kauppaan yrittänyt asiakas askaroi? https://poliisi.fi/-/mies-yritti-s
      Kajaani
      11
      905

    10. Jos olisit kaivattusi

      Kanssa kahdestaan samassa tilassa niin miten kävisi
      Ikävä
      50
      844
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt