Good morning, I do not know how to do it so that when the column is called MONTH it erases it completely, if the column or has any data, also it must erase it, if the column has zeros in all the cells also erase it. Should be deleted by those criteria since they are not always in the same column. Thank you.
Hi,
This Code will check those 3 criteria
Sub Test() Dim LR As Long, LC As Long, x As Integer, WF As WorksheetFunction LR = ActiveSheet.UsedRange.Rows.Count LC = ActiveSheet.UsedRange.Columns.Count Set WF = Application.WorksheetFunction For x = LC To 1 Step -1 If Cells(1, x) = "MONTH" Then Columns(x).Delete Else If WF.CountBlank(Range(Cells(1, x), Cells(LR, x))) = LR Then Columns(x).Delete Else If WF.Sum(Range(Cells(1, x), Cells(LR, x))) = 0 Then Columns(x).Delete End If End If End If Next x End Sub
Please do add reputation where you see fit, it's nice to be nice and we all enjoy a pat on the back
Please also mark your thread as solved once it has been.
Maybe:
Sub sprit36() Dim x As Long, i As Long, y As Long x = ActiveSheet.UsedRange.Columns.Count For i = x To 1 Step -1 y = Cells(Rows.Count, i).End(3).row Cells(y + 1, i).Formula = "=SUM(" & Range(Cells(2, i), Cells(y, i)).Address & ")" If Cells(1, i) = "MONTH" Then Columns(i).Delete If Cells(y + 1, i).Value = 0 Then Columns(i).Delete Next i End Sub
Thank you very much, the two work perfectly. One last question if you would like before deleting a cell to change its name, cell A1, instead of DAY, put DAYS. What change would I have to make? Thank you.
I have already solved. Thanks for your help. regards
You're welcome. Glad to help out.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
sprit36 
Register To Reply
Bookmarks