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.1563273En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois971735- 1431677
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1251551Peräti 95 % persujen kannattajista rasisteja
Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää3921546Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.991365Anna 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 tunnet171103- 621019
- 215926
On minulla suunitelma
Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s48922