Filtered Data

[Betty Csehi]

I have a list of data in a column. I want to filter that list for all of
the "XXX". I then want to delete the XXX items. Can I do this with
filtered data??

 

[Frank Kabel]

Hi Betty
- select your sorce range
- goto 'Data - Filter - Autofilter'
- filter all 'XXX'
- delete all rows with 'XXX' (all filtered rows'
- remove the Autofilter

 

[Ron de Bruin]

Try this


For Column A

Sub Delete_with_Autofilter()
Dim DeleteValue As String
Dim rng As Range

DeleteValue = "XXX"

With ActiveSheet
.Columns("A").AutoFilter Field:=1, Criteria1:=DeleteValue
With ActiveSheet.AutoFilter.Range
On Error Resume Next
Set rng = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Not rng Is Nothing Then rng.Delete Shift:=xlUp
End With
.AutoFilterMode = False
End With
End Sub

 

[Ron de Bruin]

Sorry you posted in Misc

 

[Alan Beban]

Why filter? Why not just delete all rows with "XXX"?

Alan Beban

 

[Betty Csehi]

Thanks! I didn't know it would be so simple. Thought I'd lose all the
in-between data, but it looks fine. Thanks, again!