Hey there,

I am trying to have my marco delete all rows with a value equal to or less
then 0 (in a particular field). Any help would be great.

Thanks,
--
Damon

Sort them first (programmatically if you wish - do a macro record to
see how), then do a find for zero, then delete all rows below.

Hi Damon.
Try:

Sub Cancellariga()
Dim R As Long
Dim LR As Long
With ActiveSheet
LR = .Cells(Rows.Count, 1).End(xlUp).Row
For R = LR To 1 Step -1
If .Cells(R, 1).Value = 0 Then
.Cells(R, 1).EntireRow.Delete
End If
Next
End With
End Sub

Regards
Eliano


On 4 Giu, 00:59, Damon <Da...@discussions.microsoft.com> wrote:
> Hey there,
>
> I am trying to have my marco delete all rows with a value equal to or less
> then 0 (in a particular field). *Any help would be great.
>
> Thanks,
> --
> Damon

Sub DeleteRows()
Dim iLastRow As Long
Dim I As Long
iLastRow = Cells(Rows.Count, "C").End(xlUp).Row
For I = iLastRow To 1 Step -1
If Cells(I, "C").Value <= 0 Then
Rows(I).Delete
End If
Next I
End Sub

Edit the "C" to suit.


Gord Dibben MS Excel MVP

On Tue, 3 Jun 2008 15:59:02 -0700, Damon <(E-Mail Removed)>
wrote:

>Hey there,
>
>I am trying to have my marco delete all rows with a value equal to or less
>then 0 (in a particular field). Any help would be great.
>
>Thanks,

Sorry Damon, ut i forget the minus sign.

If .Cells(R, 1).Value = 0 Then

is intended as:

If .Cells(R, 1).Value <= 0 Then

Eliano

James,

I think that will work. Thank you very much. I will try that right now.


--
Damon


"james" wrote:

> Sort them first (programmatically if you wish - do a macro record to
> see how), then do a find for zero, then delete all rows below.
>