| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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? |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Return date if in range, else return blank | Excel Worksheet Functions | |||
| Compare Value in Cell 1 to a List, Return Value if Match otherwise Return Null | Excel Discussion (Misc queries) | |||
| LOOKUP and return the column heading for IF/THEN return for False | Excel Discussion (Misc queries) | |||
| check if reference exists, then return its value or return 0 | Excel Worksheet Functions | |||
| VBA Syntax for VLOOKUP to return array of return values | Excel Programming | |||
Linear Mode
