Makro som flytter linje til nyt ark

sættes ind i et modul

Public Sub MoveRow()
'Ret Fane1 og Fane2 til dine fanenavne
If ActiveSheet.Name = "Fane1" Then
Rows(ActiveCell.Row).Copy
RW = Worksheets("Fane2").Range("A65536").End(xlUp).Row + 1
ActiveSheet.Paste Destination:=Worksheets("Fane2").Cells(RW, 1)
Rows(ActiveCell.Row).Delete
End If
If ActiveSheet.Name = "Fane2" Then
Rows(ActiveCell.Row).Copy
RW = Worksheets("Fane1").Range("A65536").End(xlUp).Row + 1
ActiveSheet.Paste Destination:=Worksheets("Fane1").Cells(RW, 1)
Rows(ActiveCell.Row).Delete
End If

End Sub

Den tager den række hvor der er en celle aktiv

Hej,

Den siger noget i stil med at Index er udenfor "range" og "highlighter" dette:
RW = Worksheets("Klar").Range("A65536").End(xlUp).Row + 1


Her er hele koden:

Public Sub MoveRow()
'Ret Fane1 og Fane2 til dine fanenavne
If ActiveSheet.Name = "2000" Then
Rows(ActiveCell.Row).Copy
RW = Worksheets("Klar").Range("A65536").End(xlUp).Row + 1
ActiveSheet.Paste Destination:=Worksheets("Klar").Cells(RW, 1)
Rows(ActiveCell.Row).Delete
End If
If ActiveSheet.Name = "Klar" Then
Rows(ActiveCell.Row).Copy
RW = Worksheets("2000").Range("A65536").End(xlUp).Row + 1
ActiveSheet.Paste Destination:=Worksheets("2000").Cells(RW, 1)
Rows(ActiveCell.Row).Delete
End If

End Sub

Hvilken exel version bruger du ?

Tjek lige hvilket nummer den sidste celle i A kolonnen har( Helt i bund )

Ver. 2003 (11.5612.5703)
Hvordan er det nu jeg går längst ned med en hurtigtast?

CTRL + pil ned

Ok! Tack! 65536

Har du fundet ud af hvad det er der er galt :-)

Er du sikker på at arket hedder "Klar" uden mellemrum o.s.v.

Jeg fick det til at virke. Sikke en clown jeg var. Det var stavet forkert...
Tak for hjälpen. Svar = Points :-)

Et svar ;-))

det er hvad man kalder en fejl 40

lukketid ;-))