Avatar billede staal84 Nybegynder
29. september 2005 - 20:44 Der er 2 kommentarer og
1 løsning

Macro til kopiering af hver 4.række (kolonne A til C).

Hej Genier

Jeg har brug for en macro, som kan kopier de tre første celler (A,B og C) i hver fjerde række på Ark1 og indsætte den under hinanden på ark2

Start med A2:C2 ark1 til A2:C2 ark2
A6:C6 ark 1 til A3:C3 ark2
Og så videre og så videre. (i hvert fald de første 1000rækker på ark1)
Avatar billede sjap Praktikant
29. september 2005 - 20:56 #1
Prøv med denne her:

Sub Kopier3()
CurrentLine2 = 0
For CurrentLine1 = 2 To 1000 Step 3
    CurrentLine2 = CurrentLine2 + 1
    Range("A" & CurrentLine1 & ":C" & CurrentLine1).Copy Sheets("Ark2").Range("A" & CurrentLine2)
Next
End Sub
Avatar billede staal84 Nybegynder
29. september 2005 - 21:11 #2
Så vidt jeg kan tælle er det kun hver trejde linie den tager....
har ændret step 3 til step 4, og det ser umiddelbart ud til at virke.
Så jeg takker meget for løsningen og den hurtige respons.
Smider du et svar?
Avatar billede sjap Praktikant
29. september 2005 - 21:42 #3
Nåh ja. Jeg ved ikke lige hvor de tre kom ind i mit hovede (men der sker jo så meget jeg ikke forstår derinde...) ;0)
Avatar billede 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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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

Seneste spørgsmål Seneste aktivitet
I går 21:00 Libre Office Impress Af Frank i Andre styresystemer
I går 11:47 VB script Af Jenshentze i Word
I går 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel