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
202
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
- 1783721
Se oli siinä sitten
Yhdysvaltain presidentti Donald Trump on määrännyt kaiken maan Ukrainalle toimittaman sotilaallisen tuen tauolle, kertoo7262700Paljonko aikaa on kulunut siitä kun viimeksi tapasit hänet?
Päiviä? Viikkoja? Kuukausia? Vuosia?552541- 1462361
- 672036
Trump tekee rauhan Amerikan ja Venäjän ehdoilla
Ukraina luovuttaa Venäjän haluamat alueet Venäjälle. Ukraina luovuttaa Amerikan haluamat arvokkaat mineraalit Amerikall3141939- 311441
Syvälliset keskustelut
Olisivat tärkeintä ensisijaisesti hänen kanssaan Tulisi sellainen hetki, mutta kaikki meni pieleen211393Minulta loppuu aika
Halusin olla täydellinen. Nyt näyttää siltä että viimeinen kiristys jää puolitiehen, sillä h-hetki on jo ihan kohta käsi381367Olisipa sitä henkisesti eheämpi ja rohkeampi
mikään maallinen mammona ei itseäni kiinnosta, eikä sen menetys kiinnostus. Mutta kun kohtaa jonkun sykäyttävän ihmisen,161275