Re: Possible to select and delete multiple items
From: Annette (Samm_at_hotmail.com)
Date: 01/03/05
- Next message: Ed: "Re: Name of range containing ActiveCell?"
- Previous message: Aaron: "Re: Test for Open File"
- In reply to: Tom Ogilvy: "Re: Possible to select and delete multiple items"
- Messages sorted by: [ date ] [ thread ]
Date: Mon, 3 Jan 2005 09:43:09 -0600
This is excellent .. let me start with this as I'm thinking the first code
will work.
"Tom Ogilvy" <twogilvy@msn.com> wrote in message
news:OTRAvma8EHA.1300@TK2MSFTNGP14.phx.gbl...
> 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
>
>
> --
> Regards,
> Tom Ogilvy
>
> "Annette" <Samm@hotmail.com> wrote in message
> news:esovyca8EHA.2700@TK2MSFTNGP14.phx.gbl...
> > 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
> >
> >
>
>
- Next message: Ed: "Re: Name of range containing ActiveCell?"
- Previous message: Aaron: "Re: Test for Open File"
- In reply to: Tom Ogilvy: "Re: Possible to select and delete multiple items"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|