View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
JenIT JenIT is offline
external usenet poster
 
Posts: 25
Default macro to select cells containing specific text and delete all cells but these

I am attempting to sort data containing specific characters and delete
all rows but the ones that meet the critera. Such as search for "LW"
and get all LWLI, LWOS, LWSC, etc.

I have a macro working currently that will select one of the above and
delete all the rest...but I need to make this a bit more robust to keep
all LW's

Dim rng As Range, cell As Range, del As Range
Set rng = Intersect(Range("A:A"), ActiveSheet.UsedRange)
For Each cell In rng
If (cell.Value) < "LWLI" Then
If del Is Nothing Then
Set del = cell
Else: Set del = Union(del, cell)
End If
End If
Next cell
On Error Resume Next
del.EntireRow.Delete '

If I need to go about this from the back side and manually list all vs
a wild card type entry than I will, but I still need some help and
making a multiple selection criteria. When I try this now...It is
seeing the search as exclusive and deleting all data.