View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
[email protected] sbitaxi@gmail.com is offline
external usenet poster
 
Posts: 158
Default Delete an entire row if two cells......

You can try this code:

Sub RemoveN()
' Macro recorded 4/30/2008 by Steven Bitaxi
'

Set Rng = Range("A1").CurrentRegion

' Assuming you have a header row
Set Rng = Rng.Rows(2).Resize(Rng.Rows.Count - 1)

Set Rng = Rng.SpecialCells(xlVisible)

' Removes rows with "N" in Field 2 (column B)
Selection.AutoFilter Field:=2, Criteria1:="=*N*"
Rng.Select
Selection.EntireRow.Delete
' Removes filter
Selection.AutoFilter Field:=2

' Removes rows with "N" in Field 3 (column C)
Selection.AutoFilter Field:=3, Criteria1:="=*N*"
Rng.Select
Selection.EntireRow.Delete
' Removes filter
Selection.AutoFilter Field:=3
End Sub


On Apr 30, 12:18*pm, Red2003XLT
wrote:
Is there an automated way? *I'm sure my users want to click and print.

Copy and paste the extract (rawdata-worksheet) then click and print



"ShaneDevenshire" wrote:
Hi,


You could put an auto filter on columns B & C and filter both for "N". *The
results would be only the rows containing N in both B & C. *Then highlight
the row numbers and press Ctrl - (Ctrl + Minus).


--
Thanks,
Shane Devenshire
Microsoft Excel MVP


"Red2003XLT" wrote:


Hello All,


How do I delete (for an entire worksheet) rows that contain "N"?


The cells are "B and "C". *


If "B" and "C" contain the letter "N" delete the entire row?
The letter "N" is the only thing in the cell.- Hide quoted text -


- Show quoted text -