Delete multiple columns with Criteria

[Miya]

Hi, i have multiple columns with headers titled Total, i tried using the below code, but only one column with title Total gets deleted, how can i get the code to delete muliple columns?

Hdrs = Array("Total")
For i = LBound(Hdrs) To UBound(Hdrs)
Set Found = .Rows(6).Find(what:=Hdrs(i))
If Not Found Is Nothing Then Found.EntireColumn.Delete
Next i

 

[jbeaucaire]

Try this instead:

Sub DeleteTotalColumns()
Dim LastColumn As Integer
Dim rngcols As Range, cell As Range

LastColumn = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, _
            SearchDirection:=xlPrevious).Column

Set rngcols = Range(Cells(1, 1), Cells(1, LastColumn))

    For Each cell In rngcols
        If cell.Value = "Total" Then
        cell.EntireColumn.Delete
        End If
    Next cell
End Sub

 

[Miya]

Thanks for this, question -is this code flexible, say if i want to add more criteria to the below, then is it simply this?


f cell.Value = "Total","Average" Then

Try this instead:

Sub DeleteTotalColumns()
Dim LastColumn As Integer
Dim rngcols As Range, cell As Range
 
LastColumn = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, _
            SearchDirection:=xlPrevious).Column
 
Set rngcols = Range(Cells(1, 1), Cells(1, LastColumn))
 
    For Each cell In rngcols
        If cell.Value = "Total" Then
        cell.EntireColumn.Delete
        End If
    Next cell
End Sub

 

[jbeaucaire]

You can change the code each time you use it, or add OR commands into it

If cell.Value = "Total" Or cell.Value = "Average" Then