Moikka
Alla oleva makro toimii hyvin eli se kopioi esim. taulukon ja siirtää sen 15 riviä alemmaksi mutta seuraavan kopioinnin jälkeen taulukoiden väliin ei jää yhtään riviä.
Haluaisin makron jatkavan kopiointia sillä tavalla että jokaisen taulukon väliin jää esim. 20 tyhjää riviä. Millä tavalla se onnistuisi muuttamalla tätä makroa vai onko helpompia tapoja olemassa?
Sub CopyToEnd()
Range("A1:E10").Select
Selection.Copy
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Sub InsertAtRow15()
Range("A1:E10").Select
Selection.Copy
Rows("15:15").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
Kopiointi makro apua
Dillon87
2
165
Vastaukset
http://www.kundepuu.com/viewtopic.php?f=155&t=500
Keep EXCELing
@Kunde- Dillon87
Kiitos Kunde!! Koodi toimii täydellisesti!
Ketjusta on poistettu 1 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.1703526En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois1011859- 1431767
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1291672Peräti 95 % persujen kannattajista rasisteja
Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää3961604Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1021457Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet171173- 631096
- 621093
On minulla suunitelma
Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s541001