Macro for deleting rows with positive numbers

[lgerjets]

I am looking for a Macro that would do the following: delete rows if the row contains a positive number? Example: "if a row has a positive number in column D then delete that row".

I have hundreds of rows that are sorted a certain way and don't want to sort them differently, just delete the rows with positive numbers.

 

[AlphaFrog]

Delete the row if there is a positive number anywhere within the row or only if the positive number is in column D ?

 

[lgerjets]

Positive number in column D - which is actually the only column with numbers in it

 

[AlphaFrog]

• Select column D
• Select from the menu Data\ Filter\ AutoFilter
• This will put a drop down list in D1
• Select Custom from the D1 drop down list
  • Show rows where: Greater than 0
• This will show only the rows with positive numbers in column D
• Select all the visible rows and delete
• Select Autofilter from the menu again to turn it off
• Your results will not have been re-sorted

 

[lgerjets]

I actually have something in column A that sorts out 5 different groups that I am working with and when I do that autofilter it takes away that grouping.

 

[Michael M]

Try

Sub rempos()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "D").End(xlUp).Row
    For r = lr To 1 Step -1
        If Range("D" & r).Value > 0 Then
            Rows(r).Delete
        End If
    Next r
End Sub

 

[Mircea2016]

Hello,

I also need a macro to delete all rows that contain positive numbers.

Ex: below are rows. the macro should check if all cells have positive numbers and delete them. Below the first cell is with negative therefore must stay.

<colgroup><col width="114"><col width="70"><col span="2" width="84"><col width="42"></colgroup><tbody>
[TD="class: xl63, width: 114"]-186[/TD]
[TD="class: xl63, width: 70"] [/TD]
[TD="class: xl63, width: 84"]77376[/TD]
[TD="class: xl63, width: 84"]39892[/TD]
[TD="class: xl63, width: 42"]2
[/TD]

</tbody>

Thank you very much for the support.