I have a macro which deletes a set of rows, but once the delete is done, I
need the curser to shift right by i cell. Problem is when you delete rows you
do not have just one active cell selected.

2. is there any way to ensure the macro does not run if an entire row (or
rows) is not selectee ?

On Apr 15, 4:10*am, ordnance1
wrote:
I have a macro which deletes a set of rows, but once the delete is done, I
need the curser to shift right by i cell. Problem is when you delete rows you
do not have just one active cell selected.

2. is there any way to ensure the macro does not run if an entire row (or
rows) is not selectee ?

Hello,

The problem is not very clear from your post. Could you please post
the code also?

Regards
Anant

You don't need to select rows to delete them.

ActiveSheet.Range("A1:A56").EntireRow.Delete

Post your code for more assistance.

Easy enough to offset from the activecell if we knew where you wanted it.


Gord Dibben MS Excel MVP

On Mon, 14 Apr 2008 16:10:01 -0700, ordnance1
wrote:

I have a macro which deletes a set of rows, but once the delete is done, I
need the curser to shift right by i cell. Problem is when you delete rows you
do not have just one active cell selected.

2. is there any way to ensure the macro does not run if an entire row (or
rows) is not selectee ?

I assume you want it one cell to the right of where you currently see it when
the macro is finished. If that is the case then insert this line just before
the End Sub.

ActiveCell.Offset(0, 1).Select

That will move the cursor one cell to the right of the active cell. If this
is not what you need then do as Anant suggested and post the macro you are
using so we can see where the cursor action is.

"ordnance1" wrote:

I have a macro which deletes a set of rows, but once the delete is done, I
need the curser to shift right by i cell. Problem is when you delete rows you
do not have just one active cell selected.

2. is there any way to ensure the macro does not run if an entire row (or
rows) is not selectee ?

Thanks for the reply.

The user will have to select the rows since they will not always be the me.
So my problem is that when you select a set of rows to delete, once they are
deleted you end up with a like number of rows still selected. So if you
select rows 5,6 and 7 for deletion, once they are deleted rows 5, 6 and 7 are
still selected soif you use ActiveCell.Offset(0, 1).Select you get an error
because there is no active cell selected.

"JLGWhiz" wrote:

I assume you want it one cell to the right of where you currently see it when
the macro is finished. If that is the case then insert this line just before
the End Sub.

ActiveCell.Offset(0, 1).Select

That will move the cursor one cell to the right of the active cell. If this
is not what you need then do as Anant suggested and post the macro you are
using so we can see where the cursor action is.

"ordnance1" wrote:

I have a macro which deletes a set of rows, but once the delete is done, I
need the curser to shift right by i cell. Problem is when you delete rows you
do not have just one active cell selected.

2. is there any way to ensure the macro does not run if an entire row (or
rows) is not selectee ?

Selection.Delete Shift:=xlUp

The user will have to select the rows since they will not always be the me.
So my problem is that when you select a set of rows to delete, once they are
deleted you end up with a like number of rows still selected. So if you
select rows 5,6 and 7 for deletion, once they are deleted rows 5, 6 and 7 are
still selected soif you use ActiveCell.Offset(0, 1).Select you get an error
because there is no active cell selected.





"Gord Dibben" wrote:

You don't need to select rows to delete them.

ActiveSheet.Range("A1:A56").EntireRow.Delete

Post your code for more assistance.

Easy enough to offset from the activecell if we knew where you wanted it.


Gord Dibben MS Excel MVP

On Mon, 14 Apr 2008 16:10:01 -0700, ordnance1
wrote:

I have a macro which deletes a set of rows, but once the delete is done, I
need the curser to shift right by i cell. Problem is when you delete rows you
do not have just one active cell selected.

2. is there any way to ensure the macro does not run if an entire row (or
rows) is not selectee ?

There has to be an active cell no matter if you have 20 rows selected.

Active cell will be top left cell in selection.

i.e. select row headers 1:15. You will see that A1 is the active cell

EditDeleteEntire Row

A1 is still the active cell.

ActiveCell.Offset(0, 1) is B1

Select G1:K23 and EditDeleteEntire Row

G1 will be the active cell.


Gord


On Mon, 14 Apr 2008 17:14:01 -0700, ordnance1
wrote:

Selection.Delete Shift:=xlUp

The user will have to select the rows since they will not always be the me.
So my problem is that when you select a set of rows to delete, once they are
deleted you end up with a like number of rows still selected. So if you
select rows 5,6 and 7 for deletion, once they are deleted rows 5, 6 and 7 are
still selected soif you use ActiveCell.Offset(0, 1).Select you get an error
because there is no active cell selected.





"Gord Dibben" wrote:

You don't need to select rows to delete them.

ActiveSheet.Range("A1:A56").EntireRow.Delete

Post your code for more assistance.

Easy enough to offset from the activecell if we knew where you wanted it.


Gord Dibben MS Excel MVP

On Mon, 14 Apr 2008 16:10:01 -0700, ordnance1
wrote:

I have a macro which deletes a set of rows, but once the delete is done, I
need the curser to shift right by i cell. Problem is when you delete rows you
do not have just one active cell selected.

2. is there any way to ensure the macro does not run if an entire row (or
rows) is not selectee ?