Delete row if value between two numbers

[pook_666]

Hi magicians,

I'm trying to delete rows if the value in column E is between -0.01 and 0.01...unfortunately I can't just delete if it is simply 0 as there are rounding's to many millions after the decimal point so have to do between -0.01 and 0.01 to remove anything for 0.00.

I thought about just using the "and" between the IF statement as per below, but VBA doesn't like it.....any ideas? Thanks!

    lrow2 = Cells(Rows.Count, "B").End(xlUp).Row
    For i = lrow2 To 1 Step -1
        If Cells(i, "E") >-0.01 and <0.01 Then
            Rows(i).Delete
        End If
    Next i

 

[vcoolio]

Hello Pook_666,

A slight change to your code should work:-

Sub Test()

Dim lrow2 As Long: lrow2 = Cells(Rows.Count, "B").End(xlUp).Row

        For i = lrow2 To 1 Step -1
                If Cells(i, "E") > -0.01 And Cells(i, "E") < 0.01 Then
                       Rows(i).Delete
                End If
        Next i
End Sub

I hope that this helps.

Cheerio,
vcoolio.

 

[pook_666]

As simple as that - thanks @vcoolio !!

 

[vcoolio]

You're welcome Pook_666. I'm glad to have been able to assist and thanks for the feed-back.

Cheerio,
vcoolio.