Notifikationer

Markér alle som læst Log ud

mira96ac Novice

02. april 2006 - 12:22 Der er 26 kommentarer og
2 løsninger

Kopiere række til aktive celler

Hejsa

Jeg vil meget gerne lave en funktion/makro som gør følgende:

1. Lad os antage at jeg står i celle B3

2. Ved afspilning af makroen skal den gøre følgende:
Kopiere hele række 200
Komme tilbage til den aktive celle jeg stod i da jeg aktiverede makroen og indsætte række 200 i den aktive række (række 3)

Kan det lade sig gøre ?

Synes godt om

excelent Ekspert

02. april 2006 - 12:28 #1

Sub Makro1()
Dim x

x = Range("a200:iv200").Copy
Range("a3").PasteSpecial
[b3].Activate

End Sub

Synes godt om

mira96ac Novice

02. april 2006 - 13:29 #2

Jeg tror desværre jeg fik klokket lidt rundt i mit spørgsmål.

Det jeg mente var at makroen skal virke relativt, til hvilken række man står i når man aktiverer den.

Dvs. står jeg på række b skal den kopiere række 200 til række B
Står jeg på række F skal den kopiere række 200 til række F osv.

Synes godt om

excelent Ekspert

02. april 2006 - 13:45 #3

Sub Makro1()
Dim x, rkTil
rkTil = ActiveCell.Address
x = Range("a200:ia200").Copy
Range(rkTil).PasteSpecial
Range(rkTil).Select
End Sub

Synes godt om

mira96ac Novice

02. april 2006 - 13:51 #4

Så har jeg lige lidt mere.

Makroen skal helst ikke slette den linie man aktiverer den fra, men i stedet indsætte en ny linie.

Og hvad hvis række 200 man skal kopiere er fra et andet ark end det man står i.

Håber du kan hjælpe med det sidste.

Synes godt om

excelent Ekspert

02. april 2006 - 14:01 #5

Sub Makro1()
Dim x, rkTil
rkTil = ActiveCell.Address
x = Worksheets("Ark3").Range("a200:ia200").Copy
Range(rkTil).Activate
Selection.EntireRow.Insert
Range(rkTil).PasteSpecial
Range(rkTil).Select
End Sub

Synes godt om

excelent Ekspert

02. april 2006 - 14:03 #6

husk blot på, når du indsætter en ny række, så flyttes
den række som før var række 200 til 201 osv.osv.

Synes godt om

mrjh Novice

02. april 2006 - 14:26 #7

Sub Kopier1()
Range("200:200").EntireRow.Copy Destination:=ActiveCell
End Sub

Synes godt om

excelent Ekspert

02. april 2006 - 14:32 #8

ja sådan kan det også gøres mrjh

Sub Kopier1()
Worksheets("Ark3").Range("200:200").EntireRow.Copy Destination:=ActiveCell
End Sub

Synes godt om

excelent Ekspert

02. april 2006 - 14:32 #9

men hvad med den nye linie?

Synes godt om

excelent Ekspert

02. april 2006 - 14:34 #10

måske er denne tilstrækkelig !

Sub Kopier1()
Worksheets("Ark3").Range("200:200").EntireRow.Copy Destination:=ActiveCell.Offset(1, 0)
End Sub

Synes godt om

mrjh Novice

02. april 2006 - 14:41 #11

Denne virker uanset hvor i rækken man står

Sub Kopier1()
Range("30:30").EntireRow.Copy Destination:=ActiveCell.Offset(1, 0).EntireRow
End Sub

Synes godt om

mrjh Novice

02. april 2006 - 14:42 #12

Øhh selvfølgelig
Sub Kopier1()
Range("200:200").EntireRow.Copy Destination:=ActiveCell.Offset(1, 0).EntireRow
End Sub

Synes godt om

mrjh Novice

02. april 2006 - 14:45 #13

Nåh ja, excelent, der skal jo lige en arkbetegnelse

Sub Kopier1()
Worksheets("Ark3").Range("200:200").EntireRow.Copy Destination:=ActiveCell._
Offset(1, 0).EntireRow
End Sub

Synes godt om

mrjh Novice

02. april 2006 - 14:48 #14

Og så lige alle go'e gange 5

Sub Kopier1()
Worksheets("Ark1").Range("30:30").EntireRow.Copy _
Destination:=ActiveCell.Offset(1, 0).EntireRow
End Sub

Synes godt om

excelent Ekspert

02. april 2006 - 14:49 #15

hehe

Synes godt om

excelent Ekspert

02. april 2006 - 15:12 #16

Sub Makro1()
Selection.EntireRow.Insert
ActiveCell.Offset(-1, 0).Select
Worksheets("Ark3").Range("200:200").EntireRow.Copy Destination:=ActiveCell.Offset(1, 0)
End Sub

Synes godt om

excelent Ekspert

02. april 2006 - 16:11 #17

Sub Makro1()
Selection.EntireRow.Insert
ActiveCell.Offset(-1, 0).Select
Worksheets("Ark3").Range("200:200").EntireRow.Copy Destination:=ActiveCell.Offset(1, 0).EntireRow
End Sub

Synes godt om

mira96ac Novice

02. april 2006 - 16:18 #18

Nu begynder jeg sikkert at blive besværlig, men,

Det sidste indlæg (excelent) virker sådan set perfekt, men det krævet at man står i kolonne A på det ark man vil indsætte linien, ellers bliver den sat skævt ind...

Kan dette reguleres ?

Synes godt om

excelent Ekspert

02. april 2006 - 16:23 #19

hmm hvordan skævt ? har du prøvet kommentar 16:11:11

Synes godt om

mira96ac Novice

02. april 2006 - 16:32 #20

Jeg bruger kommentar 16:11:11 nu.

Min række som skal kopieres starter med tekst i kolonne C og så står der noget i kolonne E og G osv.

Hvis jeg står i kolonne A på det ark jeg vil sætte linien ind virker det fint, men står jeg f.eks. i kolonne B eller c så virker det ikke. Jeg skal stå i kolonne A åbenbart, men det er ikke helt hensigtsmæssigt

Synes godt om

excelent Ekspert

02. april 2006 - 16:39 #21

hos mig bliver Ark3's række 200 sat ind i Ark2 nøjagtig som det står i Ark3

dvs. hvis tekst starter i kolonne c ark3, bliver det sat ind i kolonne c ark2 også

Synes godt om

mira96ac Novice

02. april 2006 - 16:41 #22

Jeg undskylder excelent.

Jeg havde brugt kommentar 15:12:35.

Det virker perfekt nu.

Tak for hjælpen.

Hvis du kommer med et svar får du pointene...

Synes godt om

excelent Ekspert

02. april 2006 - 16:45 #23

ok no problem :-)
men jeg syntes mrjh skal have del i point for hans korte version

Synes godt om

mira96ac Novice

02. april 2006 - 16:50 #24

helt i orden

så deler jeg pointene 50/50 hvis det er OK

Synes godt om

excelent Ekspert

02. april 2006 - 16:51 #25

fint med mig
vent lige til han svarer, så kan du markere begge navne og accepter.

Synes godt om

mrjh Novice

02. april 2006 - 18:01 #26

Ok tak for det, og super samarbejde excelent (igen) :-)
Jeg kan godt se at jeg havde glemt at indsætte en række. Den var lige smuttet i svinget.

Synes godt om

excelent Ekspert

02. april 2006 - 18:06 #27

helt fortjent.
Har i også registreret et servernedbrud ?

Synes godt om

mrjh Novice

02. april 2006 - 18:13 #28

Har lige været offline en 1½ times tid, så jeg har ikke registeret noget.

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Kan Excel selv beregne alder? Af leahcim i Excel	4	31/08/202610:24	31/08/202612:26
problem med mailbesked Af Pestilensen i Excel	3	24/08/202611:16	28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel	16	17/08/202615:14	27/08/202601:20
Gemme største værdi Af Lemming@privat.dk i Excel	2	07/08/202622:13	08/08/202609:03
Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel	13	24/07/202611:08	03/08/202618:42

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS