Delete Whole Column If Header Contains "x"

Re: Delete Whole Column If Header Contains "x"

pepperell

try:

Sub remove_columns()
    For i = ActiveSheet.Columns.Count To 1 Step -1
        If InStr(1, Cells(1, i), "%") Then Columns(i).EntireColumn.Delete
    Next i
End Sub

filippo

Re: Delete Whole Column If Header Contains "x"

Hi,

THis will cycle through the first 10 columns if it finds % in the top cell it will delete the column.

Does that help?

Sub DeleteColumns()
DIm i as integer, A as range
    For i = 10 To 1 Step -1
        Set a = Cells(1, i).Find(What:="%", LookIn:=xlValues)
        If Not a Is Nothing Then a.EntireColumn.Delete
    Next i
End Sub

Edit: I think filo's method above is better.

Re: Delete Whole Column If Header Contains "x"

thank you!

Re: Delete Whole Column If Header Contains "x" such as "%"

A compromise that does all columns without checking every column.

Sub DeleteColumns()
Dim rng As Range
Dim str As String
str = "%"
    Do
        Set rng = Rows(1).Find(What:=str, LookIn:=xlValues, lookat:=xlPart)
        If rng Is Nothing Then Exit Do
        rng.EntireColumn.Delete
    Loop
End Sub

Re: Delete Whole Column If Header Contains "x"

Quote from Andy Pope

A compromise that does all columns without checking every column.
[vba] Dim A As Range

Do
Set A = Rows(1).Find(What:="%", LookIn:=xlValues, lookat:=xlPart)
If A Is Nothing Then Exit Do
A.EntireColumn.Delete
Loop
[/vba]

Display More

Now were talking. : D

Can this be used to use a value in another cell rather than hard code "%" ? How would this be done?

Read the Forum Rules then start your own post.