Excel kopier x antal gange

Hey PN

Jeg håber der er nogle Excel hajer til stede.

Jeg har data i kolonne A3:D4, som jeg gerne vil have kopieret ned X antal gange, hvor x er lig med antallet i B2 (det er variabelt).

Her er A3:D4 kopieret ned 12 gange:

Noget af det der skal kopieres er formler.

Er der nogen der kan gennemskue en makro løsning, eller andet?

/Champen81

Det er skrevet ud fra hukommelsen og lidt google. jeg har ikke testet det, men hvis du har lidt teknisk snilde, så er det i hvert fald en måde at løse det på.

sub kopier

dim antal as integer

antal =sheets("ark1").range("B1")

for i = 1 to antal

range("A3:D4").copy

Range("B65536").End(xlup).Select

ActiveCell.Offset(rowOffset:=-1,columnOffset:=1).Activate

ActiveCell.paste

end sub

Hermod, tak for forslaget. Lige med makroer som her, kniber det med den tekniske snilde. jeg får en compile error der siger " For without Next"?

Hov.

Der mangler en linje. næste sidste linje skal du sætte den her ind
Next i

sub kopier
dim antal as integer
antal =sheets("ark1").range("B1")
for i = 1 to antal
range("A3:D4").copy
Range("B65536").End(xlup).Select
ActiveCell.Offset(rowOffset:=-1,columnOffset:=1).Activate
ActiveCell.paste
Next i
end sub

Jeg får run-time error '438' : Object doesn't support this property or method? Har det noget med min version af Excel at gøre?

Nope - nok nærmere at der er noget grimt i min kode. Hvilken linje brokker den sig over? (Farver gul)

Det er

ActiveCell.Paste

Jeg skyder lidt i tågen lige nu, men ellers kør den igennem eksperten.dk

sub kopier

dim antal as integer

antal =sheets("ark1").range("B1")

for i = 1 to antal

range("A3:D4").copy

Range("B65536").End(xlup).select

Offset(rowOffset:=-1,columnOffset:=1).pastespecial

next i

end sub

Nu får jeg compile error "Sub or Function not defined".

Cool at du gad bruge tid på det, Hermod - jeg prøver at finde en anden løsning.

@champen81

Sub kopier()

Dim antal, i As Integer

antal = Cells(1, 2)

Range(Cells(3, 1), Cells(4, 4)).Copy

For i = 5 To antal * 2 + 1 Step 2

Cells(i, 1).Select

ActiveSheet.Paste

Next

Application.CutCopyMode = False

Cells(1, 1).Select

End Sub

Det virker - VERDENSKLASSE! Tusind tak for hjælpen.

Np, sendte det som en lille udfordring til at ven. Han skrev det på 2 min og mente at det var kedeligt og nemt :O Jeg fatter IKKE noget som helst af det der selv :D