Conditions in a macro

[Damon]

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,

 

[james]

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.

 

[eliano]

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

 

[Gord Dibben]

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

 

[eliano]

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

 

[Damon]

James,

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