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

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

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

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