I am trying to move a row from Sheet2 to sheet1. I keep getting an error in
my first attempt:

Sheets("Sheet1").Range("A4:XX4") = Sheets("Sheet2").Range("A1:XX1")

Error code:
Application-defined or object-defined error

Try:

Sheets("Sheet1").Range("A4:XX4") = Sheets("Sheet2").Range("A1:XX1").Value
Or
Sheets("Sheet1").Range("A4:XX4") = Sheets("Sheet2").Range("A1:XX1").Formula
Or
Sheets("sheet2").Range("A1:XX1").Copy Sheets("sheet1").Range("A4")

Tom

Not sure if you want to use cut or copy, so here are both options:

Sheets("Sheet1").Range("A4:XX4").Cut
Destination:=Sheets("Sheet2").Range("A1")

Sheets("Sheet1").Range("A4:XX4").Copy
Destination:=Sheets("Sheet2").Range("A1")

Regards,
Per

"Philosophaie" skrev i meddelelsen
...
I am trying to move a row from Sheet2 to sheet1. I keep getting an error
in
my first attempt:

Sheets("Sheet1").Range("A4:XX4") = Sheets("Sheet2").Range("A1:XX1")

Error code:
Application-defined or object-defined error

Sheets("Sheet2").Range("A1:XX1"). Copy Sheets("Sheet1").Range("A4")

Note that this is a copy and not a move.
--
Gary''s Student - gsnu201001

None of the above worked. The reason I think is because the Range equation
lies within a:
Select Case z
Case 1
Sheets("Sheet1").Range("A4:XX4") = Sheets("Sheet2").Range("A1:XX1")
Case 2
....
End Select

For some reason in a Select Case it gives the error below:

Application-defined or object-defined error.

When I tried:
Sheets("Sheet1").Cells(4,1)=Sheets("Sheet2").Cells (1,1)
It printed out the first cell of Sheet2 with no error, Strange.

Did you add the .value or .formula? I found that is necessary to make it
work, but you might be better off using the copy command as that copies
everything about the cell.

Tom