Excel, makro kopiering av utvalgte celler til neste tomme rad i nytt ark

[Tor Anders Berven]

Hei.

 

Jeg trenger litt hjelp til en excel kalkulator jeg har laget.

 

Bildet under illustrerer hva jeg ønsker å gjøre.

 

Planen er å lage en makro som kopierer de ønskede cellene til det nye arket.

Men for å få makroen til å forstå at den skal fylle inn de utvalgte cellene i neste tomme rad slik at det dannes en liste nedover etter hver gang makroen kjøres vet jeg ikke helt hvordan jeg skal gjøre.

 

Eventuelt om det er noen andre triks som kan utføre samme oppgave. Skal da også lage en "tøm liste" makro, for å starte på ny.

 

[deaktivert443556]

Noe lignende dette?

 

Sub ugh()
Dim LedigRad
LedigRad = Workbooks("bok.xls").Worksheets(1).Cells(65536, 1).End(xlUp).Row + 1

Workbooks("bok.xls").Worksheets(1).Cells(LedigRad, 1) = Range("a1").Value
Workbooks("bok.xls").Worksheets(1).Cells(LedigRad, 2) = Range("b1").Value
'etc

End Sub