Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cut and paste cells
I have a line of code in one of my sheets
Sheets("Ready").Range(Cells(2,1,),Cells(ReadyRows-1,11)).cut But it only works if the sheet is active, I want it to work without the sheet being active hence I want to avoid using Sheets("Ready").Activate Any help? Jesse jesse at jesseh.net |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cut and paste cells
With Sheets("Ready")
.Range(.Cells(2,1,),.Cells(ReadyRows-1,11)).cut End With -- Regards, Tom Ogilvy Jesse Hamilton wrote in message news:wfVrb.12590$Ws6.9472@edtnps84... I have a line of code in one of my sheets Sheets("Ready").Range(Cells(2,1,),Cells(ReadyRows-1,11)).cut But it only works if the sheet is active, I want it to work without the sheet being active hence I want to avoid using Sheets("Ready").Activate Any help? Jesse jesse at jesseh.net |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cut and paste cells
That works great but try as I might I can't get it to past.
I tried originally Sheets("Not Ready").cells(NotReadyRows,1).paste Then trying to mimic the cut code With Sheets("Not Ready") .Range(.Cells(NotReadyRows, 1)).Paste End With Not working either way. Jesse "Tom Ogilvy" wrote in message ... With Sheets("Ready") .Range(.Cells(2,1,),.Cells(ReadyRows-1,11)).cut End With -- Regards, Tom Ogilvy Jesse Hamilton wrote in message news:wfVrb.12590$Ws6.9472@edtnps84... I have a line of code in one of my sheets Sheets("Ready").Range(Cells(2,1,),Cells(ReadyRows-1,11)).cut But it only works if the sheet is active, I want it to work without the sheet being active hence I want to avoid using Sheets("Ready").Activate Any help? Jesse jesse at jesseh.net |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cut and paste cells
With Sheets("Ready")
.Range(.Cells(2,1,),.Cells(ReadyRows-1,11)).cut _ Destination:=Sheets("Not Ready).Cells(NotReadyRows,1) End With or to use your approach With Sheets("Not Ready") .Cells(NotReadyRows, 1).Paste End With -- Regards, Tom Ogilvy Jesse wrote in message news:xqZrb.14552$Ws6.8047@edtnps84... That works great but try as I might I can't get it to past. I tried originally Sheets("Not Ready").cells(NotReadyRows,1).paste Then trying to mimic the cut code With Sheets("Not Ready") .Range(.Cells(NotReadyRows, 1)).Paste End With Not working either way. Jesse "Tom Ogilvy" wrote in message ... With Sheets("Ready") .Range(.Cells(2,1,),.Cells(ReadyRows-1,11)).cut End With -- Regards, Tom Ogilvy Jesse Hamilton wrote in message news:wfVrb.12590$Ws6.9472@edtnps84... I have a line of code in one of my sheets Sheets("Ready").Range(Cells(2,1,),Cells(ReadyRows-1,11)).cut But it only works if the sheet is active, I want it to work without the sheet being active hence I want to avoid using Sheets("Ready").Activate Any help? Jesse jesse at jesseh.net |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
need to paste link from 4 vertical cells to 4 horizontal cells? | Excel Discussion (Misc queries) | |||
PASTE LINK FROM HORIZONTAL CELLS TO VERTICAL CELLS | Excel Discussion (Misc queries) | |||
paste locked cells and unlocked cells in protected sheet | Excel Worksheet Functions | |||
how can I paste 10 cells but inverting the position of the cells | Excel Discussion (Misc queries) | |||
how can we copy cells comments text and paste to cells | Excel Discussion (Misc queries) |