Possible to select and delete multiple items

[Annette]

If I had a spreadsheet with worker ids in column F and I wanted to select
and delete a couple different ids at the same time, is this possible?

They start out CSC1, then jump to DRA1 through DRZZ ... in the middle are
the ones I don't want deleted (for example: DRH1, DRH2, DRH3, DRI1, DRI2,
DRI3, DRIA, DRIB, etc.)

Is this possible?

Thanks,

Annette

 

[Bob Phillips]

Select the first, Shift-Select the last, then Delete.

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Tom Ogilvy]

is there a rule to apply to decide which ones to delete, or do you just need
to compare each row to a list of IDs you want to delete?

If the latter, then that is basically what you would need to do - compare
each row to a list. There are many different ways to approach that. Is the
list of id's in a worksheet in another location?

set rw = cells(rows.count,"F").End(xlup)
list = Array("DRH1", "DRH2", "DRH3", "DRI1", _
"DRI2","DRI3", "DRIA", "DRIB")
for i = rw to 1 step -1
res = Application.Match(cells(rw,"F").Value,list,0)
if not iserror(res) then
cells(rw,"F").EntireRow.delete
end if
Next


another way

set rw = cells(rows.count,"F").End(xlup)
list = Array("DRH1", "DRH2", "DRH3", "DRI1", _
"DRI2","DRI3", "DRIA", "DRIB")
for i = lbound(list) to ubound(list)
set rng = Range(cells(1,"F"),cells(rw,"F"))
res = Application.Match(list(i),rng,0)
if not iserror(res) then
rng(res).EntireRow.delete
end if
Next


and there are others

 

[Annette]

This is excellent .. let me start with this as I'm thinking the first code
will work.