Excel makro ongelma

Viestiketju Ajuri- ja softaongelmat -osiossa. Ketjun avasi Dillon87 21.03.2012.

Viestiketjun tila:
Viestiketju on suljettu.
  1. Dillon87

    Dillon87 Member

    Liittynyt:
    27.01.2010
    Viestejä:
    21
    Kiitokset:
    0
    Pisteet:
    11
    Moikka

    Alla oleva makro toimii hyvin eli se copy/pastettaa 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
     
  2.  
Viestiketjun tila:
Viestiketju on suljettu.

Jaa tämä sivu