Excel kopier x antal gange

#1| 0

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

02-06-2015 10:22 #2| 0

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



02-06-2015 10:37 #3| 0

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"?

02-06-2015 10:50 #4| 0

Hov.

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

02-06-2015 10:51 #5| 0


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
02-06-2015 11:06 #6| 0

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?

02-06-2015 11:08 #7| 0

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

02-06-2015 11:19 #8| 0

Det er

ActiveCell.Paste


02-06-2015 11:47 #9| 0

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

Redigeret af hermod d. 02-06-2015 11:50
02-06-2015 12:08 #10| 0

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.

02-06-2015 14:40 #11| 1

@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

Redigeret af sladen d. 02-06-2015 14:41
02-06-2015 15:34 #12| 0

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

02-06-2015 18:39 #13| 1

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

← Gå til forumoversigtenGå til toppen ↑
Skriv et svar