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
153
Vastaukset 2
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
- 1622711
- 561149
Perhoseni (miehelle)
Miksi et usko, että mun rakkaus sinuun on aitoa ja vilpitöntä? Tai että se oli jo silloin? Miksi ajattelet, ettet ole r160947Myönnetään, tunnen lämpimiä tunteita kohtaasi
Vaikutat tosin liian hyvältä ollaksesi totta. Komeita miehiä on maailma pullollaan mutta sinussa on jotain.....56863- 4799
- 83787
Onko Sofia jälleen jätetty?
Moni asia viittaisi siihen, että hän on jälleen sinkku.173760Rekat seisovat dieselin hinnan takia . Ala ei kestä tällaista hintatasoa, sanoo yrittäjä .
EU:n kallein diesel on kova paikka kuljetusalalle. Ajoja on jätetty ajamatta kannattavuusongelmien vuoksi, sanoo alan e177712Totta on asia. Jeffrey Cohen on jättänyt Sofian.
Vaimon viesti on paljastanut totuuden.191670- 6664
- 53657
- 59656
- 67646
- 55598
Mies, näetkö minut myös
Seksuaalisena ihmisenä ja naisena? Haluatko minua seksuaalisesti? Vai olenko mielestäsi tyttönen?21588Nainen, mitä mieltä olet kodittomista?
Ja heistä jotka eivät kykene huolehtimaan asioistaan, itsestään eikä terveydestään? Miten heidän kanssaan tulisi toimia?123555Kuinkahan monen
Naisen puolisoa olet nainen vikitellyt ja eron aiheuttanut? Toivottavasti karma on ku*sut muroihisi useamman kuin kerran66539Voiko se ikinä toimia
Voiko meistä ikinä tulla mitään? Näin kauan aikaa on kulunut ja mitään ei tapahdu... En usko, että sinä mietit minua het32538- 34517
- 55508