| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
marco to delete empty columns
Thanks Rick I put it in for debug then forgot it
"Rick Rothstein" wrote: Since you didn't use the rr variable anywhere, you can remove this assignment line from the code... rr = Cells(Rows.Count, x).End(xlUp).Row -- Rick (MVP - Excel) "Mike H" wrote in message ... OOPS, My mistake you have to do it backwards Sub sonic() lastcolumn = Cells.Find(What:="*", After:=[A1], _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious).Column For x = lastcolumn To 1 Step -1 rr = Cells(Rows.Count, x).End(xlUp).Row If Cells(Rows.Count, x).End(xlUp).Row = 1 Then Columns(x).EntireColumn.Delete End If Next End Sub Mike "Mike H" wrote: Hi, Right click your sheet tab, view code and paste this in and run it Sub sonic() lastcolumn = Cells.Find(What:="*", After:=[A1], _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious).Column For x = 1 To lastcolumn If Cells(Rows.Count, x).End(xlUp).Row = 1 Then Columns(x).EntireColumn.Delete End If Next End Sub Mike " wrote: Hello. I need to make a macro that will delete any column in my excel worksheet that is empty. I am not sure wich columns are empty so it will need to check each one. I would also like it to ignore the first row because every column has a header so the macro would not work if it checked the first row. Does anyone have any ideas for a macro? I tryed to make one to do it today but just ended up very frustrated. |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Is there an easy way to delete empty columns? | Excel Worksheet Functions | |||
| How to delete at once empty columns in a table? | Excel Discussion (Misc queries) | |||
| Delete row if 3 columns have empty cells in a row | Excel Programming | |||
| Delete rows that are empty across columns | Excel Worksheet Functions | |||
| Delete empty array columns | Excel Programming | |||
Threaded Mode
