Creating a Macro that will Delete if anything less than 20%

Posted to microsoft.public.excel.programming

scottymelloty[_11_] scottymelloty[_11_] is offline

external usenet poster

Posts: 1

Creating a Macro that will Delete if anything less than 20%

Copy and paste this into a macro and run it

Sub delete_rows()
Dim RowNdx As Long
Dim LastRow As Long
LastRow = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row
For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx, "H").Value <= 20 Then
Rows(RowNdx).Delete
End If
Next RowNdx
End Su

--
scottymellot
-----------------------------------------------------------------------
scottymelloty's Profile: http://www.excelforum.com/member.php...nfo&userid=380
View this thread: http://www.excelforum.com/showthread.php?threadid=27716

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode 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 sheets from a workbook without creating linked formulae	BlueTig	Excel Discussion (Misc queries)	3	August 23rd 06 08:39 AM
delete a macro that isn't in macro list	Jane Makinson	Excel Discussion (Misc queries)	3	March 13th 06 01:10 PM
How can I delete a macro when the Delete button is not active?	FCR	Excel Worksheet Functions	0	March 9th 06 09:43 AM
How do i delete a macro in Excel 2003 when delete isn't highlight	Abel	Excel Discussion (Misc queries)	2	September 13th 05 04:09 AM
macro to delete entire rows when column A is blank ...a quick macro	vikram	Excel Programming	4	May 3rd 04 08:45 PM

All times are GMT +1. The time now is 09:40 AM.

Menu

About Us