VBA Excel Delete & Filter

[BalthazarKilmeany]

Hi All,

I would like to know if its possible to do the following.

I am currently using a short piece of VBA code to strip out extra columns of data i dont require from our softwares report utility.

The VBA Code is working fine, however, i wanted to know if i can add some extra code to add a filter to Row 1 then produce results based on a certain value.

Sub sbVBS_To_Delete_Specific_Multiple_Columns() Sheets("Events").Range("B:B,D:D,E:E,F:L,N:X").EntireColumn.Delete
End Sub

This then leaves me with Columns A, B, C, D, E,

I now want to add a filter to Row 1 (Column Headings)

and then filter Column C based on a specific value such as "11489".

Can you help?

 

[alansidman]

insert this

Dim lr As Long
    lr = Range("C" & Rows.Count).End(xlUp).Row
    Range("A1:E1").AutoFilter
    Range("$A$1:E" & lr).AutoFilter Field:=2, Criteria1:="11489"

 

[BalthazarKilmeany]

Alan,

Worked a treat, Many Thanks.