Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Columns if sum is 0
Hi,
I want to delete columns if the total is 0 background: excel file columns I to X want to delete if whole column's SUM is 0. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Columns if sum is 0
Sub delCol()
Dim lr As Long, sh As Worksheet Set sh = ActiveSheet For i = 24 To 9 Step -1 lr = sh.Cells(Rows.Count, i).End(xlUp).Row If WorksheetFunction.Sum(Range(sh.Cells(1, i), _ sh.Cells(lr, i))) = 0 Then Columns(i).Delete End If Next End Sub "beancurd" wrote in message ... Hi, I want to delete columns if the total is 0 background: excel file columns I to X want to delete if whole column's SUM is 0. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Columns if sum is 0
How can I set the pop up message, for one folder that include excel
file to delete columns? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete Columns if sum is 0
Start by re-writing your description of what you would like to have done.
Does not make sense as it is. Gord Dibben MS Excel MVP On Thu, 27 May 2010 09:04:04 -0700 (PDT), beancurd wrote: How can I set the pop up message, for one folder that include excel file to delete columns? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VB to delete columns except these... | Excel Programming | |||
Delete & Merge Columns,Delete Rows with filter, etc | Excel Programming | |||
create a macro to delete columns and then border remaining columns | Excel Programming | |||
merge text from 2 columns into 1 then delete the old 2 columns | Excel Worksheet Functions | |||
Delete Columns | Excel Programming |