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.
Taulukot omiksi työkirjoikseen
iban4
2
134
Vastaukset
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ä.
Luetuimmat keskustelut
Päivän Sanna: Nvidia sijoittaa miljardi dollaria Nokian osakkeisiin
Nvidia merkitsee osakkeet 6,01 Yhdysvaltain dollarin osakekohtaisella merkintähinnalla tavanomaisten toteutumisehtojen t535510Palkansaajilta 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 hyvinvo943408Suomessa Pohjoismaiden tyhmimmät demarit......aijaijai..
Lasse Lehtinen sanoo suoraan, että Ruotsissa on fiksummat demarit kuin Suomessa. Ja Tampereella fiksummat demut kuin Hel453299Lehtinen: "Oli demareidenkin onni, että valkoiset voittivat sodan 1918"
Lasse Lehtisen mukaan vasemmalla on radiohiljaisuus hänen uutuuskirjastaan, "Läheltä piti. Kansakunnan hurjat hetket" L762477SDP:n valtuutettu valehtelee koulutuksensa
SDP:n helsinkiläinen kaupunginvaltuutettu Mahad Ahmed käyttää maisterin titteliä suoritettuaan 60 opintopisteen epäviral562354Nepotismi jytkyttää porvaristossa
Taas uutisoidaan, että useampi perussuomalainen kansanedustaja on palkannut oman perheenjäsenensä eduskunta-avustajaksi751877Persut palkkaavat verorahoilla
avustajikseen lapsiaan ja naisystäviään. Juuso on palkannut avustajakseen oman poikansa. Hänen koulutustaustastaan ei2991705Anteeksi T
Aamulla olit iloisena huomenta toivottamassa ja minä naama mutrussa sanoi huomenet takaisin. Tajusin vasta yläkerrassa71096Ville Rajainmäki, 25, omaishoitaja
Hän on 65 eläkeikääntyneen avustajana 24/7 Kerrankin omaishoitajaa arvostetaan ja maksetaan asiaankuuluvaa, 3000€, pal221076- 99936