Delete Column if empty.

[Cyberpawz]

After dealing with deleting rows, I figured if I changed a few variables and I could make it delete columns instead of rows...

Here is what I came up with.

Please Login or Register  to view this content.

Obviously it didn't work... so I looked around for an answer, I found this code:

Please Login or Register  to view this content.

Now out of what I learned from the code in the delete cells, I understand most of this, but the only thing I am looking at here, that makes me pause is the the comments.

What I thought would work would be this:

Please Login or Register  to view this content.

But this doesn't work either, so if someone could clarify what is going on, it be greatly appreciated.

[MaczaQ]

try this

Please Login or Register  to view this content.

[arlu1201]

On what basis do you want to delete the columns? As long as they are completely empty?

[Cyberpawz]

On what basis do you want to delete the columns? As long as they are completely empty?

What I'd like to do is have something like the first code, where it has the criteria already spelled out before the code starts, and then in between the columns delete any empty columns depending on if data is in a specific row or not.

[StevenM]

The following code assumes that the first row is a header row. If there is nothing below row 1, the column is deleted.

Please Login or Register  to view this content.

[Cyberpawz]

The following code assumes that the first row is a header row. If there is nothing below row 1, the column is deleted.

Please Login or Register  to view this content.

How do I change it to make row 6 the row it searches?

Please Login or Register  to view this content.

Do I change the 1 there to 5 or 6?

The other issue is I don't see the ability to adjust columns it searches I may need to select, because A will not always need to be "removed"

[Cyberpawz]

Ok, found something that works, but not entirely. It copies the data, but doesn't delete the original. If someone can help with that last aspect it be greatly appreciated...the other bit, would make it work with only the 2nd sheet in a workbook... I thought I did it by adding in Workbook(2) into right after the Dim cell, but it doesn't work, it ignores it.

Please Login or Register  to view this content.

[StevenM]

Please Login or Register  to view this content.

The variable ".Cells(.Rows.Count, i).End(xlUp).Row" will return the last row in column "i" which is not empty.

Thus if one wanted to delete every column which doesn't have information below row 6, one could change it to:

Please Login or Register  to view this content.

But you might also need to change the line:

Please Login or Register  to view this content.

Where "6" then is the header row.