Celle kopiering

Marker A1 til A6 og \"grib fat\" med musen i den lille firkant i højre hjørne af området.
Træk derefter ned så langt du ønsker og slip igen.

Du kunne fx bruge en makro som denne:

Sub Test()
    Range(\"A1:A6\").Select
    Selection.Copy
    Række = 7
    While Række < 1000
        Range(\"A\" & Række).Select
        ActiveSheet.Paste
        Række = Række + 6
    Wend
End Sub

Range(\"A1:A6\") er det område, der skal kopieres.
Række = 7 angiver, at det kopierede område første gang skal indsættes i række 7.
While Række < 1000 bruges til at fortælle, hvornår kopieringen skal stoppe. I dette tilfælde kopieres indtil række 1000 er nået.
Række = Række + 6 angiver, at det kopierede område består af 6 rækker. Det skal derfor svare til det, der er angivet i Range(\"A1:A6\").

Hvad var der i vejen med mit svar?

Det er rigtigt at autofyld i mange tilfælde kan løse opgaven, men hvis der fx er tale om talværdier, duer denne løsning ikke.

Det er talværdier jeg skal kopiere og sætte ind. Jeg har lige forsøgt at anvende din makro, men jeg fik desværre en fejlmelding angående  activesheet.Paste. Da jeg ikke har den store viden indefor makroer i Exel, vil jeg meget gerne hvis jeg kan få dit bud på hvad dette kan skyldes.

Makro er vist \"Overkill\" i dette tilfælde ;-)

admss

Måske har du fået lagt makroen forkert ind.
Hvis du giver mig din e-mail adresse kan jeg sende regnearket til dig. Bruger du Excel 2000?

Mange tak for hjælpen Irp. Jeg har fået det til at virke.

Det var så lidt. Tak for points.