Flytning af rækker mellem forskellige excelark, vha. VB

Sub Flytrække()
Lr = Range("A65536").End(xlUp).Row
For C = Lr To 2 Step -1
If Cells(C, 1).Value = 123456 Then ' ret til dit nummer
    RW = Sheets("Ark2").Range("A1").End(xlDown).Offset(1, 0).Row

    Rows(C & ":" & C).Copy Sheets("Ark2").Range("A" & RW)
    Rows(C & ":" & C).Delete Shift:=xlUp
    End If
    Next
End Sub

I linie 5 kommer der en fejl

Run-time error '9':

Subscript out of range

Hvis det er her

  RW = Sheets("Ark2").Range("A1").End(xlDown).Offset(1, 0).Row

er det fordi du ikke har et ark ved navn "Ark2", ret det til det ark som der skal flyttes over på.

Jeg fandt selv den fejl, men istedet kom der en fejl 1004 i samme linie "application-defined or objekt-defined error"

hvilken excel version har du

nu har jeg sat dim på, kan det være det.

Sub Flytrække()
Dim LR As Long, RW As Long, C As Long
LR = Range("A65536").End(xlUp).Row
For C = LR To 2 Step -1
If Cells(C, 1).Value = 123456 Then ' ret til dit nummer
    RW = Sheets("Ark2").Range("A1").End(xlDown).Offset(1, 0).Row

    Rows(C & ":" & C).Copy Sheets("Ark2").Range("A" & RW)
    Rows(C & ":" & C).Delete Shift:=xlUp
    End If
    Next

Samme problem. Jeg benytter excel 2003

Ok fejlen er at der skal vær data i A1 og A2 i ark2, for at blive fejel kvit.

Nu tjekker den om der er noget i A2, så skulle fejlen undgås, jeg regner med at du bruger overskrifter.

Sub Flytrække()
Dim LR As Long, RW As Long, C As Long
LR = Range("A65536").End(xlUp).Row
For C = LR To 2 Step -1
If Cells(C, 1).Value = 123456 Then ' ret til dit nummer
If Sheets("Ark2").Range("A2") <> "" Then
    RW = Sheets("Ark2").Range("A1").End(xlDown).Offset(1, 0).Row
    Else
    RW = 2
    End If

    Rows(C & ":" & C).Copy Sheets("Ark2").Range("A" & RW)
    Rows(C & ":" & C).Delete Shift:=xlUp
    End If
    Next
End Sub

Super, den fungerer.

Lige et sidste relaterende spg.

Hvis jeg ønsker den skal flytte mere end et nummer (det 6-cifret, 123456)

If Cells(C, 1).Value = 123456 Then ' ret til dit nummer

Jeg har prøvet med ','  'and' og 'or' men det er vidst ikke det rigtige

Eks: If Cells(C, 1).Value = 123456, 654321 Then ' ret til dit nummer

If Cells(C, 1).Value = 123456 or Cells(C, 1).Value = 654321 Then ' ret til dit nummer

Kanon hjælp Kabbak, mange tak