Delete Columns if sum is 0
in [Programming]
|
Prev: Conditional formatting if condition of an if statement is true and a string value is displayed
Next: Copying worksheet from hidden instance of Excel
From: beancurd on 26 May 2010 12:47 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.
From: JLGWhiz on 26 May 2010 14:04 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" <beancurdjelly2003(a)yahoo.com.hk> wrote in message news:ff6eb63a-2b7e-4ee7-bbef-e1ab8463e23c(a)k25g2000prh.googlegroups.com... > 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.
From: beancurd on 27 May 2010 12:04 How can I set the pop up message, for one folder that include excel file to delete columns?
From: Gord Dibben on 27 May 2010 12:16
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 <beancurdjelly2003(a)yahoo.com.hk> wrote: >How can I set the pop up message, for one folder that include excel >file to delete columns? |