VBA Code for deleting rows where cell in column a states "delete row"

**tnfire** · 03-20-2009, 02:43 PM

I'm trying to get a VBA macro put together that would delete all the rows, throughout every sheet, and shift up wherever the cell in column A = "Delete Row" in a workbook I've made. In the below copy of the workbook you can see that a lot of the information from all the tables is linked to the topmost table on the 'Mix Detail Sheet'.

If the the Cell in column A is blank on that first table, its corresponding cells in tables throughout the workbook displays the words "Delete Row". I need the macro to delete the rows and shift everything up where this occurs.

Ideally I'd also like the macro to then delete the rows in that first table where the column A cells are blank.

Let me know if I need to be more clear of if there are any questions. And thank you to anyone who can find the time to help me out. I've tried to adapt many of the other 'Delete Row' macros on this site to my situation, but I have not had very much success and I thought it was time to ask.

**shg** · 03-20-2009, 03:38 PM

Try this:

Please Login or Register  to view this content.

**tnfire** · 03-20-2009, 05:01 PM

The code works perfectly for deleting the rows where column A says "Delete Row". Which is the majority of what I was looking to do. So thank you for that, it is very helpful. The only thing that I can think of that would improve it is a statement that tells the module to Delete that first table - A4:A39 - where A is blank?

This is the code I added below the first with statement, a simple modification of what is between the quotations in the code you supplied.

Please Login or Register  to view this content.

It works but as I expected it deletes my spacing between tables as well.

I need it to delete the rows from just the first table, A4:A39, where A is blank.

Thank you again, very much, for your previous help.

**shg** · 03-20-2009, 05:05 PM

If you create a named range that refers to the table area, you can change your added code from wks.UsedRange to Worksheets("Mix Detail Sheet").Range("myTable").

**JBeaucaire** · 03-20-2009, 05:14 PM

A separate macro, or insert the important bits into the other macro.

Please Login or Register  to view this content.

**tnfire** · 03-20-2009, 06:17 PM

It worked perfectly JB. Thank you both for you help. I hope that someday when I'm able I'll be able to pay it forward.

VBA Code for deleting rows where cell in column a states "delete row"

LinkBack

Thread Tools

Rate This Thread

Display

VBA Code for deleting rows where cell in column a states "delete row"

Re: VBA Code for deleting rows where cell in column a states "delete row"

Re: VBA Code for deleting rows where cell in column a states "delete row"

Re: VBA Code for deleting rows where cell in column a states "delete row"

Re: VBA Code for deleting rows where cell in column a states "delete row"

Re: VBA Code for deleting rows where cell in column a states "delete row"

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions