VBA Code - Delete Columns

[ChrisFoster]

Hi all,

I have some coding that I am using which neatens up a report that I pull from my work's system.

What I want is some VBA code that auto deletes any rows where "Pending Failure" is displayed in column E. All data in Column E though is formulas in each cell (apart from the header).

Please can someone help?

Cheers

Chris

 

[Fluff]

How about

Sub ChrisFoster()
   With ActiveSheet
      .Range("A1:E1").AutoFilter 5, "Pending Failure"
      .AutoFilter.Range.Offset(1).EntireRow.Delete
      .AutoFilterMode = False
   End With
End Sub

 

[ChrisFoster]

How about

Sub ChrisFoster()
   With ActiveSheet
      .Range("A1:E1").AutoFilter 5, "Pending Failure"
      .AutoFilter.Range.Offset(1).EntireRow.Delete
      .AutoFilterMode = False
   End With
End Sub

That works perfectly, thanks so much.

 

[Fluff]

You're welcome & thanks for the feedback

 

[ChrisFoster]

Hi,

You may be able to help me advance further on my code. Do you know how I'd delete all rows apart from row 1, where column B does not contain the word "Arrears"? SO basically I just want to keep the rows where column B contains the word "Arrears".

Cheers

Chris

 

[Fluff]

The same code, but with this mod

.Range("A1:E1").AutoFilter 2, "<>*arrears*"

 

[ChrisFoster]

Perfect, thank you.

 

[Fluff]

You're welcome & thanks for the feedback