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

Hi I wanted to know what the code would be to delete an entire row if
that cells column H is less than 20.0%. Then after that, if column I
is less than 20% delete those rows. I appreciate your help. Thanks

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

Hi
as a starting point:
http://www.xldynamic.com/source/xld.Deleting.html

--
Regards
Frank Kabel
Frankfurt, Germany

"Julienne" schrieb im Newsbeitrag
om...
Hi I wanted to know what the code would be to delete an entire row if
that cells column H is less than 20.0%. Then after that, if column I
is less than 20% delete those rows. I appreciate your help. Thanks

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

Try this out

Range("a1").Select
Do Until ActiveCell = ""

If ActiveCell.Offset(columnoffset:=11) < 0.2 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(rowoffset:=1).Activate
End If

Loop

Range("A1").Select

Do Until ActiveCell = ""

If ActiveCell.Offset(columnoffset:=8) < 0.2 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(rowoffset:=1).Activate
End If
Loop

-----Original Message-----
Hi I wanted to know what the code would be to delete an
entire row if
that cells column H is less than 20.0%. Then after that,
if column I
is less than 20% delete those rows. I appreciate your
help. Thanks
.

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

The code doesnt work because it loops and doesn't stop unless i hi
ctrl- break. not sure how to change

--
ICSAnalys
-----------------------------------------------------------------------
ICSAnalyst's Profile: http://www.excelforum.com/member.php...fo&userid=1509
View this thread: http://www.excelforum.com/showthread.php?threadid=27716

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

Have you posted the code (I can't find it...)? If not, please do so.


On Mon, 15 Nov 2004 14:01:50 -0600, ICSAnalyst
wrote:


The code doesnt work because it loops and doesn't stop unless i hit
ctrl- break. not sure how to change.

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