delete rows which have a one in them

Posted to microsoft.public.excel.programming

Jef Gorbach[_2_] Jef Gorbach[_2_] is offline

external usenet poster

Posts: 65

delete rows which have a one in them

You misspelled "celss" when assigning finalrow. :)

It would probably be faster to filter the range for rows where
column(H)=1 then delete the results.

Sub FilterDelete()
Dim FilterRange As Range
finalrow = Cells(Rows.Count, 1).End(xlUp).Row
Set FilterRange = Range("A1:H" & finalrow)
FilterRange.AutoFilter Field:=8, Criteria1:=1
FilterRange.SpecialCells(xlCellTypeVisible).Entire Row.Delete
End Sub

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Delete & Merge Columns,Delete Rows with filter, etc	traderindia	Excel Programming	1	July 16th 09 08:17 PM
Delete Rows if any cell in Column H is blank but do not Delete Fir	manfareed	Excel Programming	4	September 28th 07 05:20 PM
Copy pasting Rows, but need to Delete any Shapes/Pictures that are within copied rows	Corey	Excel Programming	2	August 1st 07 02:02 AM
How to delete rows when List toolbar's "delete" isnt highlighted?	Linda	Excel Worksheet Functions	1	May 26th 05 08:39 PM
Delete every 3rd row, then delete rows 2-7, move info f/every 2nd row up one to the end and delete the row below	Annette[_4_]	Excel Programming	2	September 21st 04 02:40 PM

All times are GMT +1. The time now is 05:32 AM.

Menu

About Us