Kopier og indsæt

Funktionalitet må gerne kunne tilknyttes en knap....

denne kopierer til hvor du står


Public Sub CmdCopy()
Sheets("ark2").Range("B1:B17").Copy Cells(ActiveCell.Row, ActiveCell.Column)
End Sub

Thanks.... kan man få den til, at placere sig i samme linie hver gang (ikke nødvendigvis samme kolonne)

Public Sub CmdCopy()
Sheets("ark2").Range("B1:B17").Copy Cells(16, ActiveCell.Column)
End Sub

nu linje 16

et svar

Hej igen...

Kan man også få den til, at sætte ind som værdier (Indsæt speciel)?

Hej igen....
Løste selv det sidste tillægsspørgsmål....

Men kan man kopiere nogle faste linier i en kolonne (eks. linie 1 til 20) og derefter sætte over i et nyt ark i a1. Skal kunne gøres i forhold til den aktive kolonne man står i..

Er medpå, at du skal have yderligere point for tillægsspørgsmålet...