Moving a row

[Philosophaie]

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

 

[tompl]

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

 

[Per Jessen]

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

 

[Gary''s Student]

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

Note that this is a copy and not a move.

 

[Philosophaie]

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.

 

[tompl]

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