Delete negative numbers using a macro in an excel report

In some of my data, I have negative cells, I mean, a cell with a negative number and sometimes, I don’t want them so I need to delete them.

macro excel macro excel

 

When I use the macro ?

To delete row with negative cells.

 

How to create the macro ?

Read How to create, edit, hide and select a macro in an excel report

 

How to create the button to associate it with the macro ?

Read How to create a button and associated it to a macro in an excel report

 

How is the macro ?

Copy the code below and paste it into your macro. You will see my comments in green if exist so follow the help to adapt to your need.

Sub test()
Dim i As Integer
' change 20 by the number of rows you want to check
For i = 20 To 1 Step -1
' change 2 (column B) by the column number of negative cells
If Cells(i, 2).Value < 0 Then Rows(i).EntireRow.Delete
Next i
End Sub

Interesting Management