The group you are posting to is a Usenet group. Messages posted to this group will make your email address visible to anyone on the Internet.
Your reply message has not been sent.
Your post was successful
 |
Newsgroups: microsoft.public.excel.programming
From: "Paul" <newspbrid...@uga.edu>
Date: Thu, 9 Jan 2003 15:01:58 -0500
Local: Thurs, Jan 9 2003 3:01 pm
Subject: Re: Delete Row if cell in column E is '1037'
Eagles, try this
Sub Delete_Rows() ' This macro deletes all rows on the active worksheet ' that have 1034, 1035, 1037 column E. Dim rng As Range, cell As Range, del As Range Set rng = Intersect(Range("E:E"), ActiveSheet.UsedRange) For Each cell In rng If (cell.Value) = "1034" _ Or (cell.Value) = "1035" _ Or (cell.Value) = "1037" Then If del Is Nothing Then Set del = cell Else: Set del = Union(del, cell) End If End If Next On Error Resume Next del.EntireRow.Delete End Sub -- > Good morning. Was hoping someone could help me with a small problem. I
> have a rather large macro that feeds from a single data sheet of roughly > 5,000 rows. The problem is this - There are a few rows of data I'd like to > exclude prior to the macro manipulating the data. > To be more specific, each row has a 4 digit product type in column E. > How can I search the data, and eliminate the rows with these 3 product > Thank you! > Go Eagles! You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
| |||||||||||||