Re: Delet all row's with "TOTALS"
From: MESTRELLA29 (MESTRELLA29_at_discussions.microsoft.com)
Date: 02/28/05
- Next message: Bob Phillips: "Re: It doesn't add up - It's driving me crazy"
- Previous message: Trevor Shuttleworth: "Re: It doesn't add up - It's driving me crazy"
- In reply to: Tom Ogilvy: "Re: Delet all row's with "TOTALS""
- Next in thread: Bob Phillips: "Re: Delet all row's with "TOTALS""
- Messages sorted by: [ date ] [ thread ]
Date: Mon, 28 Feb 2005 09:23:04 -0800
Once Again You are a BIG HELP,
THANKS
"Tom Ogilvy" wrote:
>
> Set c = .Find("TOTALS", LookIn:=xlValues)
> If Not c Is Nothing Then
> firstAddress = c.Address
> Do
> set d = c.offset(-1,0)
> c.EntireRow.Delete
> Set c = .FindNext(d)
>
> Loop While Not c Is Nothing
> End If
> End With
>
> --
> Regards,
> Tom Ogilvy
>
>
> "MESTRELLA29" <MESTRELLA29@discussions.microsoft.com> wrote in message
> news:4DC1220C-65A8-4FAC-9A52-626FFCBB86F9@microsoft.com...
> > I have a Download that I am trying to clean up.
> > The download has data that I need but also has totals in severals row's
> > I want to Find the "TOTALS" and delete the Row for all the rows tha
> contains
> > "TOTALS"
> >
> > I have is This: I am geting error Message in "Set c = .FindNext(c)"
> > Columns("d:d").Select
> >
> > With Selection
> >
> > Set c = .Find("TOTALS", LookIn:=xlValues)
> > If Not c Is Nothing Then
> > firstAddress = c.Address
> > Do
> > c.EntireRow.Delete
> > Set c = .FindNext(c)
> >
> > Loop While Not c Is Nothing And c.Address <> firstAddress
> > End If
> > End With
> >
>
>
>
- Next message: Bob Phillips: "Re: It doesn't add up - It's driving me crazy"
- Previous message: Trevor Shuttleworth: "Re: It doesn't add up - It's driving me crazy"
- In reply to: Tom Ogilvy: "Re: Delet all row's with "TOTALS""
- Next in thread: Bob Phillips: "Re: Delet all row's with "TOTALS""
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|
