Deleting values above 0 in a table column.

[Romano_odK]

Good evening,

In my case I have a column AA in a table from which I need to delete all values above 0. The whole row needs to be deleted. Is there a way to do that?

Thank you for your time.

Kind regards,

Romano

 

[SQUIDD]

Hi

Maybe something like this if I have understood you correctly.

Test this on a copy of your data, since it will delete rows.

Dave

Sub remove_more_than_0()
lr = Range("aa" & Rows.Count).End(xlUp).Row
    For a = lr To 2 Step -1
        If Range("aa" & a) > 0 Then Range("aa" & a).EntireRow.Delete
    Next a
End Sub