cut and return
 

i have this simple code.

all it does is cut the selection copy it on another page and return to
the original page. when back in the original page it should delete the
empty row that is left from the cut.

it does the job but is giving me debug error.

Sub updated()
Selection.Cut
Sheets("Sheet2").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Sheets("sheet1").Select
Selection.Delete.Row

End Sub

ideas?

cut and return
 

Your problem is the last row of code. You have not declared a section for it
to delete.

I have altered this to delete row 1 which causes no problems.

Sub updated()
Selection.Cut
Sheets("Sheet2").Select
Rows("1:1").Insert Shift:=xlDown
Sheets("sheet1").Rows("1:1").Delete

End Sub

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200710/1

cut and return
 

Hi Again,

forgot you want to return to sheet1

put
sheet1.select
at the bottom

--
Message posted via http://www.officekb.com

cut and return
 

I am making an assumption that you want to move the entire row. Select any
cell on the desired row and fire this.
You need NOT goto the destination sheet.

Sub cutrowtosheet()
mr = ActiveCell.Row
Rows(mr).EntireRow.Cut
Sheets("sheet2").Rows(1).Insert shift:=xlDown
Rows(mr).Delete
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Luis A. Vázquez" wrote in message
ups.com...
i have this simple code.

all it does is cut the selection copy it on another page and return to
the original page. when back in the original page it should delete the
empty row that is left from the cut.

it does the job but is giving me debug error.

Sub updated()
Selection.Cut
Sheets("Sheet2").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Sheets("sheet1").Select
Selection.Delete.Row

End Sub

ideas?

cut and return
 

On Oct 16, 3:07 pm, "Crowbar via OfficeKB.com" <u15117@uwe wrote:
Hi Again,

forgot you want to return to sheet1

put
sheet1.select
at the bottom

--
Message posted viahttp://www.officekb.com

Thanks to both.

Works fine