 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
| HomeDiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWordDirectoryUser Groups Related Topics Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ... |
MS Office Forum / Excel / Programming / April 2008Deleting rows
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 <ordnan...@discussions.microsoft.com> 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 >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. > You don't need to select rows to delete them. > [quoted text clipped - 12 lines] > >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 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 >Selection.Delete Shift:=xlUp > [quoted text clipped - 21 lines] >> >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. > 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. > 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 [quoted text clipped - 12 lines] > > 2. is there any way to ensure the macro does not run if an entire row (or > > rows) is not selectee ? |
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2008 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.