Delete data once filter applied

[Chrisjd2]

Hi all,

Is there a way in VBA where once I apply a filter on the data, and it displays the results, to only delete the shown data?

Regards
Chris

 

[Gary McMaster]

Hi Chris,

Welcome to the board.

SpecialCells is one way to do it.

Public Sub Test()

Dim oDelete As Range

Set oDelete = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible)

oDelete.Interior.ColorIndex = 3

Uncomment next line to delete visible rows
'oDelete.EntireRow.Delete

End Sub