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 -
|