Makro til kopiering og indsæt i hver 8 række

Når du skrier celle 10 - så er det vel række 10 du mener?

og så velkommen til Eksperten.

rem Koden anbringes "under" Ark1

Dim antalRækker As Long, ræk As Long, tal
Rem Ark2
Const startRæk2 = 10
Const tillæg2 = 8
Dim ræk2 As Long
Public Sub kopierTilArk2()
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
    ræk2 = startRæk2
    For ræk = 1 To antalRækker
        tal = Range("A" & ræk)
       
        Sheets(2).Range("B" & ræk2) = tal
        ræk2 = ræk2 + tillæg2
    Next ræk
End Sub

Hej Supertekst

Tak for hjælpen og velkomsten - Du har helt ret, den skal starte i række 10.

Jeg har ikke fået testet din løsning endnu, men den ser ud som om den er skrevet på dansk og min excel er engelsk - Kan jeg bare oversætte "række" og "Ræk" med "row"?

Hej Sofie

Selv tak.

Du skal ikke oversætte variabler m.v. Row er et reserveret navn i VBA - så derfor ikke.

Hej supertekst

Nu har jeg fået den til at virke - Jeg vil dog gerne kunne styre i hvilken række den starte indsætningen i ark2

Med direkte kopiering af din markro ovenfor indsætter den i række 82 og nedefter - Kan du give et hint til hvordan jeg styrer det?

Hej..

Har sat lidt kommentarer ind.

I givet fald er du velkommen til at sende dit regneark - @-adresse under min profil.


Dim antalRækker As Long, ræk As Long, tal
Rem Ark2
Const startRæk2 = 10      'Startrækken på Sheet2
Const tillæg2 = 8          'Interval mellem værdier på sheet2
Dim ræk2 As Long
Public Sub kopierTilArk2()
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
    ræk2 = startRæk2
    For ræk = 1 To antalRækker      'Der begyndes i række 1 på Sheet1
        tal = Range("A" & ræk)
       
        Sheets(2).Range("B" & ræk2) = tal  'Her indsættes tal på sheet2
        ræk2 = ræk2 + tillæg2             
    Next ræk
End Sub

Tak - Nu fik jeg det langt om længe til at virke :)

Selv tak - så vil jeg lægge et Svar, som du evt. kan Acceptere, hvis du vil give point.

NB: Husk at anvende Kommentar som opgavestiller - Svar anvendes kun af forslagsstiller..