Deleting rows

[ordnance1]

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 ?

 

[Anant.Basant]

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

 

[Gord Dibben]

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

 

[JLGWhiz]

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]

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.

 

[ordnance1]

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]

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

Edit>Delete>Entire Row

A1 is still the active cell.

ActiveCell.Offset(0, 1) is B1

Select G1:K23 and Edit>Delete>Entire Row

G1 will be the active cell.


Gord